LỆNH GÁN (ASIGNMENT STATEMENTS)

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

Thêm vào BST

Báo xấu

56
lượt xem 4
download

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

Khái niệm : Dùng để gán giá trị cho một biến hay một hằng. Lệnh gán được sử dụng trong thân của thủ tục. 2) Các lệnh gán : a) Lệnh Lct : Ý Nghĩa : Gán giá trị một biểu thức cho một biến.

Chủ đề:

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

Lưu

Nội dung Text: LỆNH GÁN (ASIGNMENT STATEMENTS)

I. LỆNH GÁN (ASIGNMENT STATEMENTS) 1) Khái niệm : Dùng để gán giá trị cho một biến hay một hằng. Lệnh gán được sử dụng trong thân của thủ tục. 2) Các lệnh gán : a) Lệnh Lct : Ý Nghĩa : Gán giá trị một biểu thức cho một biến. Cú pháp : [Let] tenBien| tenHam = BieuThuc tenBien.TenThanhPhan = BieuThuc tendoiTuong{ . | ! } {Thuoctinh | tenDoiTuong) = BieuThuc Vị trí : Lệnh được dùng trong thủ tục sau các lệnh khai báo. Giải thích :
TenBien : Tênbiến khai báo trong lệnh Dim hay trong tham số của thủ tục. TenThanhPhan : tên thành phần trong lệnh Type. Thuoctinh : Aùp dụng khi tenbien1 là đối tượng. TenDoiTuong : Tên đối tượng. TenHam : tên hàm khai báo trong lệnh Function. BiueThuc : biểu thức mà giá trị nó gán cho biến. Ví dụ : Function lenhgan(hocsinhPar As hocsinhtype) As Integer Dim hocsinhVar As hocsinhtype Dim myDB As Database 'Gan gia tri vao tenBien.TenThanhPhan
hocsinhPar.hsMa = 1 hocsinhPar.hoten = "Nguyen Minh Hung" hocsinhPar.malop = "CDTH4A" 'tenBien la loai du lieu dinh nghia boi lenh Type hocsinhVar = hocsinhPar 'tenBien Forms!hocsinhFrm!hsMa = 5 Forms!hocsinhFrm!hsMa.Visible = True 'tenHam lenhgan = 5 End Function b) Lệnh Set : Ý nghĩa : Gán đối tượng cho một biến thuộc loại đối tượng tương ứng.
Cú pháp : Set tenBien = {[New] bieuThuc | Nothing} Vị trí : lệnh được dùng trong thủ tục sau khi khai báo. Giải thích : TenBien : Khai báo trong lệnh Dim hay trong tham số thủ tục. Bieuthuc : Biểu thức có giá trị là một đối tượng. Ví dụ : Sub tinhtong Dim myDB as database Dim mySet As recordset Set myDb = CurrentDB Set mySet = myDb.OpenRecordSet(“NhanVien”)
End Sub