Imports System, Microsoft.VisualBasic

​

'Aprameya Kannan

'01/04/2021

'Dice Roller

​

Public Module Module1

    Public Sub Main()

        Randomize()

        'Declare Variables

        Dim roll1 As Integer 

        Dim roll2 As Integer 

        Dim rollTotal As Integer

        Dim counter As Integer = 0

        'User Input(N/A)

        'Calculations

        Do 

            roll1 = Int(Rnd() * 6 + 1)

            roll2 = Int(Rnd() * 6 + 1)

            rollTotal = roll1 + roll2

            Console.WriteLine(rollTotal)

            counter += 1

        Loop Until rollTotal = 11

        'Output

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

    End Sub

End Module