5000次掷骰子实验代码(VB)

前端之家收集整理的这篇文章主要介绍了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

原文链接:https://www.f2er.com/vb/261415.html

猜你在找的VB相关文章