bài tập và hướng dẫn giải bài tập tự luyện lập trình visual basic

Website học trực tuyến – www.videobook.vn

TỰ LUYỆN BÀI TẬP 1

Làm quen với litbox
Thêm 2 List Box và một Button vào form


Website học trực tuyến – www.videobook.vn

BÀI TẬP TỰ LUYỆN 3

Thao tác với spinControl

Một SpinControl là sự kết hợp của TextBox
và Slider.


Trong Form1, thêm một TextBox và Horizontal Scroll Bar. Thiết lập các
thuộc tính sau cho mỗi Control:

Website học trực tuyến – www.videobook.vn

BÀI TẬP TỰ LUYỆN 4

Thực hiện các phép toán cơ bản sau:

Website học trực tuyến – www.videobook.vn

BÀI TẬP TỰ LUYỆN 5

Các thao tác với word

Trong đó textbox name: txt Word Multiline: True ScrollBar:
CommandButton Name: cmdLuu Caption: Lưu 3:
CommandButton Name cmdTruoc Caption: Trước khi in 4:
CommandButton Name:cmdCTa Caption: Kiểm lỗi. 5: CommandButton
Name: cmdThoat Caption: Thoát 6: CommandButton Name cmdGiup Caption:
trợ giúp

Website học trực tuyến – www.videobook.vn

BÀI TẬP TỰ LUYỆN

Sử dụng Select case tính tuổi








Ở đây, người sử dụng chương trình nhập vào một tuổi nào đó trong ô nhập tuổi, sau đó

họ nhấp nút Nhận xét, một nhận xét sẽ xuất hiện ứng với tuổi mà họ nhập từ bàn phím.
Lúc này ta sử dụng toán tử so sánh (=, <, <=, >, >=, <>) cùng với các từ khóa Is
và To trong biểu thức.
Is: so sánh biến với biểu thức được liệt kê sau từ khóa Is.
To: định nghĩa phạm vi của giá trị.

Website học trực tuyến – www.videobook.vn

BÀI TẬP TỰ LUYỆN 7

Làm việc với listbox

Ta có 2 ListBox và các nút nhấn (Button); trong đó:
Nút > chuyển một phần tử từ trái sang phải Nút
< chuyển một phần tử từ phải sang trái.
Nút >> chuyển tất cả các phần tử từ trái sang phải.
Nút << chuyển tất cả các phần tử từ phải sang trái.
Thêm 2 ListBox và 4 Button vào Form1. Trong hàm xử lý sự kiện

Website học trực tuyến – www.videobook.vn

BÀI TẬP TỰ LUYỆN 8

Giải phương trình bậc nhất

Website học trực tuyến – www.videobook.vn

BÀI TẬP TỰ LUYỆN 9

Tạo thông tin người xử dụng

ID RESOURCE
STRING
ID RESOURCE
STRING
1 Ten 7 So dt
2 Ho 8 So CMND
3 Ma nv 9 T. trang hn
4 Huy bo 10 Huy bo
5 Vo hieu hoa 11 Ve truoc
6 Ke 12 Hoan tat

Website học trực tuyến – www.videobook.vn

BÀI TẬP TỰ LUYỆN 11

Tạo form chuyển đổi giữa các hệ thống số

Website học trực tuyến – www.videobook.vn


BÀI TẬP TỰ LUYỆN 11

Tạo tập tin văn bản


Website học trực tuyến – www.videobook.vn


BÀI TẬP TỰ LUYỆN 13

Tính giao thừa


Thiết kế chương trình cho phép tínhN! (N! = 1*2*3* ,*N). Giao diện đề nghị

Website học trực tuyến – www.videobook.vn


BÀI TẬP TỰ LUYỆN 14
viết chương trình xứ lý tập tin
bạn tạo menu File như sau
menu file chứa các lệnh thao tác trên tập tin như tạo mới, mở tập tin, chức năng
thoát chương trình
Dùng 1 đối tượng Shape để hiển thị các
kiểu hình
Dùng 3 đối tượng comand button để tạo 3 nút nhấn
Dùng 2 đối tượng Frane để chứa nút option
Dùng 4 đối tượng option để chọn kiểu hình
Dùng 3 đối tượng thanh cuộn VscrollBar để chọn lên
mẫu

Website học trực tuyến – www.videobook.vn


BÀI TẬP TỰ LUYỆN 15

Viết phương trình quản lý hồ sơ sinh viên giứ liệu được lưu giữ trong
CSDL bằng Access













