Khai báo biến
• Thực hành:Khai báo các biến tương ứng với các kiểu dữ liệu cơ bản trong VB, sau đó gán giá trị và hiển thị giá trị của các biến ra màn hình bằng hàm
MsgBox.
• Hướng dẫn:Các kiểu dữ liệu cơ bản trong VB bao gồm Byte,Integer, Long, Single, Double, String, Variant…
• Viết lệnh:Tạo một Project mới và gõ đoạn lệnh sau trongForm
Option Explicit
DimToanCucTrongFormAs Integer
PublicToanCucTrongUngDungAs Integer Private SubForm_Load()
DimbAsByte
DimBoolAsBoolean
DimiAsInteger DimLAsLong DimFAsSingle DimDAsDouble DimSAsString DimS1AsString * 30 DimVAsVariant
MsgBox "Biến b, chiếm 1 byte, phạm vi biểu diễn 0-255" MsgBox "Biến Bool, 2 byte, biểu diễn giá trị True và False" MsgBox "Biến i, 2 byte, phạm vi: -32768 ... +32767"
MsgBox "Biến L, chiếm 4 byte, phạm vi: -2,147,483,648 đến 2,147,483,647 " MsgBox "Biến F, chiếm 4 byte, biểu diễn số thực âm và dương"
MsgBox "Biến D, chiếm 8 byte, biểu diễn số thực âm và dương rất lớn" MsgBox "Biến S, chiếm 10+độ dài của xâu. có thể lưu tới 2 tỉ ký tự"
MsgBox "Biến S1 là biến xâu có độ dài cố định (trường hợp này là 30)." & _ "có thể lưu tối đa khoảng 65400 ký tự"
MsgBox "Biến V là biến Variant, chiếm 16 byte. Nó có thể lưu bất kỳ loại giá trị nào" End sub
Giải thích thêm:
• BiếnToanCucTrongForm(Toàn cục trongForm) được khai báo với từ khoá
Dimlà biến có thể sử dụng ở bất kỳ đâu trong chínhFormnó được khai báo. • BiếnToanCucTrongUngDung(toàn cục trong toàn ứng dụng) được khai báo
với từ khoáPubliccó thể sử dụng ở bất kỳFormnào trong toàn ứng dụng. • Các biến khai báo trongSubForm_Load được gọi là các biến cục bộ trong thủ
tục, chúng chỉ được sử dụng bên trong chính thủ tục đó mà thôi.
• Đối với các biến thuộc kiểu Variant thì khi khai báo chỉ cần viết, ví dụ: DimV • Khai báoDimV, SAsString tương đương với :DimVAsVariant, SAs
String (V sẽ có kiểu là Variant chứ không phải là string !!!). • Biến kiểu Variant không được hỗ trợ trong phiên bản VB.NET !.
• Dấu & _ (Có 1 dấu cách giữa dấu & và dấu _ ) cho phép ngắt câu lệnh trên nhiều dòng.
Gán và hiển thị giá trị của các biến
Thực hành:Gán giá trị cho các biến và hiển thị ra màn hình
Viết lệnh:Gõ đoạn code sau vào trongForm
DimToanCucTrongFormAsInteger
PublicToanCucTrongUngDungAsInteger PrivateSubForm_Load()
DimbAsByte
DimBoolAsBoolean
DimiAsInteger DimLAsLong DimFAsSingle DimDAsDouble DimSAsString DimS1AsString * 30 DimVAsVariant
App.Title = "Khai báo biến trong Visual Basic" b = 100 Bool = True i = 30000 L = 500000 F = 123.456 D = 1.5E+30
S = "Khoa Công nghệ Thông tin" S1 = "Bộ môn Công nghệ phần mềm" V = 10000
ToanCucTrongForm= 10
ToanCucTrongUngDung = 1000 MsgBox "b=" & b
MsgBox "Bool=" & Bool MsgBox "i=" & i
MsgBox "L = " & L MsgBox "F=" & F MsgBox "D=" & D MsgBox "S=" & S MsgBox "S1=" & S1 MsgBox "V=" & V
MsgBox "ToanCucTrongForm=" & ToanCucTrongForm
MsgBox "ToanCucTrongUngDung=" & ToanCucTrongUngDung End sub