dim a,b a=inputbox("輸入第一個數字","輸入") b=inputbox("輸入第二個數字","輸入") if a>b then MsgBox("第一個數大于第二個數") End if
運行后，要求用戶輸入兩個數字，第一個數字的值賦給a，第二個數字的值賦給b，然后程序自動判斷a和b，如果a的值大于b的值，就彈出信息提示框，顯示“第一個數大于第二個數”。注意：then后面的語句不與then在同一行時，判斷語句結束后要加一行End if來結束，否則程序會結束。如果是同一行的就不用再加上End if了，如上面的語句可改為： dim a,b a=inputbox("輸入第一個數字","輸入") b=inputbox("輸入第二個數字","輸入") if a>b then MsgBox("第一個數大于第二個數") 另外一個程序中可以用多個If語句，我們可以把上面的程序完善一下如下： dim a,b a=inputbox("輸入第一個數字","輸入") b=inputbox("輸入第二個數字","輸入") If a>b then MsgBox("第一個數大于第二個數") End if If a=b then MsgBox(“第一個數等于第二個數”) End if If ab then MsgBox(“第一個數小于第二個數”) End if 我們也可以再換用IF的其它語句If…Then…Else和If…Then….Elseif來實現相同的作用，如下： dim a,b a=inputbox("輸入第一個數字","輸入") b=inputbox("輸入第二個數字","輸入") If a>b then MsgBox("第一個數大于第二個數") Else IF a=b then MsgBox(“第一個數等于第二個數”) Else MsgBox(“第一個數小于第二個數”) End if End if ―――――――――――――――――――――――――――――――――――――― dim a,b a=inputbox("輸入第一個數字","輸入") b=inputbox("輸入第二個數字","輸入") If a>b then MsgBox("第一個數大于第二個數") Elseif a=b then MsgBox(“第一個數等于第二個數”) Else MsgBox(“第一個數小于第二個數”) End if
●Select Case語句 Select Case語句是多分支結構的另一種表示形式，它具有表示直觀的特點，結構簡單，不容易導致混亂，它的語法形式如下： Select Case 變量或表達式 Case 表達式1 語句1 Case 表達式2 語句2 End Select
dim a a=inputbox("輸入一個數字","輸入") Select Case a Case 1 MsgBox("你輸入的數英文是One") Case 2 MsgBox("你輸入的數英文是Two") Case 3 MsgBox("你輸入的數英文是Tree") Case 4 MsgBox("你輸入的數英文是Four") End Select
●For循環(huán)語句 For語句是用來控制循環(huán)次數已知的循環(huán)結構的，語句如下： For 循環(huán)變量＝初值 To 終值 [步長] 語句 [Exit for] '退出循環(huán)語句 Next 現在我們編寫一個計算從1加到100的整數和的程序，深入去了解For的用法，程序內容如下：
dim s s=0 for i=1 to 100 s=s+i next msgbox(s)
這段程序也是經典的程序之一，它首先聲明了一個變量S，然后給S賦個初始值0，for i=1 to 100語句讓i隨著每一次循環(huán)加1，循環(huán)體內的語句s=s+i也隨著i的增加進行累加，一直加到i=100時結束循環(huán)。Next語句讓循環(huán)體進入下一次循環(huán)。
