快捷導(dǎo)航

VBS基礎(chǔ)篇 - 條件語句(if與Select Case)

更新時(shí)間：2018年05月28日 23:33:53 作者：Ethon

經(jīng)常地，當(dāng)我們編寫代碼時(shí)，我們需要根據(jù)不同的判斷執(zhí)行不同操作，我們可以使用條件語句完成這個(gè)工作，asp中的條件語句主要是if與Select Case這里就為大家介紹一下,需要的朋友可以參考下

If...Then...Else

在下面的情況中，您可以使用 If...Then...Else 語句：

在條件為 true 時(shí)，執(zhí)行某段代碼

選擇兩段代碼之一來執(zhí)行時(shí)

dim a '定義一個(gè)變量
a = 100
if a < 200 then a = 300 '若i<200,則對(duì)i重新賦值
msgbox a '輸出的值為300

要運(yùn)行多行代碼，必須使用多行（或塊）語法，多行（或塊）語法包含 End If 語句

dim a,b,c
a=inputbox("請(qǐng)輸入a的值：")
b=100
c=200
if a<200 then '條件為 True 時(shí)運(yùn)行某一語句塊，條件為 False 時(shí)運(yùn)行另一語句塊
  msgbox b
else
  msgbox c
end if

對(duì)多個(gè)條件進(jìn)行判斷，可以添加任意多個(gè) ElseIf 子句以提供多種選擇

dim a
a=inputbox("請(qǐng)輸入a的值：")
if a<200 then '條件為 True 時(shí)運(yùn)行某一語句塊，條件為 False 時(shí)運(yùn)行另一語句塊
  msgbox "執(zhí)行語句1"
elseif a=200 then 
  msgbox "執(zhí)行語句2"
elseif a>200 then
  msgbox "執(zhí)行語句3"
end if

Select Case結(jié)構(gòu)提供了 If...Then...ElseIf結(jié)構(gòu)的一個(gè)變通形式，可以從多個(gè)語句塊中選擇執(zhí)行其中的一個(gè)。Select Case語句提供的功能與 If...Then...Else語句類似，但是可以使代碼更加簡練易讀。

'Select Case 結(jié)構(gòu)在其開始處使用一個(gè)只計(jì)算一次的簡單測(cè)試表達(dá)式。表達(dá)式的結(jié)果將與結(jié)構(gòu)中每個(gè) Case 的值比較，如果匹配，則執(zhí)行與該Case 關(guān)聯(lián)的語句塊。
dim a
a=inputbox("隨便填寫一個(gè)數(shù)")
a=int(a)
select case a 
  case 6,7,8,9 msgbox("還行")
  case 10,11,12,13,14,15 msgbox("一般")
  case 16,17,18,19,20 msgbox("可以了")
  case 21,22,23,24,25 msgbox("無敵了")
  case else msgbox("做夢(mèng)呢")
end select

注意： Select Case結(jié)構(gòu)只計(jì)算開始處的一個(gè)表達(dá)式（只計(jì)算一次），而 If...Then...ElseIf 結(jié)構(gòu)計(jì)算每個(gè) ElseIf 語句的表達(dá)式，這些表達(dá)式可以各不相同。僅當(dāng)每個(gè) ElseIf 語句計(jì)算的表達(dá)式都相同時(shí)，才可以使用 Select Case 結(jié)構(gòu)代替If...Then...ElseIf 結(jié)構(gòu)。

您可能感興趣的文章: