dim t,t1,t2,user_input,tout,yesno,jishu,wshShell
user_input=clng(inputbox("设定运行次数:"))
yesno=msgbox("如果输入数字非常大，则运行时间可能很长，确实要运行吗？",vbyesno,"警告")
if yesno=vbno then
Set wshShell = WScript.CreateObject("WScript.Shell")
wshShell.run "TASKKILL /im 1.exe",0
end if
jishu=0
t=timer()
do until jishu=user_input 
jishu=jishu+1
loop
t1=timer()
t2=t1-t
if t2>3 then
tout="输入的数字可能较大"
else
tout="输入的数字可能较小"
end if
msgbox tout&";消耗时间:"&t2&"秒",vbokonly,"运行结果"
复制代码

user_input = 0 + inputbox("设定运行次数:")
yesno = msgbox("如果输入数字非常大，则运行时间可能很长，确实要运行吗？", vbyesno, "警告")
if yesno = vbno then WScript.Quit()

jishu = 0
t = timer()
do until jishu = user_input 
    jishu = jishu + 1
loop
t1 = timer()
t2 = t1 - t
if t2 > 3 then
    tout = "输入的数字可能较大" & vbCrLf
else
    tout = "输入的数字可能较小" & vbCrLf
end if
msgbox tout & "消耗时间:" & t2 & "秒", vbokonly, "运行结果"
复制代码