VBS-之输入两个数并比较它们的大小

Option Explicit
Dim intX
Dim intY
Dim intPlayAgain
Do
	Do
		intX=InputBox("Enter the first nuber","Enter x")
	Loop Until IsNumeric(intX)And intX<>""
	Do 
		intY=InputBox("Enter the second number", "Enter y")
	Loop Until IsNumeric(intY)And intY<>""
	Select Case Sgn(intX-intY)
		Case 1 WScript.Echo(intX)&" is bigger than "&intY
		Case -1 WScript.Echo(intX)&" is smaller than "&intY
		Case 0 WScript.Echo(intX)&" and "&intY&" are equal"
	End Select
	intPlayAgain=msgbox("Do you want to try again?",vbYesNo,"Numbers comparing")
Loop Until intPlayAgain=vbNo

注意事项：
1）比较的过程使用了Select语句，当然也可以用三个if来实现。
2）wscript.echo()不认识vbYesNo这个系统参数，因此只能用msgbox()
3) Inputbox函数的用法：InputBox(prompt[, title][, default])
4)认识了一个Sgn(number)函数
     If number is                Sgn returns 
    Greater than zero                  1
     Equal to zero                     0
      Less than zero                   -1
5)判断一个变量是否为数字的函数Isnumeric()。类似的判断函数还有IsNull(),IsArray()