VbScript中的等同性检查

Question

dim rc
dim num
rc = InputBox("Enter rc")
for i=1 to rc 
    if(i=rc) then
        WScript.echo "Equal"
    end if
next

当我在InputBox中输入5时，上面的代码不会打印Equal。这是一个问题因为我和rc是不同类型的吗？

Answer 1

试试这个

dim rc
dim i
rc = CInt(InputBox("Enter rc"))

for i= 1 to rc
    if i=rc then
        MsgBox "Equal"
    end if
next

你的假设是正确的。默认情况下，InputBox返回带字符串子类型的变体。因此，您需要在比较之前更改其类型。在你的情况下，我是int子类型，因此我将InputBox的返回值更改为int。