1
2
Lậptrìnhứng dụng trên Visual Basic
z Giớithiệu chung
z Các sự kiệnvàxử lý sự kiện
z Biếnvàcáckiểudữ liệucơ bản
z Cú pháp củathủ tục/hàm
z Các cấutrúcđiềukhiểncơ bản
z Làm việcvớikiểudữ liệuDate
z Class module
3
Biến và các kiểudữ liệucơ bản
z Mộtsố kiểudữ liệucơ bản:
Kiểudữ liệuPhạmvi
Integer
-32768 32767
Long -2,147,483,648 2,147,483,647
Currency -922,337,203,685,477 922,337,203,685,477
Date 1/1/100 12/31/9999
String 0 2 tỷ ký tự
Byte 0 255
Boolean True – False
4
Biến và các kiểudữ liệucơ bản
z Khai báo biến
Dim TênBiến As KiểuDữLiệu
z Lưuý:
– Các biếnthuộckiểudữ liệucơ bảncóthể sử
dụng ngay sau khi khai báo
Dim X As Integer
X = 5

STR S = STR(123)
X = VAL(“123”)
X = ASC(“A”)
S = CHR(65)
X = INSTR (“ABCA”, “A”)
X = INSTR (2, “ABCA”, “A”)
X = INSTR (“ABCA”, “D”)
X = LEN(“ABC”)
S = LEFT(“ABC”, 2)
S = RIGHT(“ABC”, 2)
S = MID(“ABCD”, 3, 1)
S = LCASE(“Abc”)
S = UCASE(“Abc”)
S = “123”
VAL X = 123
ASC X = 65
CHR S = “A”
INSTR X = 1
X = 4
X = 0
LEN X = 3
LEFT S = “AB”
RIGHT S = “BC”
MID S = “C”
LCASE S = “abc”
UCASE S = “ABC”
8
Thủ tụcvàhàm
Mộtsố ví dụ:
Private Sub P1 ()

(Các) Lệnh
ElseIf điều_kiện Then
(Các) Lệnh
Else
(Các) Lệnh
End If
If điều_kiện Then
(Các) Lệnh
ElseIf điều_kiện Then
(Các) Lệnh
Else
(Các) Lệnh
End If
If điều_kiện Then
(Các) Lệnh
End If
If điều_kiện Then
(Các) Lệnh
End If
If điều_kiện Then
(Các) Lệnh
Else
(Các) Lệnh
End If
If điều_kiện Then
(Các) Lệnh
Else
(Các) Lệnh
End If
10

Next
For biến_lặp=Biên_dưới To Biên_trên Step GiáTrị
(Các) lệnh
Next
Exit For
12
Các cấutrúcđiềukhiểncơ bản
Select Case Biến
Case giá_trị_1
(Các) lệnh
Case giá_trị_2
(Các) lệnh
Case Else
(Các) lệnh
End Select
Select Case Biến
Case giá_trị_1
(Các) lệnh
Case giá_trị_2
(Các) lệnh
Case Else
(Các) lệnh
End Select
Select Case Bi
Case giá_tr
(Các) l
Case giá_tr
(Các) l
Case Else
(Các) l

X = Year (Now)
1: Sunday, 2: Monday…
Time
Now
Timer
Day
Month
Year
Weekday
DateDiff
14
Làm việcvớikiểudữ liệuDate
Enumeration value String Đơnvị thờigian
DateInterval.Day d Day
DateInterval.DayOfYear y Day
DateInterval.Hour h Hour
DateInterval.Minute n Minute
DateInterval.Month m Month
DateInterval.Quarter q Quarter
DateInterval.Second s Second
DateInterval.Weekday w Week
DateInterval.WeekOfYear ww Calendar week
DateInterval.Year yyyy Year
15
Class Module
z Tạomới 1 class module
z Khai báo các thuộctínhvàphương thức
z Từ khóa Public và Private
z Property
z Mộtsố vấn đề khác