48
Ví dụ sau tính tổng của các số từ 1 đến 10:
Dim i As Integer
Dim Tong As Integer
Tong = 0
For i = 1 To 10 Step 1
Tong = Tong + i
Next
Debug.Print ("Tong = " & Tong)
Kết quả như sau:

Ví dụ sau tính tổng của các số chẵn từ 0 đến 10:
Dim i As Integer
Dim Tong As Integer
Tong = 0
For i = 0 To 10 Step 2
Tong = Tong + i
Next
Debug.Print ("Tong = " & Tong)
Kết quả như sau:

CHÚ Ý Khi giá trị của <bước_nhảy> là âm (<0) thì cấu trúc lặp sẽ thực hiện trình tự
đếm ngược, nghĩa là vai trò của giá trị <bắt_đầu> và <kết_thúc> đổi chỗ cho nhau.
Ví dụ tính tổng của các số chẵn từ 0 đến 10 sử dụng vòng lặp đếm ngược:
Dim i As Integer
Dim Tong As Integer
Tong = 0
For i = 10 To 0 Step -2
Tong = Tong + i

Ơ
Ơ


B
B
Ả
Ả
N
N


V
V
Ề
Ề


N
N
G
G
Ô
Ô
N
N


N
N

S
S
U
U
A
A
L
L


B
B
A
A
S
S
I
I
C
C



49

GỢI Ý Nếu như muốn thoát khỏi vòng lặp xác định FOR khi mà số lần lặp chưa đủ thì ta
sử dụng từ khóa Exit For.
Ví dụ sau sẽ tính tổng của các số chẵn từ 0 đến 10, nhưng sẽ dừng vòng lặp FOR ngay khi tổng
lớn hơn 20:
Dim i As Integer

Ví dụ sau sẽ thực hiện tính tích các số trong một mảng 2 chiều với việc dùng vòng lặp trong tập
hợp. Kết quả sẽ được hiển thị trong cửa sổ Immediate.
Public Sub TestForEach()
Dim a(0 To 2, 0 To 1) As Double
Dim v As Variant
Dim Tich As Double
a(0, 0) = 1: a(1, 0) = 2: a(2, 0) = 3 50
a(0, 1) = 4: a(1, 1) = 5: a(2, 1) = 6
Tich = 1
Debug.Print "Cac phan tu trong mang"
For Each v In a
Debug.Print v
Tich = Tich * v
Next
Debug.Print "Tich=" & Str(Tich)
End Sub
Kết quả như sau:

8.4. Vòng lặp không xác định
Thực hiện một khối lệnh với số lần lặp không định trước và chỉ kết thúc quá trình lặp này khi
một biểu thức điều kiện được thỏa mãn (biểu thức điều kiện có giá trị Boolean:
True hoặc
False). Tùy thuộc vào việc kiểm tra biểu thức điều kiện mà ta sử dụng một trong hai dạng cú
pháp như sau:
Kiểu1:LặptrongkhibiểuthứcđiềukiệnlàTRUE
Do While <điều_kiện>
[Khối_lệnh]

I
I
I
:
:


C
C
Ơ
Ơ


B
B
Ả
Ả
N
N


V
V
Ề
Ề


N
N
G

N
H
H


V
V
I
I
S
S
U
U
A
A
L
L


B
B
A
A
S
S
I
I
C
C


Về cơ bản, chương trình con là một khối các câu lệnh và chúng được sử dụng lặp lại trong
chương trình chính thông qua tên của chương trình con. Chương trình con đặc biệt hữu ích khi
thay thế các khối lệnh lặp nhau hoặc cùng thực thi một chức năng tương tự nào đó.
Có hai loại chương trình con chính là Hàm (
Function) và Thủ tục (Sub). Ngoài ra, trong các
mô-đun lớp (
Class Module) còn có chương trình con dạng thuộc tính (Property), tuy nhiên
trong giáo trình này sẽ không trình bày về loại chương trình con này mà người đọc có thể tham
khảo trong giáo trình môn Lập trình hướng đối tượng trong xây dựng.
Cú pháp tổng quát của một chương trình con như sau:
Cú pháp tổng quát của một chương trình con như sau:
[Private|Friend|Public][Static]<Sub|Function|Property>
Tên([các_tham_số])
[Khối_lệnh] 52
End <Sub|Function|Property>
Trong đó phần thân chương trình con được bọc giữa phần khai báo và phần kết thúc (có từ
khóa
End).
Các từ khóa
[Private|Public|Friend] xác định phạm vi hoạt động của chương trình con.
Khái niệm phạm vi này cũng tương tư như phạm vi của biến đã được trình bày ở phần trước.
Từ khóa
[Static] xác định cách thức cấp phát bộ nhớ cho các biến khai báo bên trong
chương trình con (sẽ trình bày cụ thể ở phần sau).
CHÚ Ý Từ khóa Friend chỉ được sử dụng trong mô-đun lớp hoặc mô-đun lệnh của
UserForm.
9.1. Hàm (Function)