Imports System, Microsoft.VisualBasic

'Dhara Patel

'January 5, 2021 

'Dice Roller 

​

Public Module Module1

    Public Sub Main()

        Randomize()

        Dim firstRoll As Integer

        Dim secondRoll As Integer 

        Dim sum As Integer 

        Dim count As Integer 

        Do 

            firstRoll = Int(Rnd() *(12 - 2 + 1) + 1)

            Console.WriteLine(firstRoll)

        Loop Until firstRoll = 11

        Do 

            secondRoll = Int(Rnd() *(12 - 2 + 1) + 1)

            Console.WriteLine(secondRoll)

        Loop Until secondRoll = 11

        count = (Rnd() * firstRoll + secondRoll)

        Sum = count * firstRoll/secondRoll 

        Console.WriteLine("Number or times dice roll: " & sum)

    End Sub

End Module