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
主站蜘蛛池模板:
七台河市|
吉木乃县|
海晏县|
大港区|
耒阳市|
西宁市|
富裕县|
桦川县|
合川市|
衡阳市|
赤壁市|
包头市|
长宁区|
邵武市|
泗水县|
南昌市|
进贤县|
祁连县|
华容县|
永春县|
博客|
平阴县|
泸溪县|
三原县|
嘉善县|
剑阁县|
竹北市|
通化县|
鲁山县|
沁源县|
邵阳县|
娄烦县|
循化|
陵川县|
贺兰县|
灌云县|
临武县|
衡阳县|
子洲县|
红安县|
绿春县|