Giáo trình Lập trình Visual Basic (Phần 1)

GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 1 
LỜI NÓI ĐẦU 
Giáo trình “Lập trình Visual Basic” được biên soạn nhằm phục vụ cho các đối tượng 
học viên Trung cấp Tin học, Kỹ thuật viên Tin học và những ai muốn làm quen với ngôn 
ngữ lập trình đầy tính năng này. Nội dung của Giáo trình phù hợp với các đối tượng học 
viên và cơ cấu môn học hiện nay đang được giảng dạy tại Trung tâm Phát triển phần mềm - 
Ðại học Ðà Nẵng. Giáo trình được chia làm 9 Chương: 
Chương 1: Một số khái niệm mở đầu. Giúp học viên nắm vững các kiến thức cơ bản về 
lập trình, chương trình, thuật toán, các hệ đếm.... 
Chương 2: Giới thiệu Ngôn ngữ lập trình Visual Basic. Tìm hiểu một cách tổng quát về 
Ngôn ngữ lập trình Visual Basic, cách cài đặt chương trình vào bộ nhớ, cách thực thi một 
chương trình cũng như tìm hiểu một số khái niệm về đối tượng, điều khiển ,... 
Chương 3: Bước đầu lập trình với Visual Basic. Tìm hiểu một số vấn đề phục vụ cho 
việc viết một chương trình đơn giản đầu tiên như: cửa sổ soạn thảo mã lệnh, các kiểu dữ 
liệu, cách khai báo biến, mảng, phép toán và thứ tự ưu tiên của các phép toán, ... 
Chương 4: Các cấu trúc lệnh Visual Basic. Tìm hiểu các cấu trúc lệnh của Visual Basic 
như các câu lệnh điều kiện, các vòng lặp. 
Chương 5: Các điều khiển cơ bản. Tìm hiểu các điều khiển cơ bản của Visual Basic như 
Label, TextBox, CommandButton, CheckBox, OptionButton, ListBox, PictureBox... và áp 
dụng để giải quyết một số bài toán đơn giản. 
Chương 6: Chương trình con. Trình bày ưu điểm và phương pháp sử dụng chương trình 
con đồng thời giới thiệu một số chương trình con (hàm và thủ tục chuẩn) có sẵn của Visual 
Basic. 
Chương 7: Các điều khiển nâng cao. Tìm hiểu các điều khiển nâng cao của Visual Basic 
ngoài các điều khiển cơ bản như: CommonDialog, ImageList, ListView, TreeView, 
ProgressBar, ToolBar, StatusBar, cách tạo hệ thống Menu trong Visual Basic. 
Chương 8: Truy cập Cơ sở dữ liệu. Trình bày phương pháp truy cập Cơ sở dữ liệu trong 
Visual Basic sử dụng các đối tượng truy cập Cơ sở dữ liệu DAO (Data Acces Object), ADO 
(ActiveX Data Object) và RDO (Remote Data Object). 
Chương 9: Bài thực hành. Giới thiệu các bài thực hành tham khảo giúp cho học viên có 
thể tự thực hành sau khi đã nắm vững lý thuyết. Học viên còn có thể thực hành theo các ví 
dụ minh họa trong giáo trình này. 
Do thời gian học không nhiều, khối lượng kiến thức lại lớn hơn nữa các đối tượng học 
viên chưa có nhiều kinh nghiệm trong lập trình. Vì vậy để giúp học viên nắm được kiến 
thức cơ bản môn học, chúng tôi đã rất kỹ càng trong quá trình biên soạn, tham khảo nhiều 
tài liệu cũng như thực tế giảng dạy môn học Lập trình Visual Basic tại Trung tâm Phát triển 
Phần mềm - Ðại học Ðà Nẵng trong thời gian qua. Mặc dầu vậy, Giáo trình này chắc chắn 
sẽ không tránh khỏi thiếu sót. Chúng tôi rất mong nhận được sự góp ý chân tình của bạn đọc 
cũng như bạn bè đồng nghiệp gần xa. 
 TT. Phát triển phần mềm - Ðại học Ðà Nẵng 
 Ðịa chỉ: 41 Lê Duẩn - Tp. Ðà Nẵng 
 Email: sdc@ud.edu.vn 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 2 
 CHƯƠNG I: MỘT SỐ KHÁI NIỆM MỞ ĐẦU 
