发布网友
共3个回答
热心网友
Sub 计算()
For i = 1 To 100
Bnum = Int((6 - 0 + 1) * Rnd + 0) '计算随机数,0至6
Cells(i, 1) = Bnum '在第一列输入100个随机数,具体需要如何表达你可自定义
'这里调用你的小游戏程序即可,即自动模拟执行100次。例如 call 小游戏(Bnum) 命令即可把这个随机数传到小游戏里,执行相应的随机数。
Next i
End Sub
热心网友
无论是VBA还是函数,都是使用随机数来实现。
不过,建议使用VBA,可以随时跟新。函数的话,随时跟新在这里实现不如VBA好。
dqsprings的VBA代码可行
热心网友
是不是给100个0-6的随机数啊?
=INT(RAND()*6)追问是有7中可能性,然后让系统自动模拟100次结果。请问该怎么用excel
追答=INT(RAND()*7)