C
C
H
H
Ư
Ư
Ơ
Ơ
N
N
G
G


I
I
I
I
I
I
:
:


C
C
Ơ
Ơ


B


L
L
Ậ
Ậ
P
P


T
T
R
R
Ì
Ì
N
N
H
H


V
V
I
I
S
S
U
U
A

Ø

Trước biến b không có từ khóa, nghĩa là sử dụng kiểu mặc định của VB.
Ø
Ø

Trước biến c là từ khóa
ByVal.
Chương trình con thứ hai được xây dựng trên cùng một mô-đun với chương trình con trên
như sau:
Public Sub CallTest()
Dim va As Long, vb As Long, vc As Long
va = 500: vb = 500: vc = 500
' In giá trị của biến trước khi gọi chương trình con thứ nhất
Debug.Print " Cac gia tri bien truoc khi goi chuong trinh con:"
Debug.Print "va=" & Str(va)
Debug.Print "vb=" & Str(vb)
Debug.Print "vc=" & Str(vc)
' Gọi chương trình con thứ nhất
Test va, vb, vc
' In giá trị của biến sau khi gọi chương trình con thứ nhất
Debug.Print " Cac gia tri bien sau khi goi chuong trinh con:"
Debug.Print "va=" & Str(va)
Debug.Print "vb=" & Str(vb)
Debug.Print "vc=" & Str(vc)
End Sub
Trong chương trình con thứ 2 có lời gọi đến chương trình con thứ nhất để thực hiện thay đổi
giá trị của các biến. Kết quả khi thực thi chương trình con thứ 2 như sau:

Qua kết quả trên có thể thấy rằng:

chương trình con biến này bị tác động.
Qua ví dụ trên có thể thấy rằng việc truyền tham số cho chương trình con có thể được phân làm
hai trường hợp và được đặt tên là truyền tham số theo tham chiếu và truyền tham số theo tham
trị.
9.3.1. Truyền tham số theo tham chiếu
Khi truyền một biến vào tham số theo kiểu tham chiếu, địa chỉ của biến sẽ
được truyền cho
chương trình con. Do đó, bất kì câu lệnh nào của chương trình con tác động lên tham số sẽ ảnh
hưởng trực tiếp lên biến được truyền tương ứng, nghĩa là khi chương trình con kết thúc, giá trị
của biến được truyền theo kiểu này sẽ bị thay đổi do chương trình con. Truyền tham số theo
kiểu tham chiếu là mặc định trong VB, người dùng cũng có thể chỉ rõ việc truyền theo tham
chiếu bằng cách thêm từ
khoá ByRef vào trước khai báo tham số.
9.3.2. Truyền tham số theo tham trị
Khi truyền một biến vào tham số theo kiểu tham trị, bản sao giá trị của biến sẽ được truyền cho
cho chương trình con. Do đó, nếu trong chương trình con có các câu lệnh tác động lên tham số
thì chỉ bản sao bị ảnh hưởng và biến truyền vào sẽ không bị thay đổi, nghĩa là sau khi chương
trình con kết thúc, giá trị của biến vẫn được giữ nguyên như ban đầu. Để
xác định cách thức
truyền dữ liệu cho một tham số theo kiểu tham trị, thêm từ khoá
ByVal vào trước khai báo
tham số.
Trong
Sub Test ở trên, a và b là hai tham số được truyền theo kiểu tham chiếu còn c được
truyền theo kiểu tham trị.
9.3.3. Tham số tuỳ chọn.
Tham số tuỳ chọn là tham số có thể có hoặc được bỏ qua khi gọi chương trình con.
Các tham số tuỳ chọn được khai báo với từ khoá
Optional và trong một chương trình con, các
khai báo của các tham số tuỳ chọn luôn phải nằm cuối danh sách tham số được khai báo.

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

R
R
Ì
Ì
N
N
H
H


V
V
I
I
S
S
U
U
A
A
L
L


B
B
A
A
S
S

Visual Basic 6.0 cho phép tạo một chương trình con với danh sách tham số tuỳ ý (nghĩa là số
lượng các tham số có thể thay đổi khi gọi chương trình con) thông qua việc đặt từ khoá
ParamArray trước danh sách tham số. Khi đó danh sách tham số là tuỳ chọn và có dạng một
mảng kiểu
Variant.
Ví dụ: viết một hàm tính tổng của tất cả các số truyền vào với số lượng số được truyền là tuỳ ý.
Mã lệnh tham khảo như sau:
Public Function TinhTong(ParamArray ds())
Dim So As Variant
Dim Tong As Variant
Tong = 0
For Each So In ds
Tong = Tong + So
Next
TinhTong = Tong
End Function
Khi đó:
TinhTong(100,200,-200) cho kết quả là 100
TinhTong(2,300) cho kết quả là 302
9.3.5. Hàm có giá trị trả về là kiểu mảng.
Để khai báo một hàm trả về mảng, thêm cặp kí tự “( )” sau khai báo hàm
[Private/Public] Function <Tên_hàm> ([danh sách tham số]) as _
<kiểu_dữ_liệu> ()
[Khối_lệnh]
End Function
Ví dụ: viết chương trình con sắp xếp các phần tử trong mảng một chiều và trả về một mảng có
thứ tự tăng dần. 56

Next
Debug.Print "Cac phan tu cua mang sau khi sap xep:"
For Each so In b
Debug.Print so
Next
End Sub
Kết quả như sau:

C
C
H
H
Ư
Ư
Ơ
Ơ
N
N
G
G


I
I
I
I
I
I
:
:



N
N
G
G
Ữ
Ữ


L
L
Ậ
Ậ
P
P


T
T
R
R
Ì
Ì
N
N
H
H



Như đã trình bày ở phần trước, biến trong chương trình con luôn có tính chất cục bộ. Tuy nhiên
hình thức cấp phát bộ nhớ cho biến thì có thể khác nhau. Tuỳ vào từng trường hợp cụ thể:
Trường hợp: trong phần khai báo của chương trình con không sử dụng từ khóa Static
Với các biến được khai báo bình thường với từ khoá Dim: mỗi lần chương trình con được gọi,
biến sẽ được tạo và cấp phát bộ nhớ. Khi chương trình con kết thúc, bộ nhớ dành cho biến được
giải phóng. Do đó, giá trị của biến sau mỗi phiên làm việc của chương trình con sẽ không được
lưu trữ.
Với các biến đượ
c khai báo với từ khoá Static: biến sẽ được khởi tạo một lần khi mô-đun chứa
chương trình con được nạp vào trong bộ nhớ và sẽ tồn tại trong bộ nhớ cùng với mô-đun đó. Vì
vậy, giá trị của biến sau mỗi phiên làm việc của chương trình con sẽ được lưu trữ. Các biến
kiểu này được gọi là biến tĩnh (
Static)
Ví dụ: trong chương trình con
StVariable dưới đây có hai biến địa phương, stA là biến tĩnh
và
B là biến thông thường.
Public Sub StVariable()
Static stA As Long
Dim B As Long
B = B + 1
stA = stA + 1
Debug.Print "Lan chay " & Str(stA), "stA=" & Str(stA), "B=" &
Str(B)
End Sub
Kết quả sau 2 lần chạy chương trình con trên như sau:

Giảithích
Ngay khi được khai báo, tất cả các biến đều được tự động khởi tạo giá trị ban đầu, nếu kiểu dữ
liệu của biến là dạng số thì giá trị khởi tạo bằng 0, còn nếu kiểu dữ liệu của biến là chuỗi thì giá