5000次掷骰子实验代码（VB）

问问里曾经有人问到，我告诉了他思路。昨晚听讲座期间，我写了这段代码，哪位觉得有误谢谢指正。

代码按照VS2010规范编写。

 

假设按下Start1按钮开始。

假设有六个标签用于输出结果。（计数结果）

 

Private Sub Start1_Click()

      Dim SZ1 as Integer                        '定义整形变量SZ1用于存储掷骰子结果

      Dim a%,b%,c%,d%,e%,f%             '定义六个整形变量a,b,c,d,e,f用于统计结果

      a=0

      b=0

      c=0

      d=0

      e=0

      f=0

 

      For i = 1 to 5000                           '循环5000次

           SZ1 = Int ((6-1+1) * Rnd + 1)   '产生1到6的随机数

           Select case SZ1

                Case 1                                '如结果为1，则变量a计数加1

                      a = a+1

                Case 2                                '如结果为2，则变量b计数加2

                      b = b+1

                Case 3                                '如结果为3，则变量c计数加3

                      c = c+1

                Case 4                                '如结果为4，则变量d计数加4

                      d = d+1

                Case 5                                '如结果为5，则变量e计数加5

                      e = e+1

                Case 6                                '如结果为6，则变量f计数加6

                      f = f+1

           End Select

      Next i

      '以下语句用于输出结果到六个标签上

      Label1.Text = "掷出一点" & a & "次"

      Label2.Text = "掷出两点" & b & "次"

      Label3.Text = "掷出三点" & c & "次"

      Label4.Text = "掷出四点" & d & "次"

      Label5.Text = "掷出五点" & e & "次"

      Label6.Text = "掷出六点" & f & "次"

End Sub