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