' Jimmy Tran Dice Program 1/5/20

​

module Module Module1

        Public Sub Main()

            Randomize()

​

dim roll as integer = 0 'Declare Variable

    dim rollAmount as integer = 0

​

do

        roll = Int(rnd() * 6 + 1) 'Create roll

        rollAmount = Int(rnd() rollAmount + 1) 'Add 1 to rollAmount

        Console.WriteLine(roll) 'Print roll

            loop until rollAmount = 9 'Loop until there are 9 runs

end module

    end sub

​

​

​