[Case danh_sách_biểu_thức-n
[nhóm_lệnh-n]] . . .
[Case Else danh_sách_biểu_thức-n
[elsenhóm_lệnh-n]]
End Select
Thành phần Mô tả
biểu_thức_kiểm_tra Bất kỳ biểu thức số hoặc chuỗi
danh_sách_biểu_thức-
nhóm_lệnh-n Nhóm lệnh sẽ chạy nếu biểu_thức_kiểm_tra trùng với bất kỳ biểu thức nào trong danh_sách_biểu_thức-n.
elsenhóm_lệnh-n Nhóm lệnh sẽ chạy nếu biểu_thức_kiểm_tra không trùng với bất kỳ biểu thức nào trong các mệnh Case.
Ví dụ
Dim Color, MyVar
Sub ChangeBackground (Color) MyVar = lcase (Color)
Select Case MyVar
Case "red" document.bgColor = "red" Case "green" document.bgColor = "green" Case "blue" document.bgColor = "blue" Case Else MsgBox "pick another color" End Select
End Sub
---
Phát biểu thủ tục Sub:Giống như Function nhưng không trả về giá trị.
Xem Function
Mô tả
Khai báo tên, đối số, và mã hình thành thân của thủ tục hàm Sub procedure. Cú pháp
[Public [Default] | Private] Sub tên_sub [(danh_sách_đối_số)] [nhóm_lệnh] [Exit Sub] [nhóm_lệnh] End Sub --- Vòng lặp While...Wend: Mô tả
Thực hiện một dãy lệnh trong khi điều kiện là True. Syntax While điều_kiện [nhóm_lệnh] Wend Thành phần Mô tả
điều_kiện 1 biểu thức số hoặc chuỗi định giá True hoặc False. Nếu điều_kiện là
Null, điều_kiện xem như False.
nhóm_lệnh Nhóm lệnh được thực hiện khi điều kiện là True.
Ví dụ
Dim Counter
Counter = 0 ' Khởi tạo biến.
While Counter < 20 ' Test giá trị Counter. Counter = Counter + 1 ' Tăng Counter. Alert Counter
Wend 'Kết thúc lặp While khi Counter > 19. ---
Phát biểu On Error
Làm tăng hiệu quả điều khiển lỗi chương trình. Khi một lệnh nào đó trong chương trình bị lỗi thì phát biểu On Error Resume Next sẽ bỏ qua lệnh đó và điều khiển chương trình thực hiện lệnh tiếp theo sau lệnh bị lỗi.
On Error Resume Next Ví dụ:
On Error Resume Next
Err.Raise 6 ' Raise an overflow error.
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description) Err.Clear ' Clear the error.
---