'E.Wong

'This program will roll two dice until the sum of the dice is 11

'1/4/2020

Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Randomize()

        Const FLAG as integer = 11

        Dim roll, rollNum as integer

        Do

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

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

            Console.WriteLine(roll)

            rollNum+=1

        Loop Until roll = FLAG

        Console.WriteLine("Number of Rolls: " & rollNum)

    End Sub

End Module