'Ashwin Chandramouli

'1/8/2021

'A simple dice rolling simulator

​

Imports Microsoft.VisualBasic

Imports System

Public Module Module1

    Public Sub Main()

        dim diceRollOne, diceRollTwo, sum, counter As Integer

        Randomize()

        Do 

            counter+=1

            diceRollOne = Int(Rnd() * (6 - 1 +1) + 1)

            diceRollTwo = Int(Rnd() * (6 - 1 +1) + 1)

            sum = diceRollOne + diceRollTwo

            Console.WriteLine(sum)

        Loop While (sum <> 11)

        Console.WriteLine("Total # of rolls: " & counter)

    End Sub

End Module