LỆNH KHAI BÁO

Chia sẻ: Nguyễn Phương Hà Linh Linh | Ngày: | Loại File: PDF | Số trang:17

Thêm vào BST

Báo xấu

78
lượt xem 6
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: 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 Date d) 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 Type f) Lệnh Sub
Ý Nghĩa : Dùng để khai báo tên thủ tục, tham số, 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 sub Vị trí : Lệnh được dùng trong phần thủ tục của Modules. Giải thích : Private : Phạm vi ảnh hưởng : trong Modules 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 Sub Ví dụ 2 : Sub mainSub() Dim bienInt As Integer bienInt = 5 TruyenTri bienInt
MsgBox bienInt, vbOKOnly, "Truyen Tri" TruyenThamChieu bienInt MsgBox bienInt, vbOKOnly, "Truyen Tham Chieu" End Sub Sub TruyenTri(ByVal ThamSoint As Integer) ThamSoint = 10 End Sub Sub TruyenThamChieu(ByRef ThamSoint As Integer) ThamSoint = 10 End Sub
Ví dụ 3 : Sub tinhTong(ParamArray SotienArray() As Variant) Dim tongtien As Variant, Sotien As Variant For Each Sotien In SotienArray tongtien = tongtien + Sotien Next Sotien MsgBox tongtien, vbOKOnly, "Tong so tien" End Sub Ví 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ửa sổ 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 Sub Ví 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 Function Ví dụ 2 : Function tinhTong(ParamArray SotienArray() As Variant) As Double Dim tongtien As Variant, Sotien As Variant For Each Sotien In SotienArray tongtien = tongtien + Sotien Next Sotien TinhTong = tongtien End Function Ví dụ 4 : Function soNgayDasong(ByVal Ngaysinh As Date, Optional ByVal ngayhientai As Variant) As Integer Dim soNgay As Integer
If IsMissing(ngayhientai) Then ngayhientai = Date End If soNgay = ngayhientai – Ngaysinh soNgaydasong = songay End Function Chú ý : Để chạy thử các thủ tục trên, ta vào cửa sổ Debug và gõ ? TinhCanhHuyen (4,5) ? TinhTong (1,2,3,4,5) ? SoNgayDaSong (#12/5/1980#) hay ? SoNgayDaSong (#12/5/1980#, #04/03/2001#) h)Lệnh Redim Ý Nghĩa : Khai báo lại số chiều của mảng. Cú pháp :
Redim [Preserve ] tenBien(chieu) [As loaidulieu][, tenBien(chieu) [as loaidulieu]] Vị trí : Lệnh được dùng trong thủ tục. Giải thích : Preserve : dùng để lưu dữ liệu đang có trong mảng. TenBien : Tên biến đã khai báo bằng lệnh Dim. Chieu : Qui định số chiều và số phần tử của mảng. Loaidulieu : Loại dữ liệu của biến i) Lệnh Option Base Ý Nghĩa : Khai báo chỉ số biến thấp của mảng. Cú pháp : Option Base {0 | 1} Vị trí : Lệnh được dùng trong phần khai báo.
Giải thích : 0 : chỉ số bắt đầu bằng 0. 1 : chỉ số bắt đầu bằng 1. Ví dụ : Option Base 0 Sub optionBase() Dim mangSoNguyen(5) As Single Dim chiso As Integer For chiso = 1 To 5 mangSoNguyen(chiso) = Rnd() Next chiso End Sub Option Base 1 Sub optionBase() Dim mangSoNguyen(5) As Single Dim chiso As Integer For chiso = 1 To 5 mangSoNguyen(chiso) = Rnd() Next chiso