Question

VBS 很简单的问题，谢谢大家，新手入门。

Option Explicit
Dim IngFirst ,IngSecond
IngFirst = InputBox ("Entry your Number:")
IngSecond = InputBox ("Entry your Number:")
MsgBox "The sum is:"& AddNumbers(IngFirst,IngSecond)
Function AddNumbers(IngFirstNumber,IngSecondNumber)
AddNumbers = IngFirstNumber + IngSecondNumber
End Function

因为我想让这个脚本灵活点，我加入了2个 inputbox 以便我输入数字，让他们自动算出来，但是最后的出来的结果不对啊，不知道是哪里出错了。
假如 我输入的 1和3 它的结果是 13，而并不是4.
谢谢解答，新手入门。。

Answer 1

新建文本改名为123.vbs
输入以下内容
Option Explicit
Dim IngFirst ,IngSecond
IngFirst = InputBox ("Entry your Number:")
IngSecond = InputBox ("Entry your Number:")
MsgBox "The sum is:"& AddNumbers(IngFirst,IngSecond)
Function AddNumbers(IngFirstNumber,IngSecondNumber)
AddNumbers = csng(IngFirstNumber) + csng(IngSecondNumber)
End Function
解释部分：
AddNumbers = csng(IngFirstNumber) + csng(IngSecondNumber)
csng(x) 把x值转换成单精度数，就是小数，上述代码可以计算小数
楼上的只能计算整数
cdbl(x) 把x值转换成双精度数，可以进行小数更多的运算

Answer 2

Option Explicit
Dim IngFirst ,IngSecond
IngFirst = InputBox ("Entry your Number:")
IngSecond = InputBox ("Entry your Number:")
MsgBox "The sum is:"& AddNumbers(IngFirst,IngSecond)
Function AddNumbers(IngFirstNumber,IngSecondNumber)
AddNumbers = int(IngFirstNumber) + int(IngSecondNumber)
End Function

_____________
inpubox()默认的类型是字符型，所以要转换才能进行计算。

Answer 3

a=int(a)这样就可以把字符串转换为数字了

Answer 4

明显是类型不对嘛，转换成整形结果就出来了。