作业帮 > 综合 > 作业

VB编写程序 用计算机模拟掷骰子游戏.编写程序统计掷N次后各点数出现的次数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 12:16:33
VB编写程序 用计算机模拟掷骰子游戏.编写程序统计掷N次后各点数出现的次数
N尽量大,如100000次
Private Sub form_load()
Dim n, a(), i, b(5)
n = 100000
ReDim a(n - 1)
For i = 0 To n - 1
Randomize
a(i) = Int(Rnd * 6) + 1
b(a(i) - 1) = b(a(i) - 1) + 1
Next
For i = 0 To 5
Print "骰子掷出" & i + 1 & "的次数是:" & b(i)
Next
End Su