vb中的rnd函数怎么用？？
答案:1 悬赏:0 手机版
解决时间 2021-04-04 20:15
- 提问者网友：焚苦与心
- 2021-04-04 11:07
vb中的rnd函数怎么用？？
最佳答案
- 五星知识达人网友：轻雾山林
- 2021-04-04 11:33
Dim tmpv As Double
For i = 0 To 100
tmpv = 100 * RndNext iMsgBox tmpvEnd Sub你可以尝试一下，如果你的程序关闭后再次点击这个按钮，得到的结果始终都是一样的。所以要想获得不同的随机因子必须初始化。 Private Sub Command1_Click()
Dim tmpv As Double
VBA.Randomize (Year(Now) * Month(Now) * Day(Now) / Hour(Now) / Minute(Now) / Second(Now))
tmpv = 100 * RndNext iMsgBox tmpvEnd Sub这样初始化随机因子就能真正的获取一个随机数了。
For i = 0 To 100
tmpv = 100 * RndNext iMsgBox tmpvEnd Sub你可以尝试一下，如果你的程序关闭后再次点击这个按钮，得到的结果始终都是一样的。所以要想获得不同的随机因子必须初始化。 Private Sub Command1_Click()
Dim tmpv As Double
VBA.Randomize (Year(Now) * Month(Now) * Day(Now) / Hour(Now) / Minute(Now) / Second(Now))
tmpv = 100 * RndNext iMsgBox tmpvEnd Sub这样初始化随机因子就能真正的获取一个随机数了。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