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

Case2 '如结果为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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!