Từ khi con người đã chế tạo thành công máy vi tính, máy vi tính chỉ có thể giúp con 
người thực hiện một số phép toán đơn giản như: cộng, trừ. Trong suốt quá trình phát triển 
máy vi tính đã không ngừng thay đổi cả về kích thước cũng như tốc độ tính toán ngày càng 
nhanh hơn. Từ những bài toán đơn giản ban đầu mà máy tính có thể thực hiện được, đến nay 
máy vi tính đã tham gia vào cuộc sống con người hầu như trên tất cả mọi lĩnh vực. Ðể thực 
hiện được những điều kỳ diệu đó con người đã tác động vào máy vi tính bằng một hoạt 
động mang tính trí tuệ cao đó là Lập trình. 
I. KHÁI NIỆM VỀ LẬP TRÌNH 
Lập trình là viết chương trình trên dựa trên một ngôn ngữ lập trình cụ thể nhằm giải 
quyết một vấn đề hoặc một bài toán được đặt ra mà máy tính có thể hiểu, thực hiện và cho 
ra kết quả. Sản phẩm của lập trình gọi là Chương trình, một chương trình lớn có thể được 
gọi là Phần mềm. Ðể lập trình, nhất là giải quyết các bài toán lớn nên trải qua các bước: 
- Phân tích vấn đề cần giải quyết: Nội dung vấn đề là gì? cần phải làm gì? 
- Xây dựng thuật toán và cấu trúc dữ liệu để giải quyết vấn đề: Làm như thế nào? 
- Viết chương dựa trên một ngôn ngữ lập trình đã chọn. 
- Chạy thử chương trình, sửa sai và hoàn thiện. 
- Bảo trì và nâng cấp chương trình. 
Như vậy máy tính được lập trình nó chỉ giải quyết được những bài toán mà cách giải 
quyết chúng đã được con người nghĩ ra, điều đó khẳng định rằng máy tính không có khả 
năng sáng tạo ra phương pháp giải quyết một bài toán. 
Lợi dụng tốc độ tính toán cực nhanh của mình (hàng chục triệu phép tính trên giây) máy 
tính ngày nay đã thay con người giải quyết một số bài toán rất hiệu quả, giải thoát con người 
khỏi một số công việc nhàm chán, mất rất nhiều thời gian và công sức. 
Tuy nhiên trong cuộc sống không phải bất cứ bài toán nào máy tính cũng có thể giải 
quyết được, có những bài toán con người thực hiện rất đơn giản nhưng rất khó hoặc không 
thể áp dụng bài toán đó cho máy tính thực hiện. Những bài toán như vậy gọi là những bài 
toán không thể giải được trên máy tính. 
Một bài toán có thể có nhiều phương pháp giải quyết khác nhau, vấn đề của người lập 
trình là phân tích để lựa chọn phương pháp giải quyết tốt nhất. Tốt nhất được hiểu trên các 
khía cạnh đó là thời gian thực hiện nhanh nhất, tiêu tốn bộ nhớ máy tính ít nhất và thời gian 
soạn thảo chương trình ít nhất. 
II. NGÔN NGỮ LẬP TRÌNH 
Ngôn ngữ lập trình là công cụ để viết chương trình điều khiển máy tính thực hiện các 
công việc theo ý muốn. Cùng với quá trình phát triển của máy tính, yêu cầu đòi hỏi đối với 
chương trình ngày càng cao cũng như để giảm bớt thời gian và công sức lập trình, các ngôn 
ngữ lập trình đã không ngừng phát triển từ những ngôn ngữ lập trình đơn giản đến nay loài 
người đang sử dụng những ngôn ngữ lập trình hiện đại, dễ lập trình và nhiều tính năng. 
Dựa theo trường phái và phong cách lập trình người ta có thể chia ngôn ngữ lập trình 
thành các loại sau: 
- Ngôn ngữ lập trình bậc thấp (Ví dụ: Assembly) 
- Ngôn ngữ lập trình hướng thủ tục (Ví dụ: Fortran, Algol 60, Cobol, Pascal, C, ...) 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 3 
- Ngôn ngữ lập trình hướng đối tượng (Ví dụ: C++ , Java, ...). 
- Ngôn ngữ lập trình trực quan (Ví dụ: Visual Basic, Access, Delphi, ...). 
- Lập trình theo chủ đích (đang được Microsoft nghiên cứu phát triển). 
Mỗi ngôn ngữ lập trình có những thế mạnh và điểm yếu riêng. Ví dụ một số ngôn ngữ 
lập trình có tốc độ thực thi cao nhưng lại khó sử dụng, ngược lại một số ngôn ngữ lập trình 
tốc độ thực thi chậm nhưng bù lại là tính dễ sử dụng và giao diện chương trình đẹp hơn. Do 
vậy tuỳ thuộc vào đặc điểm và yêu cầu của từng bài toán cụ thể mà người lập trình lựa chọn 
ngôn ngữ lập trình cho hợp lý. 
III. THUẬT TOÁN 
Như đã biết để yêu cầu máy tính giải quyết một bài toán nào đó thì đầu tiên người lập 
trình phải biết được phương pháp giải quyết của bài toán đó và sau đó đòi hỏi phải có tư duy 
lập trình để giải quyết bài toán đó trên máy tính. 
Thuật toán, hay còn gọi là thuật giải (giải thuật), là tập hợp đặc trưng các trình tự lôgic 
và toán học đơn giản, được xác định rõ ràng, để theo đó giải quyết một vấn đề với một số 
bước nhất định. Như vậy có thể hiểu thuật toán là công cụ để biều diễn phương pháp giải 
quyết một bài toán bằng máy tính bằng cách chia nhỏ bài toán đó thành những thao tác đơn 
giản, dễ thực hiện và có trình tự hợp lý. Thuật toán đóng vai trò rất quan trọng bởi thông 
qua thuật toán người ta có thể hiểu được phương pháp giải quyết một bài toán. Một thuật 
toán phải thoã mãn ba điều kiện sau đây: 
- Các thao tác phải có tính khả thi (thực hiện được trên máy) và có trình tự xác định. 
- Mỗi thao tác phải cụ thể, rõ ràng và chỉ được hiểu theo một nghĩa duy nhất. 
- Thuật toán phải kết thúc sau một số bước hữu hạn. 
Có nhiều phương pháp để biểu diễn thuật toán khác nhau, nhưng thông dụng nhất là 
biểu diễn thuật toán bằng Sơ đồ khối và bằng ngôn ngữ giả. 
Ví dụ 1: Sơ đồ khối bài toán tìm giá trị lớn nhất trong 3 số a, b, c 
Begin 
Nhập a, b, c 
b>=c 
(a>=b) And (a>=c) 
max := b max := c 
In max 
End 
false (F) true (T) 
T F 
max := a 
Hình 1: Biểu diễn thuật toán bằng sơ đồ khối 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 4 
Ví dụ 2: Sơ đồ khối bài toán giải phương trình bậc hai: ax2 + bx + c = 0 (a#0) 
Ví dụ 3: Biểu diễn một số bài toán bằng ngôn ngữ giả 
End 
Vä nghiãûm 
Begin 
Nháûp a, b, c 
Delta=b*b-4*a*c 
Delta<0 T F 
Delta>0 
T T 
 x1=(-b-sqrt(Delta))/(2*a) 
 x2=(-b+sqrt(Delta))/(2*a) x1,2 = -b/(2*a) 
In x1,x2 
Hình 2: Biểu diễn thuật toán bằng sơ đồ khối 
Thuáût toaïn: Tçm Max(a,b,c) 
Bàõt âáöu 
Âoüc (a,b,c) 
Nãúu (a>=b) vaì (a>=c) Thç 
Max=a 
Nãúu khäng thç 
Nãúu (b>=c) Thç 
Max=b 
Nãúu khäng thç 
Max=c 
Hãút nãúu 
Hãút nãúu 
In ra (Max) 
Kãút thuïc 
Thuáût toaïn: Giaíi pt báûc hai (a#0) 
Bàõt âáöu 
Âoüc (a,b,c); Delta=b*b-4*a*c 
Nãúu (Delta<0) Thç 
In ra (‘Phæång trçnh vä nghiãûm’) 
Nãúu khäng thç 
Nãúu (Delta=0) Thç 
x1_2 = -b/(2*a) 
In ra (‘pt coï nghiãûm keïp:’, x1_2) 
Nãúu khäng thç 
x1=(-b-SQRT(Delta))/(2*a) 
x2=(-b+SQRT(Delta))/(2*a) 
In ra (‘x1=’,x1); In ra (‘x2=’, x2); 
Hãút nãúu 
Hãút nãúu 
Kãút thuïc 
Hình 3: Biểu diễn thuật toán bằng Ngôn ngữ giả 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 5 
IV. CÁC HỆ ĐẾM DÙNG TRONG MÁY TÍNH ĐIỆN TỬ 
IV.1. Các hệ đếm dùng trong máy tính điện tử 
Trong thực tế cuộc sống ta gặp các số được tạo bởi mười chữ số từ 0 đến 9, ta gọi đó là 
hệ đếm cơ số 10. Trong máy tính điện tử để cho tiện trong quá trình biểu diễn người ta đưa 
ra các hệ đếm cơ số khác. Hệ đếm cơ số 2 được tạo thành bởi 2 chữ số 0 và 1, hệ đếm cơ số 
8 được tạo thành bởi 8 chữ số từ 0 đến 7, hệ đếm cơ số 16 được tạo thành bởi các chữ số từ 
0 đến 9 và các chữ cái A, B, C, D, E, F đại diện cho các số 10, 11, 12, 13, 14 và 15. 
Trong máy tính người ta dùng trạng thái có xung hoặc điện áp cao để biểu diễn số một, 
trạng thái không xung hoặc điện áp thấp để biểu diễn số không do vậy hệ đếm cơ số 2 
thường được dùng để biểu diễn các trạng thái vật lý trong máy tính. Hệ đếm cơ số 2 cho 
phép dễ dàng thực hiện các phép toán nhưng dài dòng, dễ nhầm lẫn và sai sót. Ðể tránh 
nhược điểm này thông thường người ta dùng hệ đếm cơ số 8 hoặc 16 để biểu diễn. 
IV.2. Ðổi từ hệ đếm cơ số khác sang hệ đếm cơ số 10 
Giả sử có một hê đếm cơ số p (p>1) sử dụng p chữ số khác nhau a0, a1, a2, ..., ap-1 thì một 
số q bất kỳ trong hệ đếm cơ số này dạng: pn pn-1 ... p1 p0 p-1 p-2 ... p-m sẽ được đổi sang hệ 
đếm cơ số 10 nhờ cách viết tổng quát sau: 
q = pn 3 pn + pn-1 3 pn-1 + ... + p13 p1 + p03 p0 + p-13 p-1 + p-23 p-2 + ... + p-m3 p-m 
 = å
-=
´
n
mi
i
i pp 
Ví dụ: Ðổi số 268.78 trong hệ đếm cơ số 8 sang hệ đếm cơ số 10: 
268.78(8) = 23 82 + 63 81 + 83 80 + 73 8-1 + 83 8-2 = 185(10) 
IV.3. Ðổi từ hệ đếm cơ số 10 sang các hệ đếm cơ số khác 
Ðể đổi một số trong hệ đếm cơ số 10 bất kỳ sang hệ đếm cơ số p ta phải đổi riêng phần 
nguyên và đổi riêng phần lẻ, sau đó nối hai kết quả lại: 
a) Quy tắc đổi phần nguyên 
Ðể đổi phần nguyên của một số từ hệ 10 sang hệ p ta thực hiện phép chia liên tiếp số 
cần đổi và các thương số nhận được cho p (chia trong hệ 10) cho đến khi thương số bằng 0. 
Kết quả là các số dư lấy theo chiều ngược lại. 
Ví dụ: Ðổi phần nguyên hệ 10 của x = 1987 ra số nguyên hệ 2, 8 và 16: 
1990 (/2 = 995 dư 0), 995 (/2 = 497 dư 1), 497 (/2 = 248 dư 1), 248 (/2 = 124 dư 0), 124 
(/2 = 62 dư 0), 62 (/2 = 31 dư 0), 31 (/2 = 15 dư 1), 15 (/2 = 7 dư 1), 7 (/2 = 3 dư 1), 3 (/2 = 
1 dư 1), 1 (/2 = 0 dư 1). Lấy các số dư theo thứ tự ngược lại ta được: 11111000110 (2). 
Tương tự với phép chia cho 8 và 16 ta có: 1990(10) = 3706(8) và 1990(10) = 7C6(16) 
b) Quy tắc đổi phần lẻ 
Ðể đổi phần lẻ của một số từ hệ 10 sang hệ p, thực hiện phép nhân liên tiếp số cần đổi 
và các phần lẻ nhận được với p (trong hệ 10) cho đến khi phần lẻ bằng 0. Kết quả là các số 
phần nguyên viết theo thứ tự. 
Ví dụ: Ðổi phần lẻ hệ 10 của số x = 0.4375 ra số lẻ hệ 8 và 16: 
0.4375(10) (38) 3.5000 (38) 4.000. Lấy phần nguyên theo thứ tự: 0.34(8) 
0.3475(10) (316) 7.000. Lấy phần nguyên theo thứ tự: 0.7(16) 
Như vậy số 1990.4375 đổi ra các hệ 8 và 16 bằng cách nối hai kết quả chuyển đổi phần 
nguyên và phần lẻ ta được: 3706.34(8) và 7C6.7(16). 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 6 
CHƯƠNG II: GIỚI THIỆU NNLT VISUAL BASIC 
I. GIỚI THIỆU NGÔN NGỮ LẬP TRÌNH VISUAL BASIC 
I.1. Giới thiệu 
Máy tính sử dụng hệ điều hành Windows với giao diện người dùng đồ họa đã cách 
mạng hóa ngành công nghiệp vi tính, chúng chứng minh cho câu ngạn ngữ “Hình ảnh đáng 
giá ngàn lời nói”. Thay vì dấu nhắc C:\> đầy bí ẩn mà người dùng DOS từng gặp lâu nay, 
bạn được tiếp xúc với màn hình đầy các biểu tượng trực quan thông qua việc sử dụng chuột 
và hệ thống các Menu. 
Trước khi Visual Basic xuất hiện vào năm 1991, việc phát triển các ứng dụng Windows 
nặng nhọc hơn nhiều so với việc phát triển các ứng dụng trên DOS. Phát triển một ứng dụng 
Windows đòi hỏi những lập trình viên chuyên về C phải viết hàng trăm dòng mã lệnh cho 
một tác vụ đơn giản, đến các chuyên gia cũng phải bối rối. Ðó là lý do mà khi phát hành 
Visual Basic người ta đã hết lời ca ngợi. Với Visual Basic, việc lập trình dưới Windows 
không chỉ trở nên hiệu quả hơn và còn lý thú hơn. 
Visual Basic cho phép bổ sung các menu, hộp văn bản, nút lệnh, nút tuỳ chọn, các hộp 
kiểm tra, các hộp danh sách, thanh cuộn, các hộp tập tin và thư mục cho các cửa sổ trống. 
Bạn có thể dùng lưới để quản lý dữ liệu kiểu bảng. Bạn có thể truyền thông với các ứng 
dụng Windows khác, và có thể là quan trọng nhất, bạn sẽ có một phương pháp dễ dàng để 
người dùng điều kiểm và truy cập cơ sở dữ liệu. 
Kể từ lúc được phát hành đến nay Visual Basic đã không ngừng được cải tiến, nâng cấp 
qua nhiều phiên bản khác nhau. Phiên bản mới nhất của Visual Basic (phiên bản 6.0, tính 
đến thời điểm hiện tại) hỗ trợ thêm nhiều tính năng Internet hơn, hỗ trợ cho phát triển cơ sở 
dữ liệu tốt hơn, nhiều tính năng ngôn ngữ hơn giúp cho công việc lập trình dễ dàng hơn. 
I.2. Cài đặt Visual Basic vào máy 
Phiên bản Visual Basic 6.0 nằm trong bộ phần mềm Microsoft Visual Studio 6.0 của 
hãng Microsoft. Bộ Visual Studio đầy đủ gồm 5 đĩa CD tuy nhiên chỉ cần ít nhất là 2 đĩa 
CD - một dành cho các chương trình, một gồm các tài liệu. Ðể cài đặt Visual Basic thành 
công yêu cầu tối thiểu cấu hình phần cứng máy tính của bạn như sau: Bộ vi xử lý Pentium 
(166 MHz), 24 MB RAM, hệ điều hành Windows 95, 135 MB đĩa cứng còn trống (đối với 
bản Visual Basic 6 ... của biểu thức Lôgic phụ thuộc vào tính đúng sai của các thành phần trong biểu 
thức. Trong Visual Basic một giá trị khác không được xem là đúng, ngược lại một giá trị 
bằng không được xem là sai. Bảng sau mô tả tính chất của các phép toán trên: 
A b a And b a b A Or b a Not a 
True True True True True True True False 
True False False True False True False True 
False True False False True True 
False False False 
False False False 
Hình 24: Minh họa các phép toán Lôgic. 
Phép toán And chỉ đúng khi tất cả các thành phần của nó đúng, chỉ ít nhất một thành 
phần sai thì phép toán And được xem là sai. Phép toán Or thì ngược lại, chỉ cần ít nhất một 
thành phần đúng thì phép toán Or được xem là đúng, khi tất cả các thành phần sai thì phép 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 23 
toán Or được xem là sai. Phép toán Xor là một biểu thức được tạo bởi từ các phép toán And, 
Or và Not. 
Ví dụ: 
5 And 7 ð True And True ð True 
0 Or (5+4) ð False Or True ð True 
(a + b > c) And (b + c > a) And (a + c > b): Ðiều kiện để a, b, c là 3 cạnh tam giác 
(a = b) Or (a = c) Or (b = c): Ðiều kiện để tam giác ABC có 3 cạnh a, b, c cân 
(a^2+b^2=c^2) Or (a^2+c^2=b^2) Or (c^2+a^2=b^2): Ðiều kiện để ABC vuông 
Not ((a > b) And (a > c)): Ðiều kiện a không phải là cạnh lớn nhất của tam giác 
VII.4. Phép toán ghép (&) 
Phép toán ghép (&) dùng để ghép nhiều giá trị thuộc các loại dữ liệu khác nhau lại với 
nhau, kết quả có thể là một chuỗi hoặc một sộ Cú pháp như sau: 
bthức1 & bthức2 & bthức3 & ... & bthứcn 
Ví dụ: 
“Da Nang, thang “ & 10 & “/” & 2002 ð “Da Nang, thang 10/2002” 
123 & 456 ð 123456 
File1.Path & “\” & File1.FileName ð Thiết lập đường dẫn động 
VII.5. Phép toán điều kiện IIF 
Cú pháp: 
IIf (, , ) 
Thực hiện: Nếu đúng phép toán trả về , ngược lại nếu <điều 
kiện> sai trả về . 
Ví dụ: 
1) Tính giá trị lớn nhất hai số a, b: max = IIf (a>b, a, b) 
2) Tính giá trị lớn nhất ba số a, b, c: max = IIf( (a>b) And (a>c) , a , IIf(b>c, b,c) ) 
3) Xếp loại học lực dựa vào điểm trung bình: 
Xeploai=IIf(dtb>=8, “Giỏi”, IIf(dtb>=7, “Khá”, IIf(dtb>=5, “Trung bình”, “Yếu”))) 
VII.6 Thứ tự ưu tiên các phép toán 
Thứ tự thực hiện của các phép toán trong một biểu thức là vô cùng quan trọng. Ðể minh 
họa ta xét bài toán tìm hai nghiệm của phương trình bậc hai (ax2+bx+c=0, a#0): 
vaì
a2
bx1 ´
D--
=
a2
bx 2 ´
D+-
= 
Nếu ta viết một trong các cách sau là sai (sqrt(d) là hàm tính căn bậc hai của d): 
x1 = -b - sqrt(delta) / 2*a; x2 = (-b + sqrt(delta)) /2*a 
Một trong hai cách viết sau là đúng: 
x1 = (-b - sqrt(delta)) / (2*a); x2 = (-b + sqrt(delta)) / 2 / a 
Trong bảng sau các phép toán được liệt kê theo thứ tự mức ưu tiên từ cao đến thấp, các 
phép toán cùng mức ưu tiên thứ tự thực hiện từ trái sang phải: 
STT Phép toán Trình tự kết hợp 
1 () Cặp ngoặc sâu nhất tính trước 
2 ^ (lũy thừa) Trái qua phải 
3 - (đảo dấu) Trái qua phải 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 24 
4 Not (phủ định) Trái qua phải 
5 *, / Trái qua phải 
6 \ (chia nguyên) Trái qua phải 
7 Mod (chia dư) Trái qua phải 
8 +, - Trái qua phải 
9 , >= Trái qua phải 
10 =, Trái qua phải 
11 And Trái qua phải 
12 Or Trái qua phải 
Hình 25: Thứ tự ưu tiên của các phép toán trong Visual Basic. 
Ví dụ: 
q ((6 * 5) + 4) * 3 ð (30 + 4) *3 ð 34 * 3 = 102 
q -4 ^ 2 ð - (4 ^ 2) ð -16 
q 96 / 4 * 2 ð 24 * 2 ð 48 
q 96 / 4 ^ 2 ð 96 / 16 ð 6 
q 4 * 2 + 16 / 8 + 2 ^ 3 ^ 4 ð 8 + 2 + 8 ^ 4 ð 8 + 2 + 4096 ð 4106 
q 5 = 4 And 5 = 5 ð False And True ð False 
q 5+3 > 5 And 6+3 > 3 And 2+5 > 4 ð True And True And True ð True 
q a And Not b Or b And Not a ð True And True Or False And False ð True And 
False ð False (với a = True, b = False) 
VIII. SỬ DỤNG HẰNG TRONG VISUAL BASIC 
Hằng là đối tượng mà giá trị của nó không thay đổi trong thời gian thực hiện chương 
trình. Để định nghĩa hàm ta sử dụng cú pháp: 
Const Tên hằng = Giá trị hằng 
Ví dụ: 
Const N = 100 ‘ Hằng nguyên 
Const SinhNhat = #21/10/1982# ‘ Hằng ngày tháng 
Bên cạnh các hằng do người sử dụng tự định nghĩa, trong Visual Basic còn có rất nhiều 
hằng được định nghĩa sẵn, các hằng này thường bắt đầu bởi “vb”. Bảng sau liệt kê một số 
hằng thường gặp: 
STT Tên hằng Ý nghĩa 
1 vbCrLf Ký tự xuống hàng, về đầu hàng 
2 vbKey0 ... vbKey9 Đại diện mã các phím số 0, 1, 2, ..., 9 
3 vbKeyA ...vbKeyZ Đại diện các phím chữ: A, B, .., Z 
4 vbEOF, vbBOF Báo hiệu kết thúc tệp và đầu tệp 
5 vbBlack, vbBlue, ... Thay thế cho các màu: Đen , đỏ, ... 
6 vbByte, vbBoolean, ... Đại diện cho các kiểu dữ liệu 
7 vbMonday, vbTuesday, ... Các ngày trong tuần 
8 vbArrow, vbCross, ... Các hình dạng của con trỏ 
9 vbKeyF1, vbKeyF2, ... Các phím chức năng: F1, F2, ..., F16 
10 vbTrue, vbFalse Các giá trị Lôgic 
11 vbOK, vbCancel, ... Các nút OK, Cancel, .. 
12 vbError Trường hợp bị lỗi 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 25 
CHƯƠNG IV: CÁC CẤU TRÚC LỆNH VISUAL BASIC 
Sau khi đã học các khái niệm cơ bản về lập trình, làm quen với môi trường phát triển 
Visual Basic cũng như các khái niệm về đối tượng (Object), điều khiển (Control), kiểu dữ 
liệu (Data Type), khai báo biến, mảng, ... Trong bài học này ta tiếp tục tìm hiểu các cấu trúc 
lệnh trong Visual Basic. 
I. CÂU LỆNH ĐIỀU KIỆN 
I.1. Cú pháp dạng 1 
Cú pháp: 
If Then 
End If 
hoặc: If Then 
Cách thực hiện: 
Ðầu tiên máy sẽ kiểm tra . Nếu đúng máy sẽ thực hiện <Các 
câu lệnh>, máy sẽ không làm gì nếu như sai. Trong Visual Basic một giá trị 
khác 0 được xem là đúng, một giá trị bằng 0 được xem là sai. 
Ví dụ: 
Tìm 2 nghiệm của phương trình bậc hai (ax2 + bx + c = 0, a#0), nếu phương trình có hai 
nghiệm riêng biệt: 
delta=b^2 - 4*a*c 
If delta > 0 Then 
x1 = (-b - sqrt(delta)) / (2*a) ‘ Nghiệm x1 
x2 = (-b + sqrt(delta)) / (2*a) ‘ Nghiệm x2 
End If 
Cho một số nguyên n, nếu n chẵn thì tăng n lên một đơn vị: 
If n Mod 2 = 0 Then n=n+1 
I.2. Cú pháp dạng 2 
Cú pháp: 
If Then 
Else 
End If 
hoặc: If Then Else 
Cách thực hiện: 
Ðầu tiên máy sẽ kiểm tra . Nếu đúng máy sẽ thực hiện <Các 
câu lệnh 1>, ngược lại máy sẽ thực hiện . Trong trường hợp mỗi phần chỉ 
có một câu lệnh ta có thể dùng trường hợp dưới. Các câu lệnh điều kiện có thể lồng nhau 
nhiều cấp do vậy ta nên soạn thảo chương trình theo cấu trúc khối. 
Ví dụ: 
1) Tính giá trị lớn nhất trong hai số a và b 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 26 
If a > b Then ‘ a là số lớn nhất 
max = a 
Else ‘ a không phải là số lớn nhất, b là số lớn nhất 
max = b 
End If 
hoặc: If a > b Then max = a Else max = b 
2) Tính giá trị lớn nhất trong ba số a, b và c 
If (a > b) And (a > c) Then ‘ nếu a>b và a>c thì a là số lớn nhất 
max = a 
Else ‘ a không phải là số lớn nhất, chỉ có thể là b hoặc c, phải kiểm tra tiếp. 
‘ Câu lệnh điều kiện sau là câu lệnh con của câu lệnh điều kiện ngoài. 
‘ Chú ý viết thụt vào theo cấu trúc khối. 
If b > c Then ‘ nếu b>c thì số lớn nhất là b 
max = b 
Else ‘ ngược lại c là số lớn nhất 
max = c 
End If 
End If 
3) Giải phương trình bậc hai (ax2+bx+c=0, a#0) 
delta = b^2 - 4*a*c ‘ Tính giá trị của biệt thức delta 
If delta < 0 Then 
‘ Phương trình vô nghiệm 
Else ‘ Phương trình có nghiệm 
If delta = 0 Then ‘ Phương trình có nghiệm kép 
x1 = -b / (2*a) 
Else ‘ Phương trình có 2 nghiệm phân biệt 
x1 = (-b - Sqrt(delta)) / (2*a) 
x2 = (-b + Sqrt(delta)) / (2*a) 
End If 
End If 
I.3. Cú pháp dạng 3 
Cú pháp: 
If Then 
ElseIf Then 
....... 
ElseIf Then 
[Else 
] 
End If 
Cách thực hiện: 
Ðầu tiên máy sẽ kiểm tra . Nếu đúng máy sẽ thực hiện 
và bỏ qua các câu lệnh còn lại, nếu điều kiện sai máy tiếp tục kiểm tra rồi 
thực hiện lặp lại các công việc tương tự như . Quá trình trên tiếp tục cho đến 
khi tất cả các điều kiện từ 1 đến n đều sai máy sẽ thực hiện các câu lệnh n+1. Nói tóm lại 
khi gặp câu lệnh dạng này máy sẽ lần lượt kiểm tra các điều kiện 1 đến n cho đến khi gặp 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 27 
một điều kiện đúng và thực hiện các câu lệnh tương ứng với điều kiện đúng đó và bỏ qua 
các câu lệnh còn lại. Nếu tất cả các điều kiện đều sai máy sẽ thực hiện các câu lệnh n+1. 
Cú pháp dạng này thường được sử dụng trong trường hợp cần kiểm tra nhiều điều kiện, 
nếu sử dụng dạng 1 và dạng 2 câu lệnh trở nên rất phức tạp và khó hiểu bởi sự lồng nhau 
nhiều cấp của các câu lệnh. 
Ví dụ: 
1) Tính giá trị lớn nhất trong ba số a, b và c 
If (a > b) And (a > c) Then ‘ nếu a>b và a>c thì a là số lớn nhất 
max = a 
ElseIf b > c Then ‘ nếu b>c thì số lớn nhất là b 
max = b 
Else ‘ không phải a và b thì c là số lớn nhất 
max = c 
End If 
2) Giải phương trình bậc hai (ax2+bx+c=0, a#0) 
delta = b^2 - 4*a*c ‘ tính giá trị của biệt thức delta 
If delta < 0 Then 
‘ Phương trình vô nghiệm 
Else If delta = 0 Then ‘ Phương trình có nghiệm kép 
x1 = -b / (2*a) 
Else ‘ Phương trình có 2 nghiệm phân biệt 
x1 = (-b - Sqrt(delta)) / (2*a) 
x2 = (-b + Sqrt(delta)) / (2*a) 
End If 
3) Cho a, b, c là 3 cạnh của một tam giác, hãy xác định loại của tam giác đó? 
If (a = b) And (a = c) Then 
‘ Tam giác đều 
ElseIf (a = b) Or (b = c) Or (a = c) Then 
‘ Tam giác cân 
ElseIf (a^2 + b^2 = c^2) Or (b^2 + c^2 = a^2) Or (a^2 + c^2 = b^2) Then 
‘ Tam giác vuông 
Else 
‘ Tam giác thường 
End If 
II. VÒNG LẶP FOR 
Cú pháp: 
For = To [Step ] 
Next 
Cách thực hiện: 
Máy tính sẽ thực hiện lặp đi lặp lại ( - + 1) 
lần tương ứng chạy từ đến . Sau mỗi lần lặp <biến 
đếm> tăng đơn vị, giá trị mặc định của là 1, phần nằm trong cặp 
[ ] là phần tuỳ chọn. 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 28 
Vòng lặp For là vòng lặp có số lần lặp xác định, người ta thường gọi tắt là vòng lặp xác 
định. Nếu muốn kết thúc vòng lặp For vào bất cứ thời điểm nào ta chỉ cần dùng câu lệnh 
Exit For. 
Ví dụ: 
1) Tính tổng: S = 1 + 2 + ... + n (sử dụng vòng lặp For) 
S = 0 ‘ biến S dùng để chứa tổng ban đầu phải đặt bằng không 
For i = 1 To n ‘ i là biến đếm chạy từ 1 đến n 
S = S + i ‘ tổng S mới = tổng S cũ + số i 
Next i 
2) Bài toán vừa gà vừa chó bó lại cho tròn, tổng cộng 36 con và có 100 chân. Hỏi có 
bao nhiêu gà, bao nhiêu chó? 
For i = 1 To 36 ‘ vòng lặp cho số gà 
For j = 1 To 36 ‘ vòng lặp cho số chó (2 vòng lặp lồng nhau) 
If (i + j = 36) And (i * 2 + j * 4 = 100) Then 
‘ nếu số gà + số chó =36 và tổng số chân là 100 thì 
Soga = i ‘ số gà = i 
Socho = j ‘ số chó =j 
End If 
Next j ‘ của vòng lặp For trong 
Next i ‘ của vòng lặp For ngoài 
III. VÒNG LẶP DO WHILE 
Cú pháp: 
Do While 
Loop 
Cách thực hiện: 
1) Kiểm tra , nhảy sang bước 2. 
2) Nếu đúng máy thực hiện rồi quay lại bước 1. Nếu <điều 
kiện> sai máy nhảy sang bước 3. 
3) Kết thúc vòng lặp. 
Khác với vòng lặp For, số lần lặp của vòng lặp Do While có thể không xác định được. 
Do While hoàn toàn có thể thay thế cho For nhưng ngược lại For không thể thay thế cho Do 
While trong một số trường hợp. Vòng lặp Do While có thể không được thực hiện lần nào 
nếu ngay từ đầu đã bị sai. 
Ví dụ: 
1) Tính tổng: S = 1 + 2 + ... + n (sử dụng Do While) 
S = 0 ‘ biến S chứa tổng 
i = 1 ‘ khởi động biến đếm vòng lặp i 
Do While i <= n ‘ chừng nào i <= n thì: 
S = S + i ‘ cộng thêm vào S giá trị i 
i = i + 1 ‘ tăng giá trị của biến đếm vòng lặp lên 1 đơn vị 
Loop 
(Chú ý: Câu lệnh i = i + 1 là rất quan trọng bởi không có nó giá trị của biến i không thay 
đổi làm điều kiện luôn đúng và dẫn tới vòng lặp vô tận - không kết thúc). 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 29 
2) Cho n là một số nguyên dương hãy tính tổng tất cả các chữ số của n. Ví dụ: n=2110 
thì tổng các chữ số là: 2+1+1+0=4. 
S = 0 ‘ Biến S dùng để chứa tổng 
Do While n 0 ‘ chừng nào n khác không thì: 
S = S + n Mod 10 ‘ n Mod 10 là phép chia cho 10 lấy phần dư 
n = n \ 10 ‘ n\10 là phép chia n cho 10 lấy phần nguyên 
Loop 
(Chú ý: Bài toán này chỉ có thể được thực hiện bởi Do While, không thực hiện được với 
For bởi số các chữ số của n là không xác định) 
IV. VÒNG LẶP DO UNTIL 
Cú pháp: 
Do Until 
Loop 
Cách thực hiện: 
1) Kiểm tra , nhảy sang bước 2 
2) Nếu đúng thì sang bước 3, ngược lại máy thực hiện rồi 
quay lại bước 1. 
3) Kết thúc vòng lặp. 
Vòng lặp Do Until chỉ khác Do While ở chỗ: trong Do While là điều kiện 
để lặp còn trong Do Until là điều kiện để kết thúc. 
Ví dụ: 
1) Tính tổng: S = 1 + 2 + ... + n (sử dụng Do Until) 
S = 0 ‘ biến S chứa tổng 
i = 1 ‘ khởi động biến đếm vòng lặp i 
Do Until i > n ‘ thực hiện cho đến khi i > n 
S = S + i ‘ cộng thêm vào S giá trị i 
i = i + 1 ‘ tăng giá trị của biến đếm vòng lặp lên 1 đơn vị 
Loop 
2) Cho n là một số nguyên dương hãy kiểm tra n có phải là số đối xứng hay không. Ví 
dụ số 92529 là sô đối xứng. 
m = n ‘ m là biến tạm ban đầu nhận giá trị bằng n 
S = 0 ‘ biến S dùng để chứa giá trị số đảo ngược của n 
Do Until = 0 ‘ thực hiện cho đến khi n=0 
S = S*10 + n Mod 10 ‘ lấy S trước * 10 cộng với số dư của n chia cho 10 
m = m \ 10 ‘ m\10 là phép chia m cho 10 lấy phần nguyên 
Loop 
If S = n Then 
‘ n là số đối xứng! 
Else 
‘ n không phải là số đối xứng! 
End If 
GIAÏO TRÇNH LÁÛP TRÇNH VISUAL BASIC 
TRUNG TÁM PHAÏT TRIÃØN PHÁÖN MÃÖM - ÂAÛI HOÜC ÂAÌ NÀÔNG Trang: 30 
V. CÂU LỆNH SELECT CASE 
Câu lệnh điều kiện If ... Then ... thường trở nên rất phức tạp và khó hiểu khi có nhiều 
trường hợp cần phải kiểm tra điều kiện. Ðể khắc phục Visual Basic đưa ra câu lệnh Select 
Case. 
Cú pháp: 
Select Case 
Case 
Case 
.......... 
Case 
[Case Else 
] ‘ đây là phần tuỳ chọn 
End Select 
Cách thực hiện: 
Ðầu tiên, máy tính giá trị của . Sau đó lần lượt so khớp giá trị này với giá trị 
của các biểu thức trong các danh sách biểu thức. Nếu gặp trường hợp thoả mãn máy thực 
hiện tương ứng. Khi tất cả các danh sách biểu thức đều không thoả mãn 
máy thực hiện (nếu có Case Else ...). 
Ví dụ: 
1) Cho tháng m của năm y, cho biết tháng này có bao nhiêu ngày. Biết rằng trong một 
năm các tháng 1, 3, 5, 7, 8, 10, 12 có 31 ngày, các tháng 4, 6, 9, 11 có 30 ngày, riêng tháng 
2 nếu năm nhuận (năm chia hết cho 4) có 29 ngày, năm bình thường có 28 ngày. 
Select Case m 
Case 1, 3, 5, 7, 8, 10, 12 ‘ Các tháng này có 31 ngày 
Songay = 31 
Case 4, 6, 9, 11 ‘ Các tháng này có 30 ngày 
Songay = 30 
Case Else 
If (y mod 4=0) Then Songay=29 Else Songay=28 
End Select 
2) Xếp loại học lực dựa vào điểm trung bình dtb 
Select Case dtb 
Case Is >= 8 ‘ Is đại diện cho dtb 
xeploai = “giỏi” 
Case Is >= 7: xeploai = “Khá” ‘ nếu một lệnh có thể viết trên một hàng dùng “:” 
Case Is >= 5: xeploai = “Trung bình” 
Case Else: 
xeploai = “Yếu” 
End Select