Imports System

Public Module Module1

    Public Sub Main()

        dim generator as new Random()

        dim dice1 as integer

        dim dice2 as integer 

        dim answer as string  

        dim total as integer

        dim total2 as integer 

        dim rollamount as integer 

        dim reply as string 

        dim _random as new Random(1)

        dim amount as integer

        dim average as integer 

        dim average2 as integer

do  

        console.writeline("Press Y to roll the dice")

        answer = console.readline()

        if answer = "Y" or "y" then 

        console.writeline("How many times would you like to roll the dice?")

        rollamount = console.readline()

            end if

for i = 1 to rollamount

        dice1 = _random.Next(1,10)

            console.writeline(dice1)

total = total + dice1

next

    console.writeline("Your total is " & total)

​

for i = 1 to rollamount

       dice2 = generator.Next(1,10)

       console.writeline(dice2)

total2 = total2 + dice2

next

console.writeline("The computers total is " & total2 )

​

if total > total2 then 

        console.writeline("You rolled the highest") 

else if total2 > total then 

        console.writeline("The computer rolled the highest")

else if total = total2 then 

        console.writeline("Both are equal")

    end if 

    console.writeline("Would you like to roll again? Y/N ")

    reply = console.readline()

    amount = amount + rollamount 

    average = average + total

loop until reply = "N"

​

average2 = average / rollamount

console.writeline("You rolled the dice " & amount & " times")

​

console.writeline("The average for you was " & average2 ) 

End Sub

End Module