Lệnh Select Case có gì khác so với lệnh if
Về cơ bản giống lệnh if nhưng cách việt gọn hơn.
Select Case expresison
Case value1
// Chạy nếu expresison = value1, sau đó thoát khỏi lệnh Select
lệnh ...
Case value2
// Chạy nếu expresison = value2, sau đó thoát khỏi lệnh Select
lệnh ...
....
Case Else
// Chạy nếu không có case nào trên thỏa mãn
lệnh ...
End Select
Ví dụ lệnh Select Case trong VBA như sau
Private Sub btSelect_Click()
Dim so As Integer
so = cbSo.Value
Select Case so
Case 1
lblKQ.Caption = "So 1"
Case 2
lblKQ.Caption = "So 2"
Case 3
lblKQ.Caption = "So 3"
Case Else
lblKQ.Caption = ".."
End Select
End Sub
Private Sub btIf_Click()
Dim so As Integer
so = cbSo.Value
If so = 1 Then
lblKQ.Caption = "So 1"
ElseIf so = 2 Then
lblKQ.Caption = "So 2"
ElseIf so = 3 Then
lblKQ.Caption = "So 3"
End If
End Sub
So sánh giữa lệnh if và select
Private Sub btOK_Click()
Dim so
so = txtSo.Value
Select Case so
Case 1 To 5
MsgBox "So tu 1 den 5"
Case 6, 7, 8
MsgBox "So tu 6 den 8"
Case 9 To 10
MsgBox "9 den 10"
Case Else
MsgBox "Not between 1 and 10"
End Select
End Sub |
Private Sub btIf_Click()
Dim so
so = txtSo.Value
If so >= 1 And so <= 5 Then
MsgBox "So tu 1 den 5"
ElseIf so = 6 Or so = 7 Or so = 8 Then
MsgBox "So tu 6 den 8"
ElseIf so = 8 Or so = 9 Then
MsgBox "9 den 10"
Else
MsgBox "Not between 1 and 10"
End If
End Sub |