Imports System

Public Module Module1

    Public Sub Main()

        dim randomclass as new Random()

        dim dice as integer

        dim count1 as integer

        dim count2 as integer

        dim count3 as integer

        dim count4 as integer

        dim count5 as integer

        dim count6 as integer

        count1=0

        count2=0        

        count3=0

        count4=0

        count5=0

        count6=0

        for i =1 to 120000

        dice = randomclass.Next(1,7)

    if dice = 1 then

        count1 = count1 +1

    elseif dice=2 then

        count2 =count2+1

    elseif dice=3 then

        count3 =count3+1

    elseif dice=4 then

        count4 =count4+1

    elseif dice=5 then

        count5 =count5+1

    elseif dice=6 then

        count6 =count6+1

    end if 

    next i

​

console.WriteLine("count of 1s = " & count1)

console.WriteLine("count of 2s = " & count2)

console.WriteLine("count of 3s = " & count3)

console.WriteLine("count of 4s = " & count4)

console.WriteLine("count of 5s = " & count5)

console.WriteLine("count of 6s = " & count6)

​

    End Sub

End Module