Imports System

Public Module Module1

    Public Sub Main()

        Dim Decision as string = "y" 

        Dim Total as decimal  

        Total = (Total = 5)   

​

     Loop while 

        While Decision = "y"

        Console.WriteLine("Would you like to play y or n?")  

        Decision = Console.readline()  

            If Dice1 = Dice2 then

                Total = Total + 1

            Else If

                Dice1 = Dice2 = Dice3 then

                    Total = Total + 2

                End if

        End while 

                    End Sub

        Public Function Rnd() As Integer

        'Generates a random number from 0 to 6

          Dim Dice1 as Random = new Random()

             Return (Dice1.Next(6))

       End function

        Public Function Rnd() As Integer

        'Generates a random number from 0 to 6

          Dim Dice2 as Random = new Random()

             Return (Dice2.Next(6))

       End function

        Public Function Rnd() As Integer

        'Generates a random number from 0 to 6

          Dim Dice3 as Random = new Random()

             Return (Dice3.Next(6))

        End function

End Module