VBS編程教程 [下]
您是第
620個瀏覽者
迴圈結構
我們先來看一道題:商場進行每日結算, 要求累加出今天的營業額, 每次輸入一個數, 這道題其實很簡單, 但就我們現在學
過的知識要完成這道題相當麻煩, 我們來分析一下. 首先, 我們需要知道買賣的次數, 這樣才能控制輸入的次數,但是, 這種設
計是非常低效的, 每天都要重新設計程式. 假定今天進行了5次交易, 以下是根源程式:
dim sum
sum=0 '初始化變數
sum=sum + int(inputbox("請輸入交易額"))
'sum=sum+x 這種形式是把本身的值取出來, 進行一次運算, 再放回本身, 這種方法很有用處
'這裏使用了函數嵌套, 把inputbox的返回值直接傳給int函數, 轉化成整數, 下同
sum=sum + int(inputbox("請輸入交易額"))
sum=sum + int(inputbox("請輸入交易額"))
sum=sum + int(inputbox("請輸入交易額"))
sum=sum + int(inputbox("請輸入交易額"))
msgbox(sum)
看到了嗎, 我通過把計算過程複製了5遍才設計好了程式, 這種程式在汽車交易所等交易次數少的地方還能湊合著用, 如果
放到超市豈不是要複製, 粘貼幾千遍? 我們今天講的內容就可以克服這種缺陷, 首先, 我們來講以下Do...Loop語句.
do...loop的結構看上去非常簡單, 就是:do...loop, 僅此而已, 這個結構不斷執行do和loop之間的語句(學名叫:循環體),
永不停止. 舉個例子來說:
do
msgbox("這個資訊會不斷重複出現, 要停止程式請使用任務管理器(Ctrl+Alt+Del)中止wscript進程")
loop
運行這個程式, 當你點銷掉一個對話方塊馬上會出來另一個, 你永遠點不完, 總有下一個. 誰會運行這樣的程式? 除非是給
別人搗亂(我就幹過這種事), 所以在do..loop結構中還有一個語句:exit do, 這個語句將終止迴圈, 跳到loop後面的語句繼續
執行. 據個例子來說:
dim a '注意:常量不需要在dim裏面聲明,否則會引發錯誤
const pass="123456" '這是一個字串 請用""包裹起來. 設定密碼為常量, 不可變更
do
a=inputbox("請輸入密碼")
if a=pass then
msgbox("密碼校驗成功")
exit do
end if
loop
這個程式會一直不停的問你密碼, 知道你輸入了正確的密碼為止.(if可以嵌套在另一個if當中, 也可以嵌套在循環體當中
, 所以一定要用縮進, 來分清楚程式的各個部分). 這個程式是很經典的, 早期的程式都是這麼做的. 但是我們是Hacker, 所以
我們瞭解系統的安全性, 這種無限次認證程式很容易被窮舉破解, 我們要來限定認證的次數. 修改程式如下
dim a,ctr
ctr=0 '設置計數器
const pass="pas123_" '上面的那個是弱密碼, 這次改的強一點
do
if ctr=3 then
msgbox("已經達到認證上限, 認證程式關閉")
exit do
else
a=inputbox("請輸入密碼")
if a=pass then
msgbox("認證成功")
msgbox("(你可以在這里加一段成功後得到的資訊)")
exit do
else
ctr=ctr+1 '如果密碼出錯就增加一次錯誤認證計數
msgbox("認證出錯, 請檢查密碼")
end if
end if
loop
運行這個程式試試看, 當你出了3此錯誤以後, 就會停止再次詢問密碼, 關閉程式. telnet認證用來限制次數的程式與此大
同小異. 要注意的是嵌套的if語句, 清仔細讀一下這個程式, 可能比較難懂, 也請你試著自己設計一下類似的程式.
其實, 要在do...loop加上驗證的功能, 並不一定要用if, 我們可以直接利用do. 我來介紹一下while關鍵字, while可以放
在do或者是loop後面, 然後再接一個運算式, 當運算式的值為true的時候(運算式成立),才運行循環體.我們來看一下修改後的
程式"
dim a,ctr
ctr=0
const pass="pas123_"
do while ctr<3
a=inputbox("請輸入密碼")
if a=pass then
msgbox("認證成功")
msgbox("(你可以在這里加一段成功後得到的資訊)")
exit do
else
ctr=ctr+1 '如果密碼出錯就增加一次錯誤認證計數
msgbox("認證出錯, 請檢查密碼")
end if
loop
這樣實現的功能和上一個例子完全一樣, 我們再來看看把while放在loop後面:
dim a,ctr
ctr=0
const pass="pas123_"
do
a=inputbox("請輸入密碼")
if a=pass then
msgbox("認證成功")
msgbox("(你可以在這里加一段成功後得到的資訊)")
exit do
else
ctr=ctr+1 '如果密碼出錯就增加一次錯誤認證計數
msgbox("認證出錯, 請檢查密碼")
end if
loop while ctr<3
功能是一樣的, 為什麼要放在loop後面呢? 你把ctr的值改成3就知道了, while在do後面的程式會直接退出, 而在loop後面
還會允許一次認證, 到了loop才結束.和while相反的是until, 用法和while一樣, 不過他只有當後面的運算式的值為false(表
達式不成立)的時候才執行循環體, 請自己試驗一下
ok, 我們來看另外一種迴圈結構,for....next, 這種迴圈結構是基於計數的, 也是在編程中最常見到的迴圈結構.
dim i
for i=0 to 5
msgbox(i)
next
看到了嗎?每次輸出的i都是遞增的, 但我們沒有明確指出i要遞增, 當i達到5的時候, 迴圈就結束了, 因為由0開始, 所以
循環體執行了6次, 這一點很重要, 大部分東西都是從0開始而不是1. 這個程式也可以寫成
do的形式:
dim i
i=0
do while i<5
msgbox(i)
i=i+1 '因為do不能自動計數, 必須手動加
loop
怎麼樣, 還是for比較好用吧. for在編程中很有用途, 我們再舉一個例子, 順便講一下嵌套迴圈.
dim i,j
for i=1 to 9
for i=1 to 9
str=str & i * j & " " '&是和並字串的符號
next '每個next對應一個for
next
看看運行結果, 是否令你會想起小學時代的數學老師(醜陋的嘴臉). 要注意, 這裏有一個"大"的for, 和一個小的for, 當
小的for執行完一個週期以後, 大的for才執行一次(換句話說, 大的for執行一次, 小的要執行9次), 所以一共執行了九九八十
一次. 在大的for裏可以不僅僅是一個小的for, 也可以加上另外的語句. 我們來修改一下根源程式:
dim i,j
for i=1 to 9
for i=1 to 9
str=str & i * j & " "
next '每個next對應一個for
str=str & vbCrlf 'vbCrlf相當於鍵盤上的回車鍵,因為你不能在鍵盤上輸入,所以系統定義了一個默認的常量
next
這次運行完成以後, 輸出結果按照乘數進行了分割, 每小for運行完一次, 就換一行(通過vbcrlf).
這次的內容對菜鳥可能比較難懂, 掌握的辦法只有一個:多實踐. 另外, 我在論壇看到很多人還是問:"VBScript要用什麼工
具編?"我就很氣憤, 我在第一篇裏面已經說明:用記事本編輯源代碼, 然後保存為以.vbs為副檔名的程式就可以了, 請大家不要
再問. 另外, 國產的一種垃圾軟體"超級X霸"搶佔了vbs這個副檔名, 請把那個垃圾卸載掉.
我們總結一下:
要點:
1) do..loop和exit do的用法
2) while當運算式true的時候執行循環體,until反之
3) for...next是計數迴圈, 每次執行計數器遞加
4) 嵌套迴圈的作用和寫法
4.5) &用於連接字串
5) vbCrLf相當於鍵盤上的回車鍵
作業:
1) 在我國的數學經典著作"九章算術"中有這樣一道題:百錢買百雞, 公雞5錢一隻, 母雞3錢一隻, 小雞1錢2只(這個資料我是參
考一本編程書的, 但我記得是公3,母1,小1錢3只? 不管了, 就按照書上得來吧)求得是能有多少種辦法買這些雞. 如果看不懂的
話我用大白話說說:有人要去買雞, 用100塊錢正好買了100只雞, 價格如下:公:5$, 母:3$, 小:1$ for 2, 讓你求一共多少種賣
法(公母小怎麼搭配). 請用迴圈解決這個問題.
ps:今天要去移民局辦事, 所以文章寫的很倉促. 大部分代碼都沒有實驗, 請大家幫我找錯. 另外, 上次的作業大家在論壇應該
看到了, 我就不重複答案了, 不知道大家喜歡做這種題, 還是以前那種比較簡單的?
第五篇（共六篇）：
請允許我縣描述一下我現在的環境:氣溫高達37攝氏度, 而我忘記了圖書館開門的時間, 還要在這裏站上一個小時, 在熱帶植物的包裹下, 各種奇怪的小飛蟲圍著我轉來轉去. 不過令我欣慰的是, 終於寫到五了, 還有兩課我們的"基礎篇"就要結束了.
今天我們來瞭解語言本身的最後一個論題:陣列.
要理解"陣列", 這個概念我覺得另一種翻譯對學習來說更加容易:"陣列", 沒錯, 陣列就是一個陣列, 一個資料的陣列. 最簡單的例子是資料庫系統, 假設你要儲存20名學生的英語成績, 如果不是用陣列, 你則要創建20個不同的變數, 累死. 陣列就是類型相同(重要!)的一組資料(或者n組), 用來儲存相關的量, 最簡單的陣列是一維陣列, 我們就先來學習它吧.
什麼是一維陣列呢? 在3維以下,你可以利用幾何知識來理解"維"的概念,一維相當於一條線, 二維則是一個矩形, 三維是一個長方體. 我知道這麼講是很抽象的, 我們先舉個一維陣列的例子就比較容易瞭解了.
dim a(9) '從零開始
for i=0 to 9
a(i)=i '填充每一個陣列元素
msgbox(a(i)) '輸出陣列元素
next
我們可以看到, 定義一個陣列的方法和定義一個變數沒有什麼不同, 同樣是使用dim語句. 定義一維陣列的方法如下:
dim 陣列名稱(元素數量), 這裏大家要注意一點, 這裏定義的元素數量總是比你要的要少一個, 因為一個陣列的起點是0號數據而不是1, 所以大家一定要小心: 你需要10個資料, 就定義"9", 需要100個就定義99, 依此類推. 陣列的元素可以看成一個個獨立的變數, 你可以像獨立的變數那樣使用他們. 陣列元素的量可能是毫無關係的, 比如第一個陣列元素儲存你的年齡, 第二個儲存今年西瓜的銷售量, 但這種做法是不鼓勵的, 甚至是不被接受的, 不要這麼幹, 這樣的情況請定義獨立的變數. for語句在陣列中可算是大顯身手, 還記得for嗎? 它累加一個變數, 我們可以把這個變數應用在陣列中正好用來讀取或者填充按照順序排列的陣列元素, 上面就是這樣一個例子. 陣列其實是很簡單的東西(再BASIC語言裏面), 陣列難的是怎麼搗弄這些迴圈, 讓他們按照你的要求運轉. 這個等到二維陣列再說, 我們先看看如何手工填充陣列.
如果你這個都想不到的話, 那你真是白學了:
dim name(7),str '一共八個學生, str變數是用來把他們儲存成一個字串以便輸出
for i=0 to 7
name(i)=inputbox("請輸入第" & i+1 & "個學生的名字")
str=str & " " & name(i)
next
msgbox(str)
這樣我們就有了一個小小的資料庫, 它們的資料排列可以看成這樣:
name(0),name(1),name(2).....name(7)
看到了吧, 所以我說我們可以把它看成是"一條線", 等到我們學到了檔操作, 就可以把他們輸出到檔中去了. 一維陣列有很多用處, 我們來看一下一個複雜的例子. 我們要儲存3各學生的名字, 身高, 成績這三種資料, 由於名字是字串, 而身高可能是浮點數(帶小數點的數), 成績則可能是整數, 所以我們不能把他們儲存在一個陣列裏面(不要忘記, 數組織只能存儲同類的資料), 所以我們要建3個陣列, 以下是常式:
dim name(2), high(2), mark(2) '定義三個陣列分別儲存3個人的名字, 身高和得分
dim ctr '計數器
for ctr=0 to 2
name(ctr)=inputbox("請輸入第" & ctr+1 & "個學生的姓名")
high(ctr)=inputbox("請輸入第" & ctr+1 & "個學生的身高")
mark(ctr)=inputbox("請輸入第" & ctr+1 & "個學生的得分")
next
OK, 我們已經填充好了資料, 現在我們的小小資料庫只能按順序輸入, 我們要讓它看起來像點樣子, 我們來給他設計查詢功能:
'接著上面的程式
dim cname, temp '要查詢的名字, 和一個臨時變數, 用來儲存資料的位置
cname=inputbox("請輸入你要查詢的名字:")
for ctr=0 to 2 '遍曆所有name陣列的成員, 尋找要查詢的名字
if name(ctr)=cname then
temp=ctr '記錄資料位置
exit for '退出迴圈, 和exit do的用法一樣
end if '不要忘了end if
next
msgbox("姓名:" & name(temp) & " " & "身高:" & high(temp) & " " & "得分:" & mark(temp))
嘿嘿, 有意思吧, 其實在這個程式裏面, 那個temp變數完全沒有必要, 只是為了更清楚地說明問題. 因為當exit for以後ctr變數的值就不會改變, 儲存的正好是對應資料在陣列中的位置, 寫這個temp變數是為了照顧到以後要學C++的朋友(C++可以在for語句裏聲明新變數, 只在這個for結構中有效, 所以到了外部就不能訪問了). 也就是說可以簡化成如下:
dim cname
cname=inputbox("請輸入你要查詢的名字:")
for ctr=0 to 2
if name(ctr)=cname then exit for '因為只有exit for就不需要塊if了
next
msgbox("姓名:" & name(ctr) & " " & "身高:" & high(ctr) & " " & "得分:" & mark(ctr))
這是最直接的路子. 好好重讀一下上面所有的源代碼, 然後自己寫幾個程式, 完全搞清楚一維陣列及其應用以後再看後面的二位元陣列. 二維陣列好像是一個一維陣列的集合, 就好像"線積成面"一樣, 由n各一維陣列組成二維陣列, 這是初學者比較好理解的辦法(比較精確的是用"編號"的概念去理解, 因為4維以上的陣列就比較難以用歐幾裏德幾何概念去解釋了). 二維陣列是很好解釋的, 我們來看一下:
dim a(2,2) '從零開始, 一共有3 X 3 = 9 個資料
dim i,j '需要兩個計數器
for i=0 to 2
for j=0 to 2 '使用嵌套迴圈
a(i,j)="X"
next
next
我們創建了一個這樣的二維陣列(那些","是我用來分割元素的,並不存在), 瞭解二維陣列的了嗎? 不清楚我們再講一下
編號 0 1 2
0 X,X,X
1 X,X,X
2 X,X,X
二維陣列的看起來是不是就是一個矩形呢?(你在記憶體中看不到這樣的矩形, 只是便於你理解), 每個資料都有編號, 由兩個數來定位, 這個很像(非常像)你在國際象棋棋盤上尋找一個格, 我們用類似"C6","A2"這樣的"垂直座標"進行定位, 對, "垂直座標", 很確切. 我們要使用一個二維陣列元素的時候可以和普通變數一樣使用, 只要指定陣列元素的"定位點"就可以了, 例如
a(0)(1)=1, b(2)(1)="你好", 諸如此類. 要注意的是二維陣列也只能儲存類型相同的元素, 而且上標(起點)也從0開始. 計算一個二維陣列的元素個數只要把兩個下標+1(以得到實際的值)再乘起來就可以了, 非常類似於求一個矩形的面積.
假如需要儲存的都是同一類型的資料, 我們就可以用二維陣列, 比如要儲存5個人的姓名,國籍,民族, 就可以使用二維資料
dim info(4,2) '一共五個人, 要儲存的資料類型有3項
dim i,j
for i=0 to 4
for j=0 to 2
dim opt '定義一個變數用於存儲資料項目提示
select case j '判斷應該輸入的是什麼資料
case 0
opt="姓名"
case 1
opt="國籍"
case 2
opt="民族"
end select
info(i,j)=inputbox("請輸入第" & i+1 & "個人的" & opt)
next
next
'輸出太麻煩了, 我懶得動, 你知道那麼回事就行了
這樣就不需要定義3個一維陣列了.
多位數組(三維以上)的定義和使用方法與二維陣列一樣, 但不太好在歐幾裏德幾何空間里加以解釋, 幸好我們並不太常用那麼多維的陣列.定義一個三位元陣列:dim a(1,2,3) '一共24各陣列元素.
今天因為要搬家(我喜歡Sengkang啊, 可是MM嫌交通不便, 誰不知道她只想去逛街),而GF要去和她的同學去參加什麼試驗半夜才回家, 所以下午我只能自己去押車搬家了, 5555~~好可憐, 這次就請大家原諒我少寫一點, 我可是站在圖書館外寫的啊,
現在腿都軟了~~~ 本來還要講"動態陣列"的, 但想了想還是放到"進階部分"再說吧.
要點:
1) 一維陣列是"線", 二維陣列是"面", 三維陣列是"體" (多維陣列就亂套)
2) 陣列的下標從0開始
3) for迴圈在陣列的應用中起了很大作用, 二維陣列需要嵌套迴圈
作業:
上次出的"百雞問題", 大家喜歡嗎? 以後我們就做這種需要動腦的題目, 那些簡單的實踐, 大家一定要多做!
1) 定義一個陣列, 包含5個元素, 都是隨機整數(隨便輸入), 要求把他們按照從大到小的順序排列起來
2) 有兩個二維陣列a(4,4)和b(4,4) (元素值隨便), 交換兩個陣列(原來的a的所有元素值變成b的, b的所有元素值變成a的)
最後一篇：
新家不錯, MM開心, 我也就跟著高興了 : ), 今天我們學習基礎篇的最後一個部分:自定義函數和過程. 我們每天都在和函
數打交道, inputbox()是函數, msgbox()是函數, int()也是函數...這些函數都是系統內建的, 我們只能用不能改. 今天, 我
就教大家怎樣自己製作一個函數.
首先我們要瞭解, 為什麼要用函數, 我們用"實例"說話, 先看一個例子: 給出兩個數, 輸出較大的那一個.
dim a1,a2,b1,b2,c1,c2
a1=2:a2=4 '":"可以讓你把多個語句寫在一行上
b1=32:b2=67
c1=12:c2=898
if a1>a2 then
msgbox(a1)
elseif a1<a2 then
msgbox(a2)
end if
if b1>b2 then
msgbox(b1)
elseif b1<b2 then
msgbox(b2)
end if
if c1>c2 then
msgbox(c1)
elseif c1<c2 then
msgbox(c2)
end if
多麼麻煩呀, 我們把相同的比較過程複製了好幾遍, 早期語言沒有結構化(沒有過程和函數)的時候, 程式師們的確是這麼
幹的, 他們複製(Copy), 那個年代也沒有剪貼板這一說, 大家都是重新輸入代碼. 後來工作簡化了:
dim a1,a2,b1,b2,c1,c2
a1=2:a2=4
b1=32:b2=67
c1=12:c2=898
msgbox(co(a1,a2))
msgbox(co(b1,b2))
msgbox(co(c1,c2))
function co(t1,t2) '我們使用function定義了一個新的函數
if t1>t2 then
co=t1 '通過"函數名=運算式"這種方法返回結果
elseif t2>t1 then
co=t2
end if
end function
我們在這裏是用了一個新的關鍵字:funciton, 這個關鍵字表示一個新函數開始, 格式:
funciton 函數名(參數1, 參數2...參數n) '列表可以是空的, 但括弧不能省略, 參數之間用","分割
...
exit funciton '結束函數, 不是必需的
...
end function
函數是一個模組, 只有你調用的時候才會運行, 也就說, 當你編寫了一個函數, 然後在程式中並不調用它, 那麼這個函數
永遠不會運行. 一般來說, 我們編寫程式是按照:
主程序
..
..
..
函數1
..
..
函數2
..
..
詳細解釋一下: 函數中最重要的是參數和返回值. 參數是在函數名後面的()裏定義的, 用","分割, 使用參數的時候我們也
用","分割. 說到這裏我想起一件事, 昨天有個朋友給我發消息問我:
msgbox(name1,name2,name3)
這個錯在哪里? 為什麼不能同時顯示出三個變數? 這就是因為你用了",", 這個符號表示你輸入的三個量作為三個不同參數
傳遞給msgbox()函數, msgbox()函數只會顯示出第一個參數, 第二個參數的作用是出現在標題欄. 所以你應該用"&"或者"+"把
三個字串變數連接起來, 作為第一個參數傳遞給msgbox()函數. 程式師說參數的時候經常說到"形參", "實參"這樣的"黑話",
我來解釋一下. "形參"是"形式參數"的簡稱, "實參"是"實際參數"的簡稱, 實參是指你調用函數的時候傳遞給函數的量, 可以
使變數或者常量(直接量), 例如:co(12,24)中的12,24就是實參. 形參是你在函數定義時定義的變數, 這些變數用來"接住"傳遞
過來的量, 例如function co(t1,t2)t1,t2就是形參.
在VBScript中, 參數傳遞是一種傳值, 而不是傳址(聽不明白不要緊, 學了C語言的指標你就明白了), 所以我們進行的參
數傳遞實際上是進行了一次變數賦值, 例如我們調用co(a1,a2), 實際上程式會執行一步:t1=a1,t2=a2這樣的操作. 同樣因為傳
值傳址的原因, VBScript只能返回一個值, 我們先來看看什麼叫"返回". 當一個程序呼叫了另一個過程的時候(比如主程序調用
了函數), 控制權就到了被調用過程那裏, 當這個過程執行完畢以後, 會回到調用它的地方繼續執行, 這個就叫做"返回", 返回
的時候可以帶一個值叫做"返回值"(這是"通俗"的理解). 在vbs繼承了basic的傳統, 返回的時候採用"函數名=返回值"的辦法,
這個"返回值"是指一個運算式(在編程中, 任何東西都是運算式, 比如變數a, 常數0, "Hello",c=1+2等等這都是運算式). 比如
有一個函數是ht, 則返回的方法是:ht=你要返回的值. 注意:返回以後, 後面的語句將不再執行.
調用一個函數我就不用講了吧:變數=函數名(參數)
有時候我們並不需要返回什麼值, 這個時候我們可以使用一種稱之為"副程式"的結構. 副程式或稱之為過程與函數的差別
就在於:1) 沒有返回值, 2) 使用sub關鍵字定義, 3) 通過Call調用.具個例子:
dim yname
name=inputbox("請輸入你的名字:")
call who(yname)
sub who(cname)
msgbox("你好" & cname)
msgbox("感謝你閱讀我的課程")
msgbox("這是基礎部分的最後一課")
end sub
你一定看明白了, 很簡單的. 退出一個過程和退出一個函數一樣:exit sub(函數:exit function).
要注意, 副程式(過程)是比較特殊的一個結構, C等語言是沒有這個概念的, C語言中的一切都是函數, 沒有返回值的函數
在C語言中只要使用void修飾符定義就行了.
今天沒有什麼可講的了, 基礎篇就這麼結束了, 目前你已經有了基本的編程概念(面向過程的結構化編程), 可以選擇學習
另外一種語言(比如C或Pascal), 現在的基礎會有一定的幫助. 如果你想要繼續學習vbs或通過它更詳細的瞭解編程在轉型可以
跟我繼續學習, 但因為我的假期結束所以更新的時間可能會比較慢, 請大家原諒．初步計畫如下:
進階篇:
變數的深入討論
|
|----變數類型
|
|----變數的有效範圍
|
陣列的深入討論
|
|----動態陣列
|
函數的深入討論
|
|----陣列作為函數參數
|
|----多個返回值
|
字串操作
|
|----亂七八糟一大堆
|
面向物件編程(OOP)的基本知識
|
檔操作
|
|----FSO對象
|
|----其他相關部分
|
VBS與網頁
|
|----HTML中嵌入VBS
|
|----VBS與表單(設計你的程式介面 wow!)
實戰篇:
病毒編程
Socket編程(TCP/UDP)
這只是大概的內容, 我想應該會有變化, 到時候你就會讀到的. 今天的內容請多多實踐, 作業就是把前面的各個課程在溫習一下. 對要離開這個課程去更進一步學習的朋友:祝你再學習編程的道路上一帆風順.
實用相關搜尋: 論壇 nds lfo 翻譯 討論 車 it o2 bv 汽車
設為首頁
加入收藏
