VBS編程教程 [上]
您是第
369個瀏覽者
發現大部分的朋友都不會編程, 這可不是件好事, 所以這次我就寫了一個簡單的編程教程, 講一下VBScript. 主要面向菜鳥, 懂得編程的朋友就不要浪費時間了, 如果你想接觸以下VBScript也可以, 但既然有編程基礎推薦直接去找一些參考書來讀, 會比較快.
什麼是VBScript呢? VBScript的全稱是:Microsoft Visual Basic Script Editon.(微軟公司視覺化BASIC腳本版). 正如其字面所透露的資訊, VBS(VBScript的進一步簡寫)是基於Visual Basic的腳本語言. 我進一步解釋一下, Microsoft Visual Basic是微軟公司出品的一套視覺化編程工具, 語法基於Basic. 腳本語言, 就是不編譯成二進位檔, 直接由宿主(host)解釋源代碼並執行, 簡單點說就是你寫的程式不需要編譯成.exe, 而是直接給用戶發送.vbs的根源程式, 用戶就能執行了.
我知道菜鳥現在最關心的就是用什麼工具來開發VBS程式了, 答案是:記事本(Notepad).我不是開玩笑, 其實任何一種文本編輯器都可以用來開發VBS開發, 只不過記事本是由系統自帶的, 比較好找而已. 儘管如此, 我還是建議你去下載一個專業的文本編輯器, 因為這些工具可以提供 "語法高亮"等功能, 更加方便開發, 用哪一個隨你喜好, 我比較喜歡Edit Plus (2.10).
OK, 我們先來寫一個VBScript程式熱熱身.
REM 輸入並回顯你的名字
'使用InputBox和Msgbox函數
Dim name,msg
msg="請輸入你的名字:"
name=Inputbox(msg,"名稱")
Msgbox(name)
把上面的程式清單輸入到記事本裏面, 然後保存為以.vbs為副檔名的文件("保存類型"裏面選擇"所有檔").然後雙擊運行, 觀察運行結果. 注意:請自己輸入程式清單, 不要複製->粘貼!
我來解釋一下這個程式, 第一行和第二行的開頭分別是"REM"語句和" ' ", 這兩個東西的作用是相同的, 表示本行是注釋行, 就是說這兩行什麼也不幹,只是用來說明這段程式的功能, 版權資訊等等. 注釋行是程式最重要的部分之一, 儘管它不是必需的, 但對於其他人閱讀源代碼, 以及自己分析源代碼是很有好處的. 好的習慣是在必要的地方加上清晰, 簡潔的注釋.
Dim用來聲明一個變數, 在VBS中, 變數類型並不是那麼重要, 就是說VBS會幫你自動識別變數類型, 而且變數在使用前不一定要先聲明, 程式會動態分配變數空間. 在VBS中你不用考慮name儲存的是一個整數還是一個小數(學名叫"浮點數"), 也不用考慮是不是字串(一串字元, 比如:"Hello World"), VBS會自動幫你搞定. 所以第三行語句可以刪除, 效果不會變, 但我強烈反對這麼做, 一個變數的基本原則就是:先聲明,後使用.變數名用字母開頭,可以使用下劃線,數位, 但不能使用vbs已經定義的字, 比如dim, 也不能是純數字.
下一行被稱之為"賦值", "="是賦值符號, 並不是數學中的等於號, 儘管看起來一樣.這是正統的理解, 你要理解成等於也沒有什麼不可. 賦值號的左邊是一個變數, 右邊是要賦給變數的值, 經過賦值以後, msg這個變數在程式中等同於"請輸入你的名字:"這個字串,但當msg被再次複製的時候, 原值就會消失. 不光字串, 其他任何變數都這樣被賦值, 例如: a=2, b=12.222等等.
再往下,Inputbox和Msgbox是VBS內建的函數, 一個函數就相當於一個"黑箱", 有輸入(參數)和輸出(返回值), 你可以不用瞭解函數是怎麼運作的, 只要瞭解這個函數能幹什麼就行了, 我們也可以定義自己的函數, 不過那要等到以後再講. 現在我們只要瞭解, 一個函數可以有返回值也可以沒有, 可以有參數也可以沒有. 例如Inputbox就是有返回值的函數, 我們用賦值號左邊的變數來"接"住InputBox的返回值--就是你輸入的內容. 在inputbox右邊的括弧裏是參數列表, 每個參數用","分隔開, 每個參數有不同的功效, 比如第一個參數會顯示在提示裏, 我們把msg這個變數作為第一個參數傳給了Inputbox 函數, 而msg="請輸入你的名字:", 所以我們在對話方塊的提示欄就會看到"請輸入你的名字:" 第二個參數是對話方塊的標題, 我們用直接量(學名叫"常量", 這裏是"字串常量")傳遞給函數, 當然你也可以傳遞變數. Inputbox還有很多參數, 比如你在"名稱"後面再加一個","然後輸入隨便一串字元(字串,用雙引號""包裹起來的一串字元叫做字串)然後運行, 看看結果. 你會發現用於輸入的文本框有了默認的值, 這就是第三個參數的作用.
Msgbox函數是用來輸出的函數, 在VBS中沒有專門的輸出函數(BASIC中的print,C中的printf), 所以我們只能用對話方塊來觀察輸出結果, Msgbox的必要參數只有一個, 就是要輸出的內容, 在這種情況下, 我們不需要理會msgbox的返回值. 關於Msgbox和Inputbox我們以後還會在討論, 今天只是熱熱身, 到此為止.
要點:
1) 注釋(以REM或'開頭)行在程式中不起作用, 但能讓別人更容易讀懂你的程式.
2) 變數好像一個盒子, 或一個代號, 可以代表你想代表的東西. 變數賦值使用"="
3) 以""包裹起來的字元稱之為"字串"
4) 函數像一個"黑箱", 有參數和返回值, 用"="左邊的變數可以接住返回值
5) Inputbox函數彈出一個輸入對話方塊,Msgbox則用於輸出
作業:
1) 試驗Inputbox的第三個參數
2) 寫一段程式輸出你的年齡
3) 寫一段程式進行3次輸入, 分別輸入你和你父母的姓名(要求顯示提示), 並分3次輸出
第二篇：
我真沒想到, 第一次的作業竟然有人不會.
看來要講的非常非常細緻才行, 嗯, 今天講各種"量"和基本運算
先說常量, 這個比較簡單.
什麼是常量呢, 常量就是其值不可變化的量.
常量分為兩種:第一種, 自然常量. 這叫是因為它們本身就是常量, 你怎麼更改21的值呢? 他永遠都是21, 不可能變成46
如果你在程式中使用"21=46", 這樣的語句將會引發一個錯誤. 同樣的, 字串也是常量 (還記得字串嗎? 就是包裹在""之間的一串字元), "Hello World"就是一個例子, 如果你使用"Hello World"="Bye"這樣的語句同樣會引發一個錯誤. 你能舉出自然常量的更多例子嗎?
第二種, 是我們自己定義的常量,這種量也使用代號, 他們也被賦值, 但和變數的不同點在於, 他們在定義的時候被賦值,以後就不能改變了,如果企圖改變將會引發一個錯誤. 定義一個變數,我們使用"const"這個關鍵字(關鍵字的意思是系統定義了有特殊功能的字, 不能作為變數名或常量名使用),格式是:const 常量名=常量值.
例如:
const PI=3.1415926
const NAME="記憶碎片"
這樣我們就定義了兩個常量, PI和NAME, 一般說來, 常量名全部使用大寫, 但也可以不用, 隨你喜好. 將一些在程式中不需要改變的值定義為常量是個好習慣, 這樣能防止不必要的意外. 另外, 使用自定義常量也可以減少你的工作量. 比如:
msgbox("Hello World")
msgbox("Hello World")
msgbox("Hello World")
msgbox("Hello World")
msgbox("Hello World")
這個程式輸出五次Hello World, 如果你想要改變輸出為Bye-Bye, 就必須修改全部程式, 當然你可以手動修改5次, 但如果你要輸出1000次呢? 常量就可以替我們解決這個問題:
const hw="Hello World"
msgbox(hw)
msgbox(hw)
msgbox(hw)
msgbox(hw)
msgbox(hw)
這樣當你要修改輸出的時候只要修改hw的值就行了.
好了, 現在我們來看看編程的第一塊重要"基石":變數. 解釋變數最好的辦法我覺得是"盒子", 一個變數好像一個盒子, 裏面只能裝一個東西, 當你要裝進去別的東西的時候必須把原有的東西拿出來. 這個"盒子"是有名稱的, 當你在程式中使用變數的時候, 系統會打開盒子取出裏面的東西, 讓這些東西參與處理, 而不是盒子. 有些語言是很依賴"盒子"裏面裝些什麼東西, 這樣才能找到合適的"盒子"(比如C語言), 但VBS給我提供的是能夠自動伸縮的"魔術盒", 我們不用關心裝進去的是什麼東西,
VBS會自動調整盒子的大小. 例如:
Dim a1,a2,a3
a1=14
a2=12.23
a3="Hello"
而不用像C語言那樣麻煩: 或者是VB的正規聲明(VB可以聲明也可以不用)那樣:
int a1; Dim a1 as integer
float a2; Dim a2 as Double
char* a3; Dim a3 as strnig
a1=14; a1=14
a2=12.23; a2=12.23
a3="Hello"; a3="Hello"
嗯……扯遠了……
變數有什麼用呢? 哇, 那用處可大了. 最簡單, 你並不能確定程式運行時變數的值, 比如前一節課我們編的輸入姓名的程式, 你不能確定InputBox返回的是什麼(還記得Inputbox的返回值嗎? 就是你輸入的內容), 所以你就沒有辦法應對各種情況, 但我們用name這個"盒子"把用戶的名字裝起來, 到用的時候我們只要知道name這個盒子的名字就行了, 系統會自己打開他並把裏面的內容拿出來用. 再舉個例子, 我們編寫一個程式計算一個矩形的面積, 比如這個程式要發給小學生使用:
dim a,b,s
a=15
b=12
s=a*b
msgbox(s)
這樣就可以求出長為15,寬為12的矩形的面積了, 是不是很簡單? 當然, 這個程式也可以這樣寫:
dim s
s=15*12
msgbox(s)
這樣看起來程式短了許多, 也節約記憶體, 但並不是鼓勵的做法, 為什麼? 請看下麵.
現在, 我們的程式要變得像點樣子才行, 誰的程式寫出來還要別人修改源代碼才能用啊?
所以, 我們要接受用戶的輸入, 還記得嗎? InputBox函數.
修改後程式如下:
dim a,b,s
a=inputbox("請輸入矩形的長:")
b=inputbox("請輸入矩形的寬:")
s=a*b
msgbox(s)
ok, 這麼一修改, 無論用戶輸入怎樣的資料, 我們都能計算出矩形的面積了. 如果你用s=15*12能改嘛? 當然不行.
我想你已經發現了, vbs中的數學計算和真正的算術沒有什麼不同, +,-,*,/,(),[],{}都是一樣的用法, 比如:
dim ans
ans=12+32/4+[(23-10)*2]
msgbox(ans)
四則運算的法則在編程中同樣生效, 你可以在編程中重新獲得小學時候的樂趣(你恨數學?那就別學電腦了).
在編程中有一個有趣的運算符是"mod", 這個運算符叫做"取餘運算符", 就是取得一次除法的餘數, 例如
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
我們一次不要講太多, 這次就講到這裏, 現在總結一下.
要點:
1) 常量分為自然常量和自定義常量, 常量的值不可修改
2) 變數就像盒子, 我們不在乎盒子裏裝的是什麼, 但一定要知道盒子的名字
3) 四則運算在編程中沒有任何不同
4) MOD是取餘運算
作業:
1) 編一個程式, 計算圓形的面積, 半徑由用戶給出 (使用Inputbox) PI取值3.14159
2) 編一個程式取得20 / 3 的餘數
第三篇（共六篇）：
首先, 我來解決一下上次課程的幾個疑問
第一, 那個餘數問題, 16 / 5 = 3...1, 是因為我改過前面的部分, 後面的忘了改了, 不好意思.
第二, 請看一下程式清單:
1)
Dim a,b,c
a=inputbox("a是:","輸入半徑")
b=Inputbox("b是:","輸入半徑")
c=a*2+b*2
Msgbox(c)
這個 輸入1、2時是6
2)
Dim a,b,c
a=inputbox("a是:","輸入半徑")
b=Inputbox("b是:","輸入半徑")
c=(a+b)*2
Msgbox(c)
這個輸入1、2時是24
為什麼會不一樣呢? 在數學上c=(a+b)*2 和 c=a*2+b*2是等價的, 在VBS中也是如此. 問題出在"+"上, 在VBS中, +不僅僅是加號的意思還表示把兩個字元串連接起來, 例如"Hello"+"World"="HelloWorld" have you understood? 你還記得InoutBox函數的返回值嗎? 是字串! 這就看出問題了吧, 在編程中"1"不等於(<>)1, "1"是一個字元, 而1是一個數, 所以a,b都是字串變數, "1"+"2"="12", 這就好像我們小時跟夥伴開玩笑問他們1+1=?一樣, 我們總是笑著說"錯啦,應該是11".但為什麼, a可以*2卻不發生錯誤呢? 這時VBS比較智慧的一個表現, 如果這個字串的內容是一個數且對他進行數學運算, 則把字串強制轉換成數參與運算, 如果字串代表一個數, 但不參加數學運算, 而是參加字串運算(合併)則當作字串處理, 所以你看到a+b=12, 這時候a+b的結果(12)是一個字串, 當它要乘以2的時候就被強制轉換成了數位12, 這樣我就得到了結果24.
怎麼修改這個程式呢? 我們需要用到另一個內建的函數:int, int函數的功能是將輸入值轉化成整數值, 我們這樣修改:
c=(int(a)+int(b))*2
這個意思就是把a作為參數傳遞給int函數, int函數就會返回那個整數(你的輸入值), 然後讓返回值參與運算, 這樣就得到了正確答案.所以,以後如果你用的是inputbox函數的話,最好用int語句加工一下:比如c=int(c) '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 b>a then msgbox("B大於A")
我們只看最後一行, a>b這個式子(運算式)有一個返回值, 是bool型的. 因為這個式子只有兩種可能:b大於a, b不大於a, 所以這個式子也只有兩種可能性, 即真或者假. if語句判斷這個運算式的返回值是真還是假, 如果是真(true)則執行then後面的語句, 如果是假, 則不執行, 你把a的值改成14看看還會不會彈出對話方塊?
當我們要在判斷之後執行多行語句怎麼辦呢, 我們需要用語句塊來解決, 在這裏可以叫塊if
dim a,b
a=12
b=13
if a<b then
msgbox("A小於B")
msgbox("B大於A")
end if
兩個msgbox函數夾在if和end if之間, 這個部分就是語句塊, 塊裏的每一條語句之前請空出4--8(一個<Tab>鍵)個格, 這不是必需的, 但是是一個好習慣, 以便看清楚程式的結構. 這樣我們就能運行多於一個的語句, 請注意if...then...end if 這三個關鍵部分不要掉了. OK, 我出一個題, 輸入一個數, 如果小於100就輸出"錯誤", 如果大於100就輸出"正確", 我這裏有兩個程式版本:
dim a
a=inputbox("請輸入一個大於100的數")
a=int(a) 'inputbox返回的是字串, 我們把他變成整數 : )
if a>100 then msgbox("正確")
if a<100 then msgbox("錯誤")
還有一個更簡單的
dim a
a=inputbox("請輸入一個大於100的數")
a=int(a) 'inputbox返回的是字串, 我們把他變成整數
if a>100 then
msgbox("正確")
else
msgbox("錯誤")
end if
看到多了一個else了吧, else的作用就是當要判斷的運算式為false時執行的. 這樣程式就可以處理兩種不同的情況了. 不要忘了用end if結尾
嘿嘿, 我是變態者, 現在我要你處理三種情況, <100,=100,>100, 還要寫在一個if結構裏, 你怎麼辦, 我給你答案:
dim a
a=inputbox("請輸入一個大於100的數")
a=int(a) 'inputbox返回的是字串, 我們把他變成整數
if a>100 then
msgbox("正確")
elseif a=100 then
msgbox("老大, 你耍我?")
else
msgbox("錯誤")
end if
這次輸入100看看, 是什麼? else if語句可以在if結構中多次出現, 以靈活判斷不同的情況 (如果你要判斷得太多, 就請使用"選擇結構", 過會兒就講), 當所有elseif都處理完了,而沒有符合情況的時候再執行else中的語句.另一個例子:
Dim a,b,c,d
a=inputbox("a是:","輸入半徑")
b=Inputbox("b是:","輸入半徑")
d=Inputbox("答案:","輸入答案")
c=a*2+b*2 '這裏沒有問題, 會自動轉換
if d=c then
Msgbox("你好聰明")
else
Msgbox("你好豬頭 自己的題還不會!")
end if
再看看這個, 無論你回答得多麼正確你都是豬頭, 哈哈, 不是我耍你, 還是文章開始時候的inputbox的返回類型在耍你, d是inputbox的返回值, 他是一個字串, 而c是一次整數計算的結果, 他是一個整數. 一個字串無論如何也不等於一個整數, 儘管他們字面上是一樣的:"8"<>(不等於號)8 所以if的判斷式的值永遠是false, 總是執行else部分的語句. 我們可以這麼修改
Dim a,b,c,d
a=inputbox("a是:","輸入半徑")
b=Inputbox("b是:","輸入半徑")
d=Inputbox("答案:","輸入答案")
d=int(d)
'在這裏我們取出了d的值, 變成整數, 在放回"d"這個盒子裏
c=a*2+b*2
if d=c then
Msgbox("你好聰明")
else
Msgbox("你好豬頭 自己的題還不會!")
end if
這樣就成功了. 這也是Inputbox函數的一個討厭的地方, 沒辦法, vbs沒有其他好的輸入方式了.
說到if, 我們不得不說一說邏輯運算符, 今天介紹兩種, "and" 和 "or" 學會了if語句之後, 我舉一個例子, 你一看就明白了.
dim a,b
a=inputbox("輸入一個數 >10")
b=inputbox("輸入另一個數 >10")
a=int(a)
b=int(b)
if a>10 and b>10 then
msgbox("正確")
else
msgbox("錯誤")
end if
這段程式讓你輸入兩個值, 必須都大於10, 只要有一個不大於, 就輸出錯誤
dim a,b
a=inputbox("輸入一個數 >10")
b=inputbox("輸入另一個數 >10")
a=int(a)
b=int(b)
if a>10 or b>10 then
msgbox("正確")
else
msgbox("錯誤")
end if
這段程式讓你輸入兩個值, 只要有一個大於10, 就返回成功. 其實and和or很好理解, 我讀"if a>10 or b>10 then" 這一句, 用華語是這樣:"如果a大於10或者b大於10, 那麼...". 這樣是不是就很好理解了呢.
OK, 我們再來看一種新結構, 今天的課就結束, 已經午夜了, 我都累死了.
當你的程式要處理很多種不同的判斷情況的時候elseif..then會讓程式看起來很雜亂, 所以就有了一種select case結構專門對付這種情況, select case的語法結構很簡單:
select case 變數名
case 值
語句
case 值
語句
case else
語句
end select
我們舉個例子就能很簡單的說明：
dim a
a=inputbox("輸入一個1--3的值")
a=int(a) '處理inputbox返回字串的問題
select case a
case 1
msgbox("壹")
case 2
msgbox("貳")
case 3
msgbox("三")
case else
msgbox("輸入錯誤")
end select
這個例子把1,2,3這三個阿拉伯數字轉化成中國大寫數位, 這個程式寫成if...elseif 的形式如下
dim a
a=inputbox("請輸入1--3的值")
a=int(a)
if a=1 then
msgbox("壹")
elseif a=2 then
msgbox("貳")
elseif a=3 then
msgbox("三")
else
msgbox("輸入錯誤")
end if
怎麼樣, 麻煩吧, 還是select好吧.
OK, 今天到此結束, 總結一下:
要點:
1) inputbox返回的是一個字串, 而不是一個數, 必須用a=int(a)這種形式轉化成數
2) bool變數的值只有兩種:true,false
2.5) and兩邊的運算式都是true, 則返回true. or兩邊的運算式有一個是true, 就返回true
3) if 語句的格式
4) select...case的格式
作業:
1) 使用3個bool值, 儲存你的3兄弟姐妹是否是男性 (提示:sister1male=false)
2) 給定一個個數, 大於10而且小於20輸出"正確", 否則輸出"錯誤"
3) 輸入12,或者15, 輸出"正確", 否則輸出"錯誤"
4) 把5以內的正整數都轉換成中國大些數位
5) 自己隨便設計一個程式, 應用今天的知識
實用相關搜尋: ua nds av 討論 中國 電腦 it o2 魔術 rf
設為首頁
加入收藏
