Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim rnd as new random()

        dim die1, die2, die3, score as integer

        die1 = cint(rnd.next(1, 7))

        die2 = cint(rnd.next(1, 7))

        die3 = cint(rnd.next(1, 7))

        if die1 = die2 and die2 = die3 then

            score = 10

            if die1 = die3 and die2 <> die3 then

                score = 20

                if die1 <> die2 and die2 <> die1 then

                    score = 30

                else

                    score = 0

                end if

            end if

        end if

​

        console.write(die1 & die2 & die3 & " score:" & score)

    End Sub

End Module

​