Cấu trúc lệnh điều khiển
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (269.44 KB, 21 trang )
Bµi gi¶ng
CÊu tróc lÖnh ®iÒu khiÓn
I. 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 Sub
2. If ...Then...Else
Có ph¸p :
If < ®iÒu kiÖn1> Then
[ Khèi lÖnh 1]
[ ElseIf <®iÒu kiÖn 2> Then
[khèi lÖnh 2]...........
[Else]
[khèi lÖnh n]
End If
VÝ d 1ụ
VÝ d 1ụ
If
If
tuoi <18
tuoi <18
Then
Then
Msgbox
Msgbox
Ban chua den tuoi lao dong“ ”
Ban chua den tuoi lao dong“ ”
ElseIf
ElseIf
tuoi <60
tuoi <60
Then
Then
Msgbox
Msgbox
Ban van trong do tuoi lao dong“ ”
Ban van trong do tuoi lao dong“ ”
Else
Else
Msgbox
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
If Number < 10 Then
Digits = 1
Digits = 1
ElseIf Number < 100 Then
ElseIf Number < 100 Then
Digits = 2
Digits = 2
Else
Else
Digits = 3
Digits = 3
End If
End If
If Digits = 1 Then MyString = "One" Else
If Digits = 1 Then MyString = "One" Else
MyString = "More than one"
MyString = "More than one"
3 Select Case
Nhằm gii quyết trường hợp quá nhiều ElseIf lồng
nhau, giúp cho chương trỡnh sáng sủa dễ đọc. Biểu thức
logic được so sánh một lần vào đầu cấu trúc. Sau đó VB
so sánh với từng Case, nếu bằng nó thực hiện khối lệnh
trong Case đó.
Mỗi danh sách biểu thức có thể chứa một hoặc
nhiều giá trị. Các giá trị cách nhau nhờ dấu phy. Mỗi
khối lệnh có thể không chứa hoặc chứa một hay nhiều
dòng lệnh. Nếu có hơn một Case tho mãn điều kiện thỡ
khối lệnh của Case đầu tiên tho mãn sẽ được thi hành.
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] ]
[
[
Case <
Case <
danh s¸ch biÓu thøc 2>
danh s¸ch biÓu thøc 2>
[khèi
[khèi
lÖnh 2] ]
lÖnh 2] ]
......................
......................
[
[
Case Else
Case Else
[khèi lÖnh n] ]
[khèi lÖnh n] ]
End Select
End Select
