靈活實(shí)用VBS入門教程應(yīng)用篇
2019-10-26 17:57:43
供稿：網(wǎng)友
上一篇文章我們了解了VBS編程的一些基礎(chǔ)知識，要更深入地學(xué)習(xí)還要學(xué)習(xí)選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。
選擇結(jié)構(gòu)
選擇結(jié)構(gòu)，即是對條件進(jìn)行判斷，然后根據(jù)判斷的結(jié)果，選擇執(zhí)行不同的分支的結(jié)構(gòu)。常見的有IF條件語句和Select Case語句。
●IF條件語句
IF條件語句又有多種具體的形式，如If…Then、If…Then…Else、If…Then…ElseIf。下面分別用例程來說明。用筆記本編寫一個(gè)如下內(nèi)容的VBS腳本：
dim a,b
a=inputbox("輸入第一個(gè)數(shù)字","輸入")
b=inputbox("輸入第二個(gè)數(shù)字","輸入")
if a>b then
MsgBox("第一個(gè)數(shù)大于第二個(gè)數(shù)")
End if
運(yùn)行后，要求用戶輸入兩個(gè)數(shù)字，第一個(gè)數(shù)字的值賦給a，第二個(gè)數(shù)字的值賦給b，然后程序自動判斷a和b，如果a的值大于b的值，就彈出信息提示框，顯示“第一個(gè)數(shù)大于第二個(gè)數(shù)”。注意：then后面的語句不與then在同一行時(shí)，判斷語句結(jié)束后要加一行End if來結(jié)束，否則程序會結(jié)束。如果是同一行的就不用再加上End if了，如上面的語句可改為：
dim a,b
a=inputbox("輸入第一個(gè)數(shù)字","輸入")
b=inputbox("輸入第二個(gè)數(shù)字","輸入")
if a>b then MsgBox("第一個(gè)數(shù)大于第二個(gè)數(shù)")
另外一個(gè)程序中可以用多個(gè)If語句，我們可以把上面的程序完善一下如下：
dim a,b
a=inputbox("輸入第一個(gè)數(shù)字","輸入")
b=inputbox("輸入第二個(gè)數(shù)字","輸入")
If a>b then
MsgBox("第一個(gè)數(shù)大于第二個(gè)數(shù)")
End if
If a=b then
MsgBox(“第一個(gè)數(shù)等于第二個(gè)數(shù)”)
End if
If a<b then
MsgBox(“第一個(gè)數(shù)小于第二個(gè)數(shù)”)
End if
我們也可以再換用IF的其它語句If…Then…Else和If…Then….Elseif來實(shí)現(xiàn)相同的作用，如下：
dim a,b
a=inputbox("輸入第一個(gè)數(shù)字","輸入")
b=inputbox("輸入第二個(gè)數(shù)字","輸入")
If a>b then
MsgBox("第一個(gè)數(shù)大于第二個(gè)數(shù)")
Else
IF a=b then
MsgBox(“第一個(gè)數(shù)等于第二個(gè)數(shù)”)
Else
MsgBox(“第一個(gè)數(shù)小于第二個(gè)數(shù)”)
End if
End if
――――――――――――――――――――――――――――――――――――――
dim a,b
a=inputbox("輸入第一個(gè)數(shù)字","輸入")
b=inputbox("輸入第二個(gè)數(shù)字","輸入")
If a>b then
MsgBox("第一個(gè)數(shù)大于第二個(gè)數(shù)")
Elseif a=b then
MsgBox(“第一個(gè)數(shù)等于第二個(gè)數(shù)”)
Else
