- Xác định bảng dữ liệu nguồn cho báo cáo Nhấn OK để hoàn tất
(Tiếptheo) 4 Các lệnh lặp ( For , Do , While )
4. Các lệnh lặp (For, Do, While)
a. Lặp hữu hạn từ 0 đến nhiều lần For:
For <biến> = <gtrị 1> To <gtrị 2> [Step n]
<Các câu lệnh>
Next [<biến>]
Ngữ nghĩa: Nếu không có [Step n] thì mặc định là
Step 1.
Ban đầu <biến> nhận <gtrị 1>. Chừng nào mà giá
trị của <biến> còn nhỏ hơn hoặc bằng <gtrị 2> (với
n>0) hay lớn hơn hoặc bằng <gtrị 2> (với n<0) thì
<Các câu lệnh> còn được thực hiện; sau mỗi lần
thực hiện thì giá trị của <biến> sẽ được cộng thêm
với gia số n.
Ví dụ: Tính giá trị của n giai thừa (n! = 1.2.3...n)
Dim f As Double, i As Integer
(Tiếp theo)
For i = 1 To n
f = f * i
Next i
Trong số các câu lệnh sau For, có thể có các lệnh
Exit For để kết thúc bất thường (kết thúc sớm) vòng lặp.
b. Lặp vô hạn lần Do:
Dạng b1):
Do [While / Until <điều kiện>] <Các câu lệnh>
Loop
(Tiếp theo)
Ngữ nghĩa: Chừng nào <điều kiện> còn thỏa mãn
(với từ khóa While) thì còn thực hiện <các câu
lệnh> sau Do; hoặc còn thực hiện <các câu lệnh>
sau Do cho tới khi (Until) điều kiện được thỏa.
Trong dạng b1) điều kiện sẽ được kiểm tra trước khi
thực hiện các câu lệnh. Còn trong dạng b2) điều
kiện sẽ được kiểm tra sau khi thực hiện xong các
câu lệnh.
Có thể kết thúc vòng lặp một cách bất thường nhờ
câu lệnh Exit Do trong vòng lặp.
c. Lặp với số lần không biết trước While.
While <điều kiện> <Các câu lệnh>
(Tiếp theo)
Ngữ nghĩa: Chừng nào <điều kiện> sau While còn
thỏa thì <các câu lệnh> sau Do còn được thực hiện.
Không có lệnh để kết thúc vòng lặp một cách bất thường.
d. Lặp với các phần tử trong 1 tập hợp For Each ... Next.
For Each <phần tử> In <Nhóm> <Các câu lệnh>
Next <phần tử>
Ví duï:
Dim MyDB As DAO.Database, MyTab As
DAO.Tabledef