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 a<b 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
主站蜘蛛池模板:
团风县|
古交市|
辉南县|
十堰市|
商河县|
茶陵县|
潮安县|
天峻县|
河南省|
方山县|
琼海市|
榆社县|
太和县|
揭东县|
文昌市|
固原市|
若羌县|
石楼县|
巴马|
永登县|
锡林郭勒盟|
锡林浩特市|
河津市|
安图县|
西丰县|
股票|
桓台县|
象州县|
苗栗市|
儋州市|
若尔盖县|
合肥市|
凌云县|
察隅县|
沁水县|
琼海市|
织金县|
青海省|
高安市|
罗山县|
尖扎县|