【道勤網(wǎng)】- bmrsportswear.com 軟件視頻自學(xué)教程|免費教程|自學(xué)電腦|3D教程|平面教程|影視動畫教程|辦公教程|機械設(shè)計教程|網(wǎng)站設(shè)計教程！【道勤網(wǎng)】

標(biāo)題: 10-程序流程控制——Select Case語句介紹 [打印本頁]
作者: excel交流    時間: 2017-9-20 01:35
標(biāo)題: 10-程序流程控制——Select Case語句介紹
Select Case語句同IF語句一樣，也是條件判斷的語句。它的功能也可以用IF語句來完成。但是，當(dāng)程序的條件太多，用IF語句來判斷的話就存在一些不足了，比如程序是否美觀？是否便于閱讀？程序的執(zhí)行效率等等。Select Case語句在執(zhí)行的效率上，同IF語句相比，肯定是要快得多。

[Select Case語句的語法]
　　Select Case 測試表達(dá)式
     　　 Case 條件表達(dá)式1
           　　 語句塊1
     　　 Case 條件表達(dá)式2
         　　   語句塊2
     　　Case 條件表達(dá)式3
         　　   語句塊3
    　　 ......
  　　   Case 條件表達(dá)式n
       　　     語句塊n
    　　 Case Else
       　　     語句塊Else
     End Select.

當(dāng)某個條件表達(dá)式與測試表達(dá)式相匹配時，則執(zhí)行其后的語句塊，否則執(zhí)行Case Else后的語句塊，然后結(jié)束Select Case塊的執(zhí)行。同IF語句一樣，可以不要Case Else語句。
“如對A1單元格的學(xué)生成績進行等級評定，小于等于30分的為差，30分到59分的為不及格，60分到79分的為及格，80分到89分的為良好，90到100分的為優(yōu)秀�！庇肧elect Case語句來解決就是：

  2. Sub test()
  3.   If [a1].Value = "" Then
  4.       MsgBox "A1單元格沒有輸入數(shù)字。"
  5.       Exit Sub '     退出程序
  6.   End If
  7.   Select Case [a1].Value
  8.       Case 0 To 29
  9.           MsgBox "差"
  10.       Case 30 To 59
  11.           MsgBox "不及格"
  12.       Case 60 To 79
  13.           MsgBox "及格"
  14.       Case 80 To 89
  15.           MsgBox "良好"
  16.       Case Else
  17.           MsgBox "優(yōu)秀"
  18.   End Select
  19. End Sub
復(fù)制代碼
[attach]5327[/attach]




歡迎光臨 【道勤網(wǎng)】- bmrsportswear.com 軟件視頻自學(xué)教程|免費教程|自學(xué)電腦|3D教程|平面教程|影視動畫教程|辦公教程|機械設(shè)計教程|網(wǎng)站設(shè)計教程！【道勤網(wǎng)】 (http://bmrsportswear.com/) Powered by Discuz! X3.4