Question

求一个按键精灵随机数字的源代码

范围为1-999999谢谢
顺带问下随机数字后如何让脚本把这个数字输入到某个框里

Answer 1

Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int((999999 * Rnd) + 1) ' 产生 1 到 999999 之间的随机数。
MsgBox "随机数:"&MyValue
Loop

Answer 2

随机数=int((9999-1)*rnd+1)

追问

这个应该怎么用，我去脚本里试了下启动了没有任何数字出来。

追答

Randomize
随机数 = int((9999 - 1) * rnd + 1)//随机生成一个数字,保存到变量:随机数
TracePrint 随机数
//输出时调用变量:随机数即可