Khi ta có một biến số và truyền biến số này cho một chương trình con nhưng ta không muốn giá trị trong biến số này bị thay đổi khi gọi chương trình con đó thì lúc định nghĩa chương trình con, tham số hình thức tương ứng phải ở dạng tham trị (có từ khoá byVal đứng trước).
Thực hành:Viết chương trình tăng giá trị của một số lên 1 đơn vị và hiển thị.
Hướng dẫn: Hãy gõ đoạn lệnh dưới đây và chạy, bạn sẽ quan sát thấy rằng, giá trị của biến số X sẽ không bị thay đổi giá trị sau khi kết thúc gọi thủ tục Tang, mặc dù trong chương trình có làm thay đổi giá trị của tham số truyền vào. Tham số truyền vào chỉ bị thay đổi tạm thời trong thủ tục đó mà thôi, bởi vì tham số ta khai báo ở dạng THAM TRỊ.
Viết lệnh: Option Explicit
'/// Khai báo thủ tục với tham số ở dạng tham trị (Có từ khoá byVal)
PrivateSubTang(ByValaAsInteger) a = a + 1
MsgBox "Giá trị của tham số trong thủ tục là : " & a End sub
PrivateSubForm_Load()
DimXAsInteger
X = 10
MsgBox "X ban đầu là " & X Tang X
MsgBox "X sau khi gọi thủ tục vẫn là : " & X End sub
Kết quả sau khi chạy
Kết luận:
• Khi tham số hình thức khai báo ở dạng tham trị thì tham số thực sự truyền vào sẽ không bị thay đổi bởi chương trình con đó (cho dù trong chương trình con có lệnh làm thay đổi tham số truyền vào).
• Khi khai báo tham số ở dạng tham trị thì tham số thực sự truyền vào có thể là hằng số, biến số hay biểu thức....