本帖最后由 LTSC1809 于 2023-5-5 22:24 编辑
后面的if语句检测返回值是否为vbno,如果是,就结束vbs解释器的进程,但是测试中发现不管点是还是否结果都会运行后面的循环,觉得很疑惑,为了查错在if前加了个msgbox用来显示现在yesno这个变量获取到的返回值,也就是msgbox(yesno),结果竟然发现我点是则显示6,点否则显示7,为什么是数字啊,不应该是vbyes和vbno吗,这样导致这个if语句完全失效了啊,不管点什么都会进入到接下来的循环,有没有办法能让他如果点否就执行if里面那段代码啊,代码如下- 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,"运行结果"
复制代码
|