[问题求助] [已解决]求助VBS怎样对变量进行数字比较？

LTSC1809

我做了一个用来测试vbs解释器性能的程序，打开后要求你输入运行次数，最后输出运行用时，代码如下:

dim t1,t2,a,number
number=inputbox("Type_RunNumber:")
t1=timer()
a=0
do
a=a+1
if a＞number then exit do
loop
t2=timer()
msgbox("Run_Number:"&a&"Run_Time:"&t2-t1)
复制代码

现在的问题是，运行后不管你输入多少，他都一直运行，任务管理器可以看到，占用很高，应该一直还在做加法，但是if那里number那个变量换成数字，他就能加法做到那个数字大小的时候跳出循环并输出，为什么换成变量就不行了

Batcher

回复 1# LTSC1809


InputBox返回的是字符串，先把它转换成数字，例如：
http://bbs.bathome.net/include/js/script56/html/vsfctint.htm
http://bbs.bathome.net/include/js/script56/html/vsfctcint.htm

czjt1234

number = 0 + inputbox("Type_RunNumber:")

LTSC1809

回复 2# Batcher 谢了，虽然那两篇文章感觉和这个没太大关联，但是inputbox返回的是字符串这个我确实没想到

jyswjjgdwtdtj

number=clng(inputbox("Type_RunNumber:"))
t1=timer()
a=0
do while number>a
a=a+1
loop
msgbox("Run_Number:"&a&"Run_Time:"&timer()-t1)

LTSC1809

回复 5# jyswjjgdwtdtj


  没有声明变量感觉好别扭...我知道不声明也能运行，但是我看的新手教程是强烈建议先声明后使用

jyswjjgdwtdtj

回复 6# LTSC1809


    好吧 其实真的没用

jyswjjgdwtdtj

回复 6# LTSC1809


    既然想保留这个好习惯 不如在脚本前部加上option explicit来督促自己

Batcher

回复 6# LTSC1809


    我支持你的观点，好习惯保持住，别被他人影响。