Giáo trình Microsoft Access 2000 Copyright
®
Nguyễn Sơn Hải
Trang 134 3.2 Cấu trúc SELECT CASE END SELECT
Đây là một loại của cấu trúc lựa chọn. Thông thường hoàn toàn có thể sử dụng If
End If để thực hiện các xử lý liên quan đến kiểu cấu trúc này, nhưng trong những
trường hợp đặc biệt, cấu trúc Select Case End Select thể hiện được sự tiện dụng
vượt trội. Trong VBA cú pháp lệnh này như sau:

Select Case <biểu thức>
Case <giá trị 1>
<thủ tục 1>
Case <giá trị 2>
<thủ tục 2>
………
Case <giá trị n>
<thủ tục n>
[Case Else
<thủ tục n+1>]
End Select Trong đó: <Biểu thức> luôn trả về giá trị kiểu vô hướng đếm được như: số
nguyên, xâu ký tự, kiểu lô gíc,
Với cấu trúc này, VBA hoạt động như sau:
(1) Tính giá trị của biểu thức
(2) Kiểm tra <biểu thức> = <giá trị 1> ?
- Nếu đúng thực hiện <thủ tục 1> và kết thúc lệnh, thực hiện lệnh tiếp theo sau từ

o
c
u
-
t
r
a
c
k
.
c
o
m
Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e

V
i
e
w

1 - Janualy
2 - Februaly
…
12 - December
>12 - Không xác định
Nếu dùng lệnh If hoàn toàn có thể đáp ứng được bài toán này, thay vào đó sẽ là
một tập h
ợp 12 lệnh If Else End If như sau:

If so = 1 Then
thang = "Janualy"
Else
If so = 2 Then
thang = "Feb"
Else
If so = 3 Then
thang = "Feb"
Else
If so = 4 Then
thang = "Feb"
Else
If so = 5 Then
thang = "Feb"
Else
If so = 6 Then
thang = "Feb"
Else
If so = 7 Then
thang = "Feb"
Else

w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e


Else
If so = 12 Then
thang =
"Feb"
Else
thang =
"Feb"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If Tuy nhiên khi sử dụng Select Case End Select, cấu trúc sẽ gọn gàng và sáng
sủa hơn nhiều. Cụ thể như sau:

Select Case so
Case 1
thang = "Janualy"
Case 2
thang = "Janualy"
Case 3

h
a
n
g
e

V
i
e
w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m

a
c
k
.
c
o
m
.
Giáo trình Microsoft Access 2000 Copyright
®
Nguyễn Sơn Hải
Trang 137

3.3 Cấu trúc FOR … NEXT
For… Next là một cấu trúc lặp biết trước số lần lặp trong VBA, tuy nhiên trong
những tình huống đặc biệt, vẫn có thể sử dụng cấu trúc này như cấu trúc không biết
trước được số lần lặp.
Cú pháp cấu trúc For…Next như sau:

For <biến chạy> = <giá trị 1> To <giá trị 2> [Step <n>]
<thủ tục>
[Exit For]
Next Trong đó:
- <biến chạy> là biến kiểu vô hướng đếm được, hay dùng nhất là biến kiểu
nguyên;
- <giá trị 1>, <giá trị 2> là các giá trị mà biến chạy sẽ nhận và thực hiện dịch
chuyển sau mỗi lần lặp. Có thể dịch chuyển đi 1 đơn vị, có thể dịch chuyển đi

e
w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
Click to buy NOW!
P
D
F
-
X
C
h

Giáo trình Microsoft Access 2000 Copyright
®
Nguyễn Sơn Hải
Trang 138

tong = 0
For i = 1 To 50
tong = tong +i
Next
Msgbox tong Ví dụ 2: Tính tổng các số chia hết cho 3 từ 1 đến 50, giá trị được lưu vào biến
tong.

Dim i As Byte
Dim tong As Integer

tong = 0
For i = 3 To 50 Step 3
tong = tong +i
Next
Msgbox tong

Lệnh For trong ví dụ này chỉ khác lệnh For ở ví dụ 1 ở chỗ Step 3. Vì <giá trị
1> = 3 là số chia hết cho 3, nên tất cả các giá trị i còn lại sẽ chia hết cho 3 (vì i = i
+3).

Ví dụ 3: Kiểm tra một số nguyên (>2) có phải là nguyên tố hay không?


g
e

V
i
e
w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
Click to buy NOW!
P
D

.
c
o
m
.