【正文】 為什么 ? 請看下面 . 現(xiàn)在 , 我們的程序要變得像點樣子才行 , 誰的程序寫出來還要別人修改源代碼才能用啊 ? 所以 , 我們要接受用戶的輸入 , 還記得嗎 ? InputBox 函數(shù) . 修改后程序如下 : dim a,b,s a=inputbox(請輸入矩形的長 :) b=inputbox(請輸入矩形的寬 :) s=a*b msgbox(s) ok, 這么一修改 , 無論用戶輸入怎樣的數(shù)據(jù) , 我們都能計算出矩形的面積了 . 如果你用 s=15*12 能改嘛 ? 當然不行 . 我想你已經(jīng)發(fā)現(xiàn)了 , vbs 中的數(shù)學計算和真正的算術沒有什么不同 , +,,*,/,(),[],{}都是一樣的用法 , 比如 : 4 dim ans ans=12+32/4+[(2310)*2] msgbox(ans) 四則運算的法則在編程中同樣生效 , 你可以在編程中重新獲得小學時候的樂趣 (你恨數(shù)學 ?那就別學電腦了 ). 在編程中有一個 有趣的運算符是 mod, 這個運算符叫做 取余運算符 , 就是取得一次除法的余數(shù) , 例如 dim a a=16 mod 5 你知道 a 等于幾嗎 ? Bingo! 沒錯 , 就是 1. 因為 16 / 5 =3....1, 所以 mod 計算的結果就是 1. 還有一個運算符是 ^(就是鍵盤 6上面的小箭頭 ), 他表示 乘冪 (或者是 方 ) 比如 : dim a,b,c a=2 b=a^2 c=a^3 msgbox(a) msgbox(c) 則 b=a*a=4, c=a*a*a=8 我們一次不要講太多 , 這次就講到這里 , 現(xiàn)在總結一下 . 要點 : 1) 常量分為自然常量和自定義常量 , 常量的值不可修改 2) 變量就像盒子 , 我們不在乎盒子里裝的是什么 , 但一定要知道盒子的名字 3) 四則運算在編程中沒有任何不同 4) MOD 是取余運算 作業(yè) : 1) 編一個程序 , 計算圓形的面積 , 半徑由用戶給出 (使用 Inputbox) PI取值 2) 編一個程序取得 20 / 3 的余數(shù) 繼續(xù) 首先 , 我來解決一下上次課程的幾個疑問 第一 , 那個余數(shù)問題 , 16 / 5 = 3...1, 是因為我改過前面的部分 , 后面的忘了改了 , 不好意思 . 第二 , 請看一下程序清單 : 1) Dim a,b,c a=inputbox(a 是 :,輸入半徑 ) b=Inputbox(b 是 :,輸入半徑 ) c=a*2+b*2 Msgbox(c) 這個 輸入 2 時是 6 2) Dim a,b,c a=inputbox(a 是 :,輸入半徑 ) b=Inputbox(b 是 :,輸入半徑 ) c=(a+b)*2 Msgbox(c) 這個輸入 2 時是 24 為什么會不一樣呢 ? 在數(shù)學上 c=(a+b)*2 和 c=a*2+b*2 是等價的 , 在 VBS 中也是如此 . 問題出在 +上 , 在 VBS中 , +不僅僅是加號的意思還表示把兩個字符串連接起來 , 例如 Hello+World=HelloWorld have you understood? 你還記得 InoutBox函數(shù)的返回值嗎 ? 是字符串 ! 這就看出問題了吧 , 在編程中 1不等于 ()1, 1是一個字符 , 而 1是 5 一個數(shù) , 所 以 a,b 都是字符串變量 , 1+2=12, 這就好像我們小時跟伙伴開玩笑問他們 1+1=?一樣 , 我們總是笑著說 錯啦 ,應該是 11.但為什么 , a 可以 *2 卻不發(fā)生錯誤呢 ? 這時 VBS 比較智能的一個表現(xiàn) , 如果這個字符串的內容是一個數(shù)且對他進行數(shù)學運算 , 則把字符串強制轉換成數(shù)參與運算 , 如果字符串代表一個數(shù) , 但不參加數(shù)學運算 , 而是參加字符串運算 (合并 )則當作字符串處理 , 所以你看到 a+b=12, 這時候 a+b 的結果 (12)是一個字符串 , 當它要乘以 2 的時候就被強制轉換成了數(shù)字 12, 這樣我就得 到了結果24. 怎么修改這個程序呢 ? 我們需要用到另一個內建的函數(shù) :int, int 函數(shù)的功能是將輸入值轉化成整數(shù)值 , 我們這樣修改 : c=(int(a)+int(b))*2 這個意思就是把 a 作為參數(shù)傳遞給 int函數(shù) , int函數(shù)就會返回那個整數(shù) (你的輸入值 ), 然后讓返回值參與運算 , 這樣就得到了正確答案 .所以 ,以后如果你用的是 inputbox 函數(shù)的話 ,最好用 int 語句加工一下 :比如 c=int(c) 39。c 是你自己的變量 大家是不是覺得這個課程有點枯燥 , 呵呵 , 變量和運算符部分的確是這樣的 , 不過多多練習也就好了 , 這次 , 我們寫寫真正好玩的東西 : 流程控制語句 . 這個部分開始才是真正的編程 . 首先介紹判斷結構 . 在此之前 , 我們先介紹一種簡單的變量類型 :布爾值 (Boolean), 這種變量只有兩個可能值 :True,Flase,即真或假 . 這種變量在某些情況下很有用 (比如 開關 ). 我們定義一個 bool 變量的方法和其他變量一樣 , 賦值也一樣 , 例如 : dim a,b a=true b=false 注意 ,true 和 true是不一樣的 , true是字符串 ,true 是布爾值 , 千萬不能混淆 . 回到 if語句上來 , 我們先來看看簡化版的 if語句 :if 判斷式 then 語句體 我們來看一個例子 : dim a,b a=12 b=13 if ba then msgbox(B 大于 A) 我們只看最后一行 , ab這個式子 (表達式 )有一個返回值 , 是 bool型的 . 因為這個式子只有兩種可能 :b 大于 a, b 不大于 a, 所以這個式子也只有兩種可能性 , 即真或者假 . if語句判斷這個表達式的返回值是真還是假 , 如果是真 (true)則執(zhí)行 then 后面的語句 , 如果是假 , 則不執(zhí)行 , 你把 a 的值改成 14 看看還會不會彈出對話框 ? 當我們要在判斷之后執(zhí)行多行語句怎么辦呢 , 我們需要用語句塊來解決 , 在這里可以叫塊 if dim a,b a=12 b=13 if ab then msgbox(A 小于 B) msgbox(B 大于 A) end if 兩個 msgbox函數(shù)夾在 if 和 end if之間 , 這個部分就是語句塊 , 塊里的每一條語句之前請空出 48(一個 Tab鍵 )個格 , 這不是必需的 , 但是是一個好習慣 , 以便看清楚程序的結構 . 這樣我們就能運行多于一個的語句 , 請注意 if...then...end if 這三個關鍵部分不要掉了 . OK, 我出一個題 , 輸入一個數(shù) , 如果小于 100就輸出 錯誤 , 如果大于 100就輸出 正確 , 我這里有兩個程序版本 : dim a a=inputbox(請輸入一個大于 100 的數(shù) ) a=int(a) 39。inputbox 返回的是字符串 , 我們把他變成整數(shù) : ) if a100 then msgbox(正確 ) 6 if a100 then msgbox(錯誤 ) 還有一個更簡單的 dim a a=inputbox(請輸入一個大于 100 的數(shù) ) a=int(a) 39。inputbox 返回的是字符串 , 我們把他變成整數(shù) if a100 then msgbox(正確 ) else msgbox(錯誤 ) end if 看到多了一個 else 了吧 , else 的作用就是當要判斷的表達式為 false 時執(zhí)行的 . 這樣程序就可以處理兩種不同的情況了 . 不要忘了用 end if 結尾 嘿嘿 , 我是變態(tài)者 , 現(xiàn)在我要你處理三種情況 , 100,=100,100, 還要寫在一個 if 結構里 , 你怎么辦 , 我給你答案 : dim a a=inputbox(請輸入一個大于 100 的數(shù) ) a=int(a) 39。inputbox 返回的是字符串 , 我們把他變成整數(shù) if a100 then msgbox(正確 ) elseif a=100 then msgbox(老大 , 你耍我 ?) else msgbox(錯誤 ) end if 這次輸入 100看看 , 是什么 ? else if語句可以在 if 結構中多次出現(xiàn) , 以靈活判斷不同的情況 (如果你要判斷得太多 , 就請使用 選擇結構 , 過會兒就講 ), 當所有 elseif 都處理完了 ,而沒有符合情況的時候再執(zhí)行 else 中的語句 .另一個例子 : Dim a,b,c,d a=inputbox(a 是 :,輸入半徑 ) b=Inputbox(b 是 :,輸入半徑 ) d=Inputbox(答案 :,輸入答案 ) c=a*2+b*2 39。這里沒有問題 , 會自動轉換 if d=c then Msgbox(你好聰明 ) else Msgbox(你好豬頭 自己的題還不會 !) end if 再看看這個 , 無論你回答得多么正確你都是豬頭 , 哈哈 , 不是我耍你 , 還是文章開始時候的 inputbox的返回類型在耍你 , d是 inputbox的返回值 , 他是一個字符串 , 而 c 是一次整數(shù)計算的結果 , 他是一個整數(shù) . 一個字符串無論如何也不等于一個整數(shù) , 盡管他們字面上是一樣的 :8(不等于號 )8 所以 if 的判斷式的值永遠是 false, 總是執(zhí)行 else部分的語句 . 我們可以這么修改 Dim a,b,c,d a=inputbox(a 是 :,輸入半徑 ) b=Inputbox(b 是 :,輸入半徑 ) d=Inputbox(答案 :,輸入答案 ) d=int(d) 39。在這里我們取出了 d 的值 , 變成整數(shù) , 在放回 d這個盒子里 c=a*2+b*2 if d=c then Msgbox(你好聰明 ) else 7 Msgbox(你好豬頭 自己的題還不會 !) end if 這樣就成功了 . 這也是 Inputbox函數(shù)的一個討厭的地方 , 沒辦法 , vbs 沒有其他好的輸入方式了 . 說到 if, 我們不得不說一說邏輯運算符 , 今天介紹兩種 , and 和 or 學會了 if 語句之后 , 我舉一個例子 , 你一看就明白了 . dim a,b a=inputbox(輸入一個數(shù) 10) b=inputbox(輸入另一個數(shù) 10)