1. Các nút nêu trên dùng để di chuyển giữa các qua lại giữa các mẫu
tin
2. Các nút thêm sửa, xóa, lưu dùng thao tác trên mẫu tin
3. Nguồn dữ liệu cho form được lấy từ bản nhân viên trong cột dữ
liệu Hoadon.mdb, truy xuất thông qua đối tượng ABODC
Yeâu
caàu
Website học trực tuyến – www.videobook.vn

4. Trạng thái của các nút nhấn trên tùy theo người dùng thực hiện
thao tác gì trên dữ liệu

Website học trực tuyến – www.videobook.vn
HƯỚNG DẪN TỰ LUYỆN 1

Nhấn đúp lên form để mở ra cửa sổ Code, nhập các đoạn mã sau trong sự kiện
Form_Load:
Form1.List1.AddItem “Thing 3”
Form1.List1.AddItem “Thing 2”
Form1.List1.AddItem “Thing 1”
Nhấp đúp lên Button Command1 để hiển thị sự kiện Click của Command1.: Mục đích
của Command1 là chuyển những phần tử được chọn từ List1 sang List2.
đoạn mã sau vào thủ tục sự kiện Click của Command1:
If Form1.List1.ListIndex = -1 Then Exit Sub ' Chep cac phan tu duoc chon tu List1 sang
List2 F orm 1 .List2. AddItem F orm 1. List1.List(Form 1.List1.ListIndex)



Website học trực tuyến – www.videobook.vn

HƯỚNG DẪN BÀI TẬP TỰ LUYỆN
Item1: TextBox
Name: Text1 Text: <blank>
Item2: Horizontal Scroll
Bar Name: Hscroll1
LargeChange: 10 Max: 100
Viết mã lệnh trên text box như sau
Text1.Text = HScroll1.value

HScroll1.Value = Text1.Text
If KeyAscii = vbKeyBack Then Exit Sub If KeyAscii < vbKey0 Or KeyAscii >
vbKey9 Then KeyAscii = 0
End If


Website học trực tuyến – www.videobook.vn
HƯỚNG DẪN TỰ LUYỆN 4

Nhập vào 2 số A và B
Thực hiện phép tinh nào trong ô phép tính kết quả sẽ hiển thị trong điều khiển
nhãn kết quả


Website học trực tuyến – www.videobook.vn

HƯỚNG DẪN TỰ LUYỆN 5

Ta khai báo Public ungdung As Word.Application Public tailieu As
Word.Document Public trogiup As Office.Assistant
Form_Load để tạo ra một tài liệu Word mới từ chương trình VB.
Set ungdung = CreateObject("Word.Application")
Set tailieu = ungdung.Documents.Add Set trogiup = ungdung.Assistant
ta xử lý sự kiện cmdLuu_Click như sau:
' Ghi tai lieu moi
tailieu.Content.Text = txtWord.Text
MsgBox "Van ban duoc luu trong Word", vbOKOnly, "Word"
cmdTruoc_Click được xử lý như sau: tailieu.PrintPreview ungdung.Visible = True
ungdung.Activate
cmdCTa_Click: tailieu.CheckSpelling txtWord.Text = tailieu.Content.Text

trong thủ tục cmdThoat_Click để đóng Word lại: ungdung.Quit SaveChanges =
False
cmdGiup_Click để mở cửa sổ Help của Office: ungdung.Visible = True
ungdung.Activate trogiup.Help




Website học trực tuyến – www.videobook.vn

HƯỚNG DẪN TỰ LUYỆN 6

Sự kiện Command1_Click():
Select Case Age
Case Is < 18
Label2. Caption = "Ban con thieu nien, ban phai hoc
thoi!”
Case 18 To 30
Label2. Caption = "Ban da truong thanh, lap gia dinh
thoi!"
Case 31 To 60
Label2.Caption = "Lua tuoi trung nien roi!" Case Else
Label2.Caption = "Ban co con chau day dan roi
nhe!"
End Select

Website học trực tuyến – www.videobook.vn

HƯỚNG DẪN BÀI TẬP TỰ LUYỆN 7

Form_Load thêm vào đoạn mã:
List1.AddItem "Thing 1"
List1.AddItem "Thing 2"
List1.AddItem "Thing 3"
List1.AddItem "Thing 4"
List1.AddItem "Thing 5"
List1.AddItem "Thing 6"
Click cho nút nhấn 1 (>) Command1_Click:
' Kiem tra co chon hay khong?
Ií Form1.List1.ListIndex = -1 Then Exit Sub ' Chep tu
trai sang phai
Form 1.List2.AddItem Form 1.List1.List(Form
1.List1.ListIndex)
' Xoa ben trai
Form 1.List1.RemoveItem Form 1.List1.ListIndex
Click cho sự kiện Command2_Click:
' Kiem tra co chon hay khong?

Ií Form1.List2.ListIndex = -1 Then Exit Sub
' Chep tu phai sang trai
Form 1.List1.AddItem Form 1.List2.List(Form 1.List2.ListIndex)
' Xoa ben phai
Form 1.List2.RemoveItem Form 1.List2.ListIndex
Vào Modull, sửa đổi lại thủ tục chuyển dữ liệu như sau:
Public Sub Chuyendulieu(L1 As ListBox, L2 As ListBox)
' Kiem tra co chon hay khong?
If Ll.Listlndex = -1 Then Exit Sub ' Chep
L2.AddItem L1.List(L1.ListIndex)
' Xoa ben trai
Ll.RemoveItem Ll.ListIndex End Sub
Bây giờ hàm xử lý sự kiện của Commandl (Command1_Click) ta sửa
lại như
sau:
Call Chuyendulieu(Form1.List1, Form1.List2)
Hàm Command2_Click:
Call Chuyendulieu(Form1.List2, Form1.List1)
Lưu dự án và chạy chương trình. Kiểm tra kết quả.
Website học trực tuyến – www.videobook.vn


HƯỚNG DẪN TỰ LUYỆN 8

Thiết kế chương trình cho phép nhập vào các hệ số a, b của phương trình
bậc 1 dạng: ax+b=0; sau
Website học trực tuyến – www.videobook.vn

HƯỚNG DẪN TỰ LUYỆN 9

Name: lblHelp Index: 0 Item 3: Label
Name: lblHelp Index: 1 Item 4: Label\
Name: lblHelp Index: 2 Item 5:
TextBox
Name: txtHelp Index: 0 Item 6:
TextBox
Name: txtHelp Index: 1 Item 7: TextBox
Name: txtHelp Index: 2 Item 8: CommandButton Name: cmdHelp Index: 0
Item 9: CommandButton Name: cmdHelp Index: 1 Item 10: CommandButton
Name: cmdHelp Index: 2

Public Sub Hienthi()
Dim i As Integer ' Kiem tra cac buoc
Debug.Assert chisobuoc = 1 Or chisobuoc = 2
For i = 0 To 2 ‘ Nhan
lblHelp(i).Caption = LoadResString((chisobuoc - 1) * 6 + (i + 1))
' Nut
cmdHelp(i).Caption = LoadResString((chisobuoc - 1) * 6 + (i + 4))
If UCase(cmdHelp(i).Caption) = "VO HIEU HOA" Then
cmdHelp(i).Visible = False
Website học trực tuyến – www.videobook.vn

Else
cmdHelp(i).Visible = True End If
txtHelp(i).Text = ""
Next End Sub



Website học trực tuyến – www.videobook.vn

HƯỚNG DẪN BÀI TẬP TỰ LUYỆN 10
1) Viết mã lệnh Xử lý
 Mã lệnh khai báo biến
Dim hethongso As String

 Mã lệnh cho nút chuyển đổi
Private Sub cmdDoi_Click()
Select Case hethongso
Case "TP":
txtNP = Dec2Bin(txtTP)
txtBP = Dec2Oct(txtTP)
txtTLP = Dec2Hex(txtTP)
Case "NP":
txtTP = Bin2Dec(txtNP)
txtBP = Dec2Oct(txtTP)
txtTLP = Dec2Hex(txtTP)
Case "BP"
txtTP = Oct2Dec(txtBP)
txtNP = Dec2Bin(txtTP)
txtTLP = Dec2Hex(txtTP)
Case "TLP"
txtTP = Hex2Dec(txtTLP)
txtNP = Dec2Bin(txtTP)
txtBP = Dec2Oct(txtTP)
End Select
Website học trực tuyến – www.videobook.vn

End Sub

 Mã lệnh cho nút đóng
Private Sub cmdDong_Click()
If MsgBox("Ban muon ngung chuong trinh ?", _
vbQuestion + vbYesNo, "Thong bao") = vbYes Then End
End Sub

 Mã lệnh cho sự kiện Change của ô bát phân
Private Sub txtBP_Change()
cmdDoi.Enabled = True
End Sub

 Mã lệnh cho sự kiện GotFocus của bat phân
Private Sub txtBP_GotFocus()
txtTP = ""
txtNP = ""
txtTLP = ""
End Sub

 Mã lệnh cho sự kiện LostFocus của bát phân
Private Sub txtBP_LostFocus()
cmdDoi.Enabled = True
Me.txtTP = ""
Me.txtNP = ""
Me.txtTLP = ""