Операторы сравнения VBScript не работают?

Question

Я чувствую, что это действительно очевидная ошибка, но я действительно не могу понять это. Кажется, что операторы сравнения в VBScript работают неправильно. Я пишу программу, в которой пользователь вводит сумму заказа, и эта сумма сравнивается с 1000. Если я введу 200 для заказа amt, программа выведет 200> 1000 = true.

Вот код моей программы:

largeOrderAmt = 1000 
orderAmt = Inputbox("What is the order amount?") 
Document.write(orderAmt & largeOrderAmt & (orderAmt > largeOrderAmt)) 

'Calculations 
If orderAmt <= largeOrderAmt then 
Document.write ("if statement called <br>") 
... 
Else 
Document.write ("else statement called <br>") 
EndIf 

и вот результат: 200 1000True другое заявление называется

я действительно не понимаю. Это очень неприятно. Любая помощь будет оценена, спасибо!

Answer 1

Это потому, что значения сравниваются как строки:

"200" > "1000" = True 

Преобразование вход в номер с помощью CInt или CDbl и т.д .:

orderAmt = CDbl(Inputbox("What is the order amount?"))