Imports System
Public Module Module1
Public Sub Main()
Dim D6 As Integer
Dim RandomClass As New Random()
Dim Count1 As Integer
Dim Count2 As Integer
Dim Count3 As Integer
Dim Count4 As Integer
Dim Count5 As Integer
Dim Count6 As Integer
for i = 1 to 1200
D6 = RandomClass.Next(1, 7)
If D6 = 1
Count1 = Count1 + 1
ElseIf D6 = 2
Count2 = Count2 + 1
ElseIf D6 = 3
Count3 = Count3 + 1
ElseIf D6 = 4
Count4 = Count4 + 1
ElseIf D6 = 5
Count5 = Count5 + 1
Else
Count6 = Count6 + 1
End If
next
Console.WriteLine(Count1)
Console.WriteLine(Count2)
Console.WriteLine(Count3)
Console.WriteLine(Count4)
Console.WriteLine(Count5)
Console.WriteLine(Count6)
End Sub
End Module
' PSEUDOCODE
' ==========
' INTEGER: Die, Count1, Count2, Count3, Count4, Count5, Count6
'
' FOR i <-- 1 TO 1200
' Die <-- Random Number between 1 & 6
' IF Die = 1 THEN
' Count1 <-- Count1 + 1
' ELSE IF Die = 2 THEN
' Count2 <-- Count2 + 1
' ELSE IF Die = 3 THEN
' Count3 <-- Count3 + 1
' ELSE IF Die = 4 THEN
' Count4 <-- Count4 + 1
' ELSE IF Die = 5 THEN
' Count5 <-- Count5 + 1
' ELSE
' Count6 <-- Count6 + 1
' END IF
' NEXT i
' PRINT "Count of 1's = ", Count1
' PRINT "Count of 2's = ", Count2
' PRINT "Count of 3's = ", Count3
' PRINT "Count of 4's = ", Count4
' PRINT "Count of 5's = ", Count5
' PRINT "Count of 6's = ", Count6