Bµi gi¶ng
CÊu tróc lÖnh ®iÒu khiÓnI. Cấu trúc chọn
1. If...Then
Cấu trúc một dòng lệnh:
If <điều kiện> Then <dòng lệnh>
Cấu trúc nhiều dòng lệnh:
If <điều kiện> Then
<Các dòng lệnh>
End If
iều kiện ở đây là một biểu thức Logic tr
về kết qu True / False.VÝ dô: nhập vào một số, kiểm tra xem số đó
có phải là chẵn không? In thông báo
Sub InputNum()
Dim A as byte
A=inputbox(“nhap vao so a”)
If (A MOD 2) = 0Then
msgbox “A la một số chẵn”
End If
End Sub2. If ...Then...Else
Có ph¸p :

ThenMsgbox
Msgbox
Ban van trong do tuoi lao dong“ ”
Ban van trong do tuoi lao dong“ ”Else
ElseMsgbox
Msgbox
Ban da het tuoi lao dong“ ”
Ban da het tuoi lao dong“ ”
End If
End If

vÝ dô 2
vÝ dô 2
Dim Number, Digits, MyString
Dim Number, Digits, MyString
Number = 53
Number = 53
If Number < 10 Then

Case Else không nhất thiết phi có, nó dùng trong trường
hợp còn lại của các Case trước đó. Có ph¸p:
Có ph¸p: Select Case <
Select Case <
biÓu thøc kiÓm tra>
biÓu thøc kiÓm tra>[
[
Case <
Case <
danh s¸ch biÓu thøc 1>
danh s¸ch biÓu thøc 1>[khèi lÖnh 1] ]
[khèi lÖnh 1] ]

[
[
End Select
End Select