Imports System, Microsoft.VisualBasic

​

'1/6/21

'Justin Siguenza

'Dice Roller Program

Public Module Module1

    Public Sub Main()

        Dim roll As Integer 

        Dim roll2 As Integer

        Dim sum As Integer

        Do

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

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

            sum = roll + roll2

        Console.WriteLine(sum)

        Loop While sum <> 11

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

    End Sub

End Module