Imports System

Public Module Module1

    Public Class players

        Public dice1 as integer = 0

        Public dice2 as integer = 0

    End class

    Dim playerarray(1) as players 

    Sub randomiser()

        Dim randomnumber, randomnumber2 as integer

        For i = 0 to playerarray.Length - 1

            Microsoft.Visualbasic.Randomize()

            randomnumber =  Microsoft.VisualBasic.Int((6 - 1 + 1) * Microsoft.VisualBasic.Rnd() + 1)

            playerarray(i).dice1 = randomnumber

            randomnumber2 =  Microsoft.VisualBasic.Int((6 - 1 + 1) * Microsoft.VisualBasic.Rnd() + 1)

            playerarray(i).dice2 = randomnumber2

        Next

    End Sub

    Public Sub Main()

            'randomiser()

            'console.WriteLine("dice 1 is " & playerarray(0).dice1 & " and dice 2 is " & playerarray(0).dice2)

            console.WriteLine(playerarray.Length)

    End Sub

End Module