LỆNH KHAI BÁO

Khái niệm : Ta có thể dùng các lệnh khai báo (Declaration statements) để đặt tên và định nghĩa thủ tục (Procedures), biến (Variables), mảng (Array) và hằng (Constants), loại dữ liệu do người dùng định nghĩa.
Nội dung trích xuất từ tài liệu:
LỆNH KHAI BÁO I. LỆNH KHAI BÁO 1) Khái niệm : Ta có thể dùng các lệnh khai báo (Declaration statements) để đặt tên và định nghĩa thủ tục (Procedures), biến (Variables), mảng (Array) và hằng (Constants), loại dữ liệu do người dùng định nghĩa. Tầm ảnh hưởng của biến phụ thuộc vào vị trí khai báo biến. 2) Các lệnh khai báo : a) Lệnh Option Compare o Ý nghĩa : Dùng để khai báo cách thức so sánh chuỗi ký tự. o Cú pháp : Option compare {Binary | Text | Database } o Vị trí : Lệnh được sử dụng trong phần khai báo của bộ mã lệnh. Giải thích : Binary : So sánh chuỗi ký tự căn cứ vào thứ tự nhị phân của bảng mã các ký tự. Text : So sánh chuỗi ký tự không phân biệt chữ hoa chữ thường. Database : so sánh chuỗi ký tự dựa vào đặc điểm riêng của bộ mã ký tự của từng địa phương.b) Lệnh Option Explicit o Ý Nghĩa : Các biến phải được khai báo trước khi sử dụng. o Cú pháp : Option Explicit o Vị trí : Lệnh được sử dụng trong phần khai báo của bộ mã lệnh.c) Lệnh Dim Ý Nghĩa : Khai báo tên và loại dữ liệu hay loại đối tượng của biến. Cú pháp : Dim tenBien[([chieu])] [As [new] laoidulieu] [, tenBien[([chieu])] [As [New] loaidulieu]]… Vị trí : Tênbiến : Tên biến. Chieu : Qui định số chiều và số phần tử ở mỗi chiều của biến mảng. Chiều có dạng : [choSothap To] chiSoCao [,[chisoThap to] choSoCAo] New : Dùng cho biến loại đối tượng. New là tạo một đối tượng mới và khởi gán biến tham chiếu đến đối tượng vừa tạo. Một biến được khai báo New thì không cần dùng lệnh set để tham chiếu cho biến. Loaidulieu : Loại dữ liệu của biến. Là một trong các loại Byte, Boolean, Integer, Long, Curremcy, Single, Double, Date, String, String *Length, Object, Variant, loại do người dùng định nghĩa hay một loại đối tượng Ví dụ : Dim myInt As integer Dim X as New WorkSheet Dim NgayLe (1 to 20 ) As Dated) Lệnh Const Ý Nghĩa : Khai báo tên hằng và giá trị mà chúng đại diện. Cú pháp : [Public | Private] Const TenHang [As loaiDulieu] = bieuThuc Vị trí : Lệnh nằm trong thủ tục hay trong phần khai báo của modules. Giải thích : Public : Hằng được dùng trong thủ tục của bất kỳ Modules nào. Private : Hằng chỉ được dùng trong thủ tục của modules chứa lệnh Const TenHang : Tên hằng. LoaiDulieu : Là một trong các kiểu dữ liệu.e) Lệnh Type Ý Nghĩa : Dùng để khai báo một loại dữ liệu cấu trúc. Cú pháp : [Private | Public] Type Tenloai tenThanhPhan [([chieu]}] As loaiDuLieu [tenThanhPhan [([chieu]}] As loaiDuLieu] End Type Vị trí : Lệnh được dùng trong khai báo của Module. Giải thích : Tenloai : Tên loại dữ liệu cấu trúc. Chieu : Qui định số chiều và số phần tử ở mỗi chiều của biến mảng. Loaidulieu : Loại dữ liệu củ biến. Ví dụ : Type diem X As Double Y as Double End Typef) Lệnh SubÝ Nghĩa : Dùng để khai báo tên thủ tục, thamsố, và các lệnh thủ tục của Sub.Cú pháp : [Private | Public ] [static] Sub tenThuTuc[(danhSachThamSo)] [lenh] [Exit Sub] [lenh] end subVị trí : Lệnh được dùng trong phần thủ tục củaModules.Giải thích : Private : Phạm vi ảnh hưởng : trongModules chứa lệnh. Public : Phạm vi ảnh hưởng : trong tất cảmodules của tập tin CSDL. Static : Biến cục bộ sẽ được bảo lưu giá trị. DanhsachThamSo : Gồm các tham số cách nhau bởi dấu phẩy.Ví dụ 1: Tính cạnh huyền của một tam giác. Sub TinhCanhHuyen(ByVal canhA As Double, ByVal canhB As Double) Dim CanhHuyen As double CanhHuyen =(CanhA^2 + CanhB^2) ^ 0.5 Msgbox Csrt (canhHuyen), vbOkOnly, “Tinh Canh Huyen” End SubVí dụ 2 : Sub mainSub() Dim bienInt As Integer bienInt = 5 TruyenTri bienInt MsgBox bienInt, vbOKOnly, TruyenTri TruyenThamChieu bienInt MsgBox bienInt, vbOKOnly, TruyenTham Chieu End Sub Sub TruyenTri(ByVal ThamSoint As Integer) ThamSoint = 10 End Sub Sub TruyenThamChieu(ByRef ThamSoint As Integer) ThamSoint = 10 End SubVí dụ 3 : Sub tinhTong(ParamArray SotienArray()As Variant) Dim tongtien As Variant, Sotien AsVariant For Each Sotien In SotienArray tongtien = tongtien + Sotien Next Sotien MsgBox tongtien, vbOKOnly, Tongso tien End SubVí dụ 4 : Sub soNgayDasong(ByVal Ngaysinh As Date, Optional ByVal ngayhientai As Variant) Dim soNgay As Integer If IsMissing(ngayhientai) Then ngayhientai = Date End If soNgay = ngayhientai - Ngaysinh MsgBox soNgay, vbOKOnly, So ngay da song End Sub Chú ý : Để chạy thử các thủ tục trên, ta vào cửasổ Debug và gõ TinhCanhHuyen 4,5 MainSub TinhTong 1,2,3,4,5 SoNgayDaSong #12/5/1980# hay SoNgayDaSong #12/5/1980#, #04/03/2001# g) Lệnh Function : Ý Nghĩa : Dùng để khai báo tên hàm, tham số, và loại dữ liệu trả về của hàm. Cú pháp : [private | Public ][Static] Function tenHam([danhsachThamso]) [as loaiDulieu] [lenh] [tenham =bieuthuc] [Exit Function] [lenh] [tenHam = bieuthuc] End Function. Vị trí : Lệnh được dùng trong phần thủ tục của Module. Giải thích : Giống SubVí dụ 1: Tính cạnh huyền của một tam giác. Function TinhCanhHuyen(ByVal canhA As Double, ByVal canhB As Double) As Double Dim CanhHuyen As double CanhHuyen =(CanhA^2 + CanhB^2) ^ 0.5 TinhCanhHuyen =CanhHuyen End Fu ...