Download miễn phí Giáo trình tin học - Lập trình Visual Basic
ListBox là loại đối tượng điều khiển cho phép người dùng chọn một sốmục
trong các mục được liệt kê bởi một danh sách. Một sốthuộc tính cơbản:
+ List: chứa nội dung các mục của ListBox bằng một mảng, mỗi phần tửlà một
chuỗi có nội dung tương ứng với các mục. Mảng này được đánh chỉsốbắt đầu từ0.
Nhưvậy, đểlấy mục thứi ta dùng
- (i).
Nhập danh sách: chọn thuộc tính List, gõ nội dung, ctrl+Enter; kết thúc bằng
Enter.
+ ListIndext: cho biết sốthứtựcủa đang chọn (tính từ0)
+ ListCount: cho biết sốmục của danh sách
Một sốcách cơbản (được dùng khi viết mã lệnh)
+ AddItem: Thêm một mục “Nội dung” vào danh sách tại vịtrí i, theo cú pháp
Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phí
Tóm tắt nội dung tài liệu:
rình Visual Basic10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 9
Cú pháp. If then
[Else
]
End If
Điều khiển: Nếu điều kiện thoả mãn thì thực hiện công việc 1 ngược lại thực hiện
công việc 2 (nếu có).
Ví dụ. Kiểm tra một số nguyên n là chẵn hay lẻ.
2. SELECT CASE…
Công dụng. Lựa chọn một trong nhiều công việc cần thực hiện.
Cú pháp: Select case
Case
…………
Case
[Case Else
]
End Select
Điều khiển: Lần lượt kiểm tra giá trị của từ trên xuống, nếu rơi vào
danh sách giá trị nào thì thực hiện công việc nấy rồi thoát khỏi khối lệnh. Công việc
n+1 (nếu có) được thực hiện khi giá trị không rơi vào bất kỳ danh sách
giá trị nào ở trên.
Danh sách giá trị có dạng: giá trị 1, giá trị 2,…giá trị n
hay giá trị 1 To giá trị n (nếu các giá trị này liên tục)
Từ khoá Is được dùng trong trường hợp giá trị của biểu thức cần so sánh hơn,
kém.
Ví dụ: Xếp loại sinh viên theo điểm trung bình
Select case dtb
Case Is>=9
Loai=”Xuất sắc”
Case Is>=8
Loai=”Giỏi”
Case Is>=7
Loai=”Khá”
Case Is>=6.5
Loai=”TB khá”
Case Is>=5
Loai=”TB”
Case Else
Loai=”Yếu”
End Select
Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic
10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 10
Chú ý. Điều khiển để chương trình nhảy đến một vị trí bất kỳ bằng lệnh
Goto
Trong đó nhãn có dạng
3. Ví dụ. Xem bài tập 3.1
BÀI TẬP 3
Bài tập tập 3.1
Tạo ứng dụng máy tính cho phép nhập số và thực hiện các phép tính cộng, trừ,
nhân chia với các số nguyên với giao diện như sau:
Hướng dẫn:
+ Tạo textbox txtso để xuất hiện các số được chọn và kết quả.
+ Tạo các Command ứng với các số, các phép toán,..
+ Viết các mã lệnh gợi ý như sau, chú ý rằng các biến pt (phép toán), so1 giữ số
thứ nhất của phép toán phải là các biến toàn cục
Option Explicit
Dim pt As String
Dim so1 As Integer
Private Sub cmd0_Click()
txtso = txtso & "0"
End Sub
Private Sub cmd1_Click()
txtso = txtso & "1"
End Sub
…………………………….
Private Sub cmd9_Click()
txtso = txtso & "9"
End Sub
Private Sub cmdcong_Click()
so1 = Val(txtso)
txtso.Text = ""
pt = "+"
End Sub
Private Sub cmdtru_Click()
so1 = Val(txtso)
txtso.Text = ""
pt = "-"
End Sub
Private Sub cmdnhan_Click()
so1 = Val(txtso)
Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic
10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 11
txtso.Text = ""
pt = "*"
End Sub
Private Sub cmdchia_Click()
so1 = Val(txtso)
txtso.Text = ""
pt = "/"
End Sub
Private Sub cmdbang_Click()
Dim kq As Single, so2 As Single
so2 = Val(txtso.Text)
Select Case pt
Case "+": kq = so1 + so2
Case "-": kq = so1 - so2
Case "*": kq = so1 * so2
Case "/"
If so2 = 0 Then
txtso.Text = "không chia được"
GoTo abc
Else
kq = so1 / so2
End If
End Select
txtso.Text = kq
abc:
End Sub
Private Sub cmdxoa_Click()
txtso = ""
End Sub
Private Sub cmdthoat_Click()
Unload Me
End Sub
Bài tập 3.2 Tạo ứng dụng giải phương trình bậc hai ax2 + bx + c = 0.
Bài tập 3.3 Tạo ứng dụng để khi nhập vào một tháng của năm nào đó, chương trình
cho biết số ngày của tháng này. Biết rằng 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; tháng 2 năm nhuận có 29 ngày, năm không nhuận có 28
ngày. Năm nhuận là năm chia hết cho 400 hay là năm chia hết cho 4 mà không
chia hết cho 100.
BÀI 4. CÁC CẤU TRÚC LẶP
I- FOR…NEXT
Công dụng. Thực hiện công việc lặp lại với số lần lặp biết trước.
Cú pháp. For To [step n]
Next
Điều khiển:
+ B1. Biến_điều_khiển nhận giá_trị_đầu
Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic
10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 12
+ B2. Nếu biến_điều_khiển nhỏ hơn hay bằng giá_trị_cuối thì thực hiện công
việc rồi tăng biến_điều_khiển lên n rồi quay lại B2.
+ B3. Nếu biến_điều_khiển lớn hơn giá_trị_cuối thì kết thúc điều khiển.
Exit For : được dùng trong khi nào muốn thoát khỏi vòng lặp ngay
lập tức (không chờ biến điều khiển lớn hơn giá trị cuối).
Ví dụ. Đoạn chương trình sau tính tổng các số nguyên từ 1 đến n (nhập trong
txtn)
Dim S As Integer
Dim i As Integer, n As Integer
S = 0
n = Val(txtn.Text)
For i = 1 To n
S = S + i
Next
lblkq.Caption = "Kết quả là" & S
II. DO WHILE…LOOP
Công dụng. Thực hiện công việc lặp lại với số lần lặp không xác định trước.
Cú pháp 1. Do while
Loop
Điều khiển: Nếu điều kiện thoả mãn thì thực hiện công việc và lặp lại cho đến
khi điều kiện không thoả mãn thì thoát khỏi cấu trúc này.
Cú pháp 2. Do
Loop Until
Điều khiển: Tương tự như cú pháp 1 nhưng kiểm tra điều kiện sau khi thực hiện
công việc.
Ví dụ. Tính số tháng cần thiết gửi ngân hàng với số vốn là v = 100.000.000 đồng,
mức lãi suất k= 0.65% tháng để có được cả vốn lẫn lãi số tiền là t = 115.000.000
đồng (biết rằng không rút lãi hàng tháng).
Private Sub Tinh_Click()
Dim v As Single, k As Single, st As Single, thang As Byte
v = Val(txtv)
k = Val(txtk)
st = Val(txtst)
thang = 0
Do While v < st
thang = thang + 1
v = v * (1 + k)
Loop
txtkq.Text = thang
End Sub
BÀI TẬP
Bài tập 4.1 Lập ứng dụng tính n! với n nguyên dương nhập từ bàn phím.
Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic
10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 13
Bài tập 4.2 Lập ứng dụng tìm ước chung lớn nhất của 2 số nguyên dương nhập từ
bàn phím.
Hướng dẫn: Tạo giao diện như sau
+ Textbox txta: để nhập số thứ nhất
+ Textbox txtb: để nhập số thứ nhất
+ Label lblkq: thông báo kết quả
Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer
a = Val(txta.Text)
b = Val(txtb.Text)
Do While b 0
r = a Mod b
a = b
b = r
Loop
lblkq.Caption = "Ước chung lớn nhất của " & txta.Text & " và " & txtb.Text & " là" & a
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
BÀI 5. BIẾN MẢNG
I. Biến mảng.
Khái niệm: Mảng là tập hợp hữu hạn các phần tử cùng kiểu, cùng tên và phân
biệt theo chỉ số.
Khai báo: Dim Tên_mảng(n) [As kiểu_phần_tử]
Sẽ tạo mảng n phần tử được đánh chỉ số từ 0 đến n-1.
Ví dụ: Dim A(5) As Integer
Khai báo: Dim Tên_mảng(n1 to n2) [As kiểu_phần_tử]
Sẽ tạo mảng gồm các phần tử được đánh chỉ số từ n1 đến n2.
Ví dụ: Dim A(3 to 5) As Integer
Truy xuất: Tên_mảng(i) dùng để truy xuất đến giá trị của phần tử có chỉ số i của
mảng.
Chú ý:
+ Hàm Lbound(Tên_mảng): trả về chỉ số nhỏ nhất của mảng,
Ubound(Biến_mảng): trả về chỉ số lớn nhất của mảng.
Trung tâm Tin học 14-Bà Triệu Lập trình Visual Basic
10A, 14 Bà Triệu, Quy Nhơn. 056-821483 Trang 14
+ Khai báo mảng hai chiều:
Dim Tên_mảng(m,n) [As kiểu_phần_tử]
Dim Tên_mảng(n1 to n2, n3 to n4) [As kiểu_phần_tử]
+ Truy xuất mảng hai chiều: Tên_mảng(i,j) dùng để truy xuất đến giá trị của
phần tử nằm trên dòng i, cột j của mảng.
+ Mảng có số phần tử không xác định trước (mảng động):
Khai báo: Dim Tên_mảng( ) [As kiểu_phần_tử]
Thao tác: Redim Dim Tên_mảng(n): thực sự tạo mảng n phần tử.
+ Mảng gán giá trị trước:
Chỉ dùng đối với mảng động và có kiểu phần tử là Variant, chỉ số từ 0 trở đi.
Ví dụ Dim a( )
A=Array(“Một”, “hai”,”ba”)
II. Mảng các ô điều khiển
Trường hợp dùng mảng ứng với các ô điều khiển trên Form (thường là các
TextBox) thuận tiện nhất là dùng mảng các ô điều khiển. Mảng c