UC知道vb骰子程序~~！！救急~
来源：百度知道 编辑：UC知道 时间：2024/06/07 01:58:25
要求、、
电脑模拟掷n次骰子（n输入得到）：
1、输出每次掷出的值；
2、分别统计掷出的值在1~3区间的次数和4~6之间的次数；
3、求出掷出值的平均值
电脑模拟掷n次骰子（n输入得到）：
1、输出每次掷出的值；
2、分别统计掷出的值在1~3区间的次数和4~6之间的次数；
3、求出掷出值的平均值
Private Sub Command1_Click()
Randomize
N = Val(InputBox("掷骰子次数"))
For i = 1 To N
x = Int(Rnd * 6 + 1)
s = s + x
If x <= 3 Then y = y + 1
Print x
Next i
Print "1-3出现次数为：" & y
Print "4-6出现次数为：" & N - y
Print "平均值为：" & s / N
End Sub