3.1 Thủ tục (Sub Procedure):
Thực hiện các thao tác, nhưng không trả về một giá trị và không được dùng trong các biểu thức. Cú pháp:
Sub Tên_thủ_tục [(danh sách đối số)] [các câu lệnh]
[exit Sub] [các câu lệnh]
End Sub
Lời gọi thủ tục:
Tên_thủ_tục danh sách các đối số 3.2. Hàm (Function Procedure)
Trả về một giá trị, như là kết quả của một phép tính. Giá trị của hàm (giá trị hàm trả về) sẽ là giá trị của biểu thức gán cho tên hàm.
Cú pháp:
Function Tên_hàm [(danh sách đối số)] [As Type] [các câu lệnh] [Tên_hàm = Biểu_thức] [Exit Function] [các câu lệnh] [Tên_hàm = Biểu_thức] End Function Lời gọi hàm: Tên_hàm(danh sách các đối số) 4. Các hàm, thủ tục vào ra: 4.1. Hàm InputBox và InputBox$:
Hàm InputBox trả về một giá trị kiểu Variant
Hàm InputBox$ trả về một giá trị kiểu chuỗi (String) Cú pháp :
InputBox [$] (Lời_nhắc , [ Tiêu_đề] , [Giá_trị_mặc_định] , [X_hộp, Y_hộp])
Lời_nhắc : là một biểu thức chuỗi dùng để nhắc nhở, hướng dẫn việc nhập liệu. Để ngắt xuống dòng, dùng ký tự chr(10).
Tiêu_đề : là biểu thức chuỗi hiện trên thanh tiêu đề của hộp thoại. Giá_trị_mặc_định : là biểu thức chuỗi hiện trên hộp văn bản.
X_hộp, Y_hộp : là tọa độ tính bằng twips của điểm góc trên/trái của hộp thoại. Khi chọn nút OK thì hàm trả về giá trị có trong hộp văn bản
Khi chọn nút Cancel thì hàm trả về chuỗi có độ dài không (chuỗi rỗng – “”). 4.2. Hàm MsgBox và thủ tục MsgBox :
Thủ tục MsgBox dùng để đưa một biểu thức chuỗi ra hộp thoại.
Hàm MsgBox dùng để đưa một biểu thức chuỗi ra hộp thoại và nhận một giá trị số trả về (để biết được người dùng chọn nút nào trong các nút: Ok, Cancel, Retry, …).
Cú pháp hàm :
Cú pháp Thủ tục :
MsgBox nd,[kiểu],[tiêu_đề] Trong đó :
nd : là một biểu thức chuỗi, nội dung của nó sẽ được đưa ra hộp thoại
tiêu_đề : là một biểu thức chuỗi được hiện trên thanh tiêu đề của hộp thoại, mặc định là “Microsoft Access”.
Kiểu : là một tổng các số nguyên dùng để xác định : các nút sẽ hiển thị, các biểu tượng, nút mặc định được chọn.
Nhóm 1 : các nút Nhóm 2 : các biểu tượng Nhóm 3 : các mặc định được chọn
Giá trị Ý nghĩa Giá trị Ý nghĩa Giá trị Ý nghĩa
0 1 2 3 4 5 Hiện chỉ nút Ok Hiện các nút Ok và Cancel Hiện các nút Abort, Retry và Ignore Hiện các nút Yes, No và Cancel Hiện các nút Yes và No Hiện các nút Retry và cancel
0 16 32 48 64
Không hiện biểu tượng
Hiện biểu tượng Critical Message Hiện biểu tượng Warning Query Hiện biểu tượng Warning Message Hiện biểu tượng Information Message 0 256 512 Nút đầu tiên Nút thứ hai Nút thứ ba Giá trị của hàm : Giá trị hàm Phím được chọn 1 OK 2 Cancel 3 Abort 4 Retry Giá trị hàm Phím được chọn 5 Ignore 6 Yes 7 No
BÀI TẬP1. Cấu trúc chọn If 1. Cấu trúc chọn If
Sub dt_ht()
Dim bk as Integer, dt as Double
Bk = InputBox("Nhap ban kinh hinh tron: ")If bk > 0 then If bk > 0 then
dt = bk*bk*3.14
MsgBox "Dien tich hinh tron = " & dt Else
MsgBox "Ban kinh khong hop le" End If
End Sub
Sub Chan_le ()
Dim so As Integer, du As Integer, tb so = InputBox("Nhap so nguyen") du = so Mod 2
If du = 0 then
MsgBox so & " la so chan" Else
MsgBox so & " la so le" End If
End Sub