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 i 

        ' 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

​

' --------------------------------------------------------------------------------------------------

​

' Pseudocode

' ----------

​

' INTEGER: Dice, Count1, Count2, Count3, Count4, Count5, Count6

​

' Initialise counts

' Count1 <-- 0

' Count2 <-- 0

' Count3 <-- 0

' Count4 <-- 0

' Count5 <-- 0

' Count6 <-- 0

​

' FOR i <-- 1 TO 120

'   Dice <-- Random Number between 1 & 6

'   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 i

'

' OUTPUT "Count of 1s = ", Count1

' OUTPUT "Count of 2s = ", Count2

' OUTPUT "Count of 3s = ", Count3

' OUTPUT "Count of 4s = ", Count4

' OUTPUT "Count of 5s = ", Count5

' OUTPUT "Count of 6s = ", Count6

​

' --------------------------------------------------------------------------------------------------

​

​

​