模拟骰子投掷的VB表达式
答案:2 悬赏:70 手机版
解决时间 2021-01-28 18:58
- 提问者网友：佞臣
- 2021-01-27 20:53
模拟骰子投掷的VB表达式
最佳答案
- 五星知识达人网友：神也偏爱
- 2021-01-27 21:03
int(rnd*(6)+1) 随机1-6 骰子1-6个点
全部回答
- 1楼网友：神也偏爱
- 2021-01-27 21:32
Private Sub Form_Click()
Dim i As Long, num As Long, a(1 To 6) As Long
Randomize
For i = 1 To 10 '假设10次
num = Int(Rnd * 6 + 1)
a(num) = a(num) + 1
Next i
For i = 1 To 6
Print a(i); " ";
Next i
Print
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