Imports System

Public Module Module1

    Public Sub Main()

        dim Dice,dice1,total as integer

        dim even() as integer = {2, 4, 6, 8, 10, 12}

        dice = getrandom(1,6)

        dice1 = getrandom(1,6)

        Console.WriteLine(dice & " and " & dice1)

        total = dice + dice1

        console.writeline(total)

        If total = 2 then  ' work out array to shorten the IF phrase

            total += 10     ' takes even numbers, so odd numbers are put in the Else phrase

        elseIf total = 4 then

            total += 10

            elseIf total = 6 then

            total += 10

            elseIf total = 8 then

            total += 10

            elseIf total = 10 then

            total += 10

            elseIf total = 12 then

            total += 10

        else

            total -= 5

        End If

        If total < 0 then

            total = 0

        End If

        console.writeline(" player one  has " & total & " Points after round one!")

    End Sub

     Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer        ' by making Generator static, we preserve the same instance '

        ' (i.e., do not create new instances with the same seed over and over) '

        ' between calls '

        Static Generator As System.Random = New System.Random()

        Return Generator.Next(Min, Max)

    End Function

End Module