Imports System

Public Module Module1

    Public Sub Main()

        'Declare Variables

        Dim RandomClass as New Random()

        Dim Dice As Integer

        'Declare counts

        Dim Count1 As Integer

        Dim Count2 As Integer

        Dim Count3 As Integer

        Dim Count4 As Integer

        Dim Count5 As Integer

        Dim Count6 As Integer

        'Initialise counts

        Count1 = 0

        Count2 = 0

        Count3 = 0

        Count4 = 0

        Count5 = 0

        Count6 = 0

        ' Throw the dice 12000 times

        for i = 1 to 12000  

            ' Generate random number between 1 - 6

            Dice = RandomClass.Next(1, 7)   

            ' Increment relevant count

            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

            Else

                Count6 = Count6 +1

            End If

        Next 

        ' Now display results

        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