Question

如何用按键精灵输出一定范围内的随机数字呢？

如题，比如输出200-300之间的数字。能不能带2位小数呢？ 还有能不能输出递增的日期呢？比如 2010-01-01 到2010-03-19 谢谢啦

Answer 1

第一个输入数字的：
Dim lngLowlimit, lngToplimit
Dim MyNumber
Rem Initialization
lngLowlimit = InputBox("请输入数字的下限值")
lngToplimit = InputBox("请输入数字的上限值")
If lngLowlimit > lngToplimit
MsgBox "对不起，数字上限值必须大于下限值，请重新输入"
Goto Initialization
EndIf
Randomize
MyNumber = Round((lngToplimit - lnglowlimit) * Rnd, 2) + lngLowlimit
SayString MyNumber

第二个日期的：
Dim DateSta, DateEnd
Rem Initialization
DateSta = InputBox("请输入开始日期，格式如'2012-12-31'")
DateEnd = InputBox("请输入截止日期，格式如'2012-12-31'")
If Not IsDate(DateSta) or Not IsDate(DateEnd)
MsgBox "对不起，日期格式不正确，请检查。"
Goto Initialization
EndIf
If CDate(DateSta) >= CDate(DateEnd)
MsgBox "对不起，开始日期必须小于截止日期。"
Goto Initialization
EndIf
While CDate(DateSta) <= CDate(DateEnd)
SayString DateSta
DateSta = DateAdd("d", 1, DateSta)
Delay 500
EndWhile

Answer 2

UserVar low1=20 随机数下限
UserVar high1=300 随机数上限
UserVar xs=2 保留小数点位数
UserVar t1=2010-9-1 起始日期(年月日用-号隔开)
UserVar t2=2010-11-22 结束日期
dim tt(50)
Randomize
x1=((high1-low1+1)*Rnd+low1)
x2=inStr(x1,".")
x3=Left(x1,x2+xs)
VBSCall RunApp("notepad.exe")
Delay 2000
Plugin h= Window.Find("Notepad", 0)
Plugin Window.Active(h)
Delay 200
SayString "随机数"&x3
KeyPress 13,2
SayString "下面将输出连续日期,自动识别每个月的天数"
KeyPress 13,1
t1=CDate(t1)
t2=CDate(t2)
t3=t1
SayString t3
KeyPress 13,1
While DateDiff("d",t3,t2)>0
t3=DateAdd("d",1,t3)
SayString t3
KeyPress 13,1
EndWhile