麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > VBScript > 正文

靈活實用VBS入門教程應用篇

2020-07-26 12:05:53
字體：大 中 小
來源：轉載
供稿：網友
上一篇文章我們了解了VBS編程的一些基礎知識，要更深入地學習還要學習選擇結構和循環結構。

　　選擇結構

　　選擇結構，即是對條件進行判斷，然后根據判斷的結果，選擇執行不同的分支的結構。常見的有IF條件語句和Select Case語句。

　　●IF條件語句
　　IF條件語句又有多種具體的形式，如If…Then、If…Then…Else、If…Then…ElseIf。下面分別用例程來說明。用筆記本編寫一個如下內容的VBS腳本：

　　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
　　 主站蜘蛛池模板： 欧美福利视频一区二区三区 | 久久久久免费精品国产小说色大师 | 成人精品免费在线观看 | 91av在线国产 | 日本爽快片100色毛片视频 | 久久久线视频 | 线观看免费完整aaa 久久不雅视频 | 最新av在线免费观看 | 国产一区二区在线免费播放 | 久久久久国产成人免费精品免费 | 欧美大逼网 | 久草成人在线观看 | 欧美另类激情 | 国产精品久久久久久久午夜片 | 日本aaaa片毛片免费观看视频 | 国产成人高清在线观看 | 免费a级观看 | 毛片国产 | 久久精品免费网站 | 国产精品久久77777 | 亚洲乱妇19p | 成人福利视频网站 | 毛片视频网站 | wwwxxx免费视频 | 欧美a黄| 97伦理 | qyl在线视频精品免费观看 | 色婷婷久久久亚洲一区二区三区 | 午夜精品福利影院 | 毛片在线免费观看完整版 | 久久久久夜色精品国产老牛91 | 99激情 | 国产成人精品免费视频大全办公室 | 国av在线 | 欧美亚洲一级 | 黄色高清视频网站 | 久久伊 | 欧美性黄 | 亚洲小视频在线 | 一级大片一级一大片 | 日本黄色a视频 |