vbs中通過(guò)intpu傳值進(jìn)行運(yùn)算的方法，需要的朋友可以參考下。

一個(gè)昵稱為預(yù)言家晚報(bào)的朋友很喜歡玩SOSO問(wèn)問(wèn)，等級(jí)LV10，已經(jīng)算比較高了。晚上掛QQ的時(shí)候，看到他的問(wèn)問(wèn)有更新，就點(diǎn)進(jìn)去看了一下，問(wèn)題是：

我寫(xiě)了如下一段VBS

代碼如下:

dim a,b,c

a=inputbox("a","please input")

b=inputbox("b","please input")

c=a+b

msgbox(c)

可是最后結(jié)果是11，我知道肯定是倒數(shù)第二行的“+”沒(méi)有作為運(yùn)算符，請(qǐng)問(wèn)這段代碼該咋么寫(xiě)才正確？

你肯定會(huì)不屑一顧，切，那么簡(jiǎn)單的程序，誰(shuí)不會(huì)？那請(qǐng)你先別往下看，獨(dú)立寫(xiě)出這個(gè)程序，看看到底對(duì)不對(duì)。注意我的標(biāo)題是兩數(shù)相加，而不是兩整數(shù)相加。

滿意答案有兩個(gè)，一個(gè)是我朋友給的：

代碼如下:

dim a,b,c

a=inputbox("a","please input")

b=inputbox("b","please input")

c=CInt(a)+CInt(b)

msgbox(c)

另一個(gè)是昵稱為“亂碼”的人給出的：

代碼如下:

dim a,b,c

a=int(inputbox("a","please input"))

b=int(inputbox("b","please input"))

c=a+b

msgbox c

很顯然，一個(gè)用了CInt函數(shù)，一個(gè)用了Int函數(shù)。

CInt Function

代碼如下:

When the fractional part of a value is exactly 0.5, the CInt function rounds to the closest even number. For example, 0.5 rounds to 0, 1.5 rounds to 2, and 3.5 rounds to 4.

CInt differs from the Fix and Int functions, which truncate, rather than round, the fractional part of a number.

CInt不同于Fix和Int函數(shù)刪除數(shù)值的小數(shù)部分，而是采用四舍五入的方式。當(dāng)小數(shù)部分正好等于0.5時(shí)，CInt總是將其四舍五入成最接近該數(shù)的偶數(shù)。例如，0.5四舍五入為0，以及1.5四舍五入為2，3.5四舍五入為4。

Int, Fix Functions

代碼如下:

Both Int and Fix remove the fractional part of number and return the resulting integer value.

The difference between Int and Fix is that if number is negative, Int returns the first negative integer less than or equal to number, whereas Fix returns the first negative integer greater than or equal to number. For example, Int converts -8.4 to -9, and Fix converts -8.4 to -8.

Int和Fix函數(shù)都刪除number參數(shù)的小數(shù)部分并返回以整數(shù)表示的結(jié)果。Int和Fix函數(shù)的區(qū)別在于如果number參數(shù)為負(fù)數(shù)時(shí)，Int函數(shù)返回小于或等于number的第一個(gè)負(fù)整數(shù)，而Fix 函數(shù)返回大于或等于number參數(shù)的第一個(gè)負(fù)整數(shù)。例如，Int 將-8.4轉(zhuǎn)換為-9，而Fix函數(shù)將-8.4轉(zhuǎn)換為-8。

一個(gè)是四舍五入，一個(gè)是刪除小數(shù)部分，哪個(gè)更高明？

其實(shí)兩個(gè)都不怎么高明。雖然輸入提問(wèn)者給出的整數(shù)（兩個(gè)1），兩者都能輸出正確的答案；但是如果輸入的是小數(shù)，這兩個(gè)程序顯然都不會(huì)輸出正確的答案。

下面給出一個(gè)我自認(rèn)為比較“高明”的答案：

代碼如下:

Dim a,b,c

a = InputBox("a","please input")

b = InputBox("b","please input")

c = 0 + a + b

MsgBox c

沒(méi)錯(cuò)，只是多加了一個(gè)0。VBS中+號(hào)和&號(hào)的區(qū)別我相信你已經(jīng)知道，但是我還是簡(jiǎn)單的復(fù)制一下文檔：

雖然也可以使用+運(yùn)算符連接兩個(gè)字符串，但是您仍應(yīng)使用&運(yùn)算符進(jìn)行字符串的連接以避免混淆，提供易理解的代碼。

這是因?yàn)樵谑褂?運(yùn)算符時(shí)，有可能無(wú)法確定是做加法還是做字符串連接。

表達(dá)式的基本子類(lèi)型決定了+運(yùn)算符所做的操作，如下表所示：

InputBox函數(shù)的返回值是字符串子類(lèi)型，如果直接用+號(hào)的話效果和&號(hào)是一樣的，即連接字符串。但是如果在前面加個(gè)0，效果就不一樣了，即上表中的第三種情況，變成加號(hào)應(yīng)有的效果了。

當(dāng)然，為了程序嚴(yán)謹(jǐn)，還應(yīng)該使用IsNumeric函數(shù)判斷輸入的是否是數(shù)字，簡(jiǎn)單起見(jiàn)，我在這里就省略了。