国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

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