Bài tập MicroSoft Visual Basic .NET 2005
Dương Thành Phết Trang 1
BÀI TẬP LẬP TRÌNH VISUAL BASIC.NET 2005
Bài tập 01: Tạo 1 project ñặt tên Maytinh thực hiện chức năng của 1 máy tính tiền
hàng với phép nhân số lượng và ñơn giá.
Yêu cầu chức năng:
Nút Tính : Tính tích ô số lượng và ñơn giá. Gán kết quả vào ô thành tiền
Nút Tiếp : Xoá dữ liệu ñã có trong các ô TextBox. ðặt con trỏ ở ô số lượng
Nút thoát : ðóng màn hình và giải phóng bộ nhớ
Hướng dẫn:
Project Name : MayTinh
Form
Name: frmMayTinh
Caption: May Tinh
StartUpPosition : CenterScreen
AcceptButton: cmdTinh
CancelButton: cmdThoat
TextBox
Name: txtSoLuong Tab Index: 1
Name: txtDonGia Tab index: 2
Name: txtThanhTien
Command
Name : cmdTinh Tab Index: 3
Name : cmdTiep Tab Index: 4
Name : cmdThoat Tab Index: 5
ðịnh dạng toàn bộ Form theo mẫu trên, màu sắc tùy ý,
Bài tập 02: Tạo project ñặt tên ChuviDientichHCN , thực hiện tính chu vi và diện tích
hình chữ nhật.
Yêu cầu:
Cho nhập chiều dài và chiều rộng của 1 hình chữ nhật.
Tính và xuất ra chu vi và diện tích của hình chữ nhật.
Không cho người dùng chỉnh sửa giá trị của “Chu vi” và “Diện tích”,
Canh phải các textbox chứa số.
This is trial version
www.adultpdf.com
Bài tập MicroSoft Visual Basic .NET 2005
Dương Thành Phết Trang 2
Bài tập 03: Tạo project ñặt tên GiaiPTBac1, thực hiện giải và biên luận phương trình
bậc 1.
Yêu cầu chức năng:
Nút Giải: Thực hiện giải và biện luận phương trình bậc 1, ô kết quả(txtketqua) cho
biết phương trình có nghiệm, vô nghiệm hay vô số nghiệm. Trong trường hợp có
nghiệm thì ô txtnghiem sẽ hiện kết quả
Nút Tiếp: Xoá dữ liệu có sẳn trong các ô TextBox. ðặt con trỏ ở ô txtHesoA
Nút thoát: ðóng màn hình (Thoát ứng dụng)
Các ñối tượng ẩn hiện ñúng ngữ cảnh của chương trình ñể người sử dụng
không thực hiện nhằm thao tác, trật tự di chuyển (tabIndex) phù hợp. Gắn phím tắt
Enter cho nút Giải và ESC cho nút Thóat
Bài tập 04: Tạo project ñặt tên GiaiPTBac2, thực hiện giải và biên luận phương trình
bậc 2.
Yêu cầu chức năng:
Nút Giải: Thực hiện giải và biện luận phương trình bậc 2, ô kết quả(txtketqua) cho
biết phương trình có nghiệm kép, có 2 nghiệm, vô nghiệm hay vô số nghiệm. Trong
trường hợp có nghiệm thì ô txtnghiem1 và txtNghiem2 sẽ hiện kết quả
Nút Tiếp: Xoá dữ liệu có sẳn trong các ô TextBox. ðặt con trỏ ở ô Hệ số A
Nút thoát: ðóng màn hình (Thoát ứng dụng)
Các ñối tượng ẩn hiện ñúng ngữ cảnh của chương trình ñể người sử dụng
không thực hiện nhằm thao tác, trật tự di chuyển (tabIndex) phù hợp. Gắn phím tắt
Enter cho nút Giải và ESC cho nút Thóat
Bài tập 05: Tạo Project Tinhtoan thực hiện tính các bài tóan sau:
frmTongDaySo Thực hiện tính tổng dãy số liên tiếp từ n ñến m
This is trial version
www.adultpdf.com
Bài tập MicroSoft Visual Basic .NET 2005
Dương Thành Phết Trang 3
frmGiaiThua Thực hiện tính giai thừa của 1 số nguyên n.
frmTongChanLe Thực hiện tính tổng chẳn và tổng lẻ dãy số n.
frmTimSoDao Thực hiện tìm số ñảo của số nguyên n.
frmMain, thực hiện mở 4 form tương ứng trên từ 4 nút lệnh
Bài tập 06: Tạo Project Songuyento, thực hiện liệt kê tất cả các số nguyên tố có giá trị
nhỏ hơn N(số nguyên dương) và tính tổng cộng các số nguyên tố ñã tìm ñược dưới ñây:
Yêu cầu:
- Nút Liệt kê: Liệt kê tất cả các số nguyên tố có giá trị nhỏ hơn N và tính tổng cộng
các số nguyên tố ñã tìm ñược.
- Nút bỏ qua : ðể xóa rỗng 3 textbox.
- Nút thoát : ðóng form.
This is trial version
www.adultpdf.com
Bài tập MicroSoft Visual Basic .NET 2005
Dương Thành Phết Trang 4
Bài tập 07: Tạo project Wellcome, thực hiện hiển thị và ñiều chỉnh nội dung từ
TextBox vào Lable, ẩn / hiện các control tùy theo ngữ cảnh dùng thủ tục ñể thực hiện.
Hướng dẫn:
Phân tích trạng thái ẩn, hiện các Control theo từng ngữ cảnh như sau:
Form_Load cmdSua_Click
cmdDongy_Click
cmdKhong_Click
txtNoidung O X O O
cmdSua X O X X
cmdThoat X O X X
cmdDongy O X O O
cmdKhong O X O O
Private Sub frmHello_Load(. . .) Handles MyBase.Load
PhucHoi()
End Sub
Private Sub XacLap()
cmdSua.Visible = False
cmdThoat.Visible = False
txtNoidung.Visible = True
cmdDongy.Visible = True
cmdKhong.Visible = True
End Sub
Private Sub PhucHoi()
cmdSua.Visible = True
cmdThoat.Visible = True
cmdDongy.Visible = False
cmdKhong.Visible = False
txtNoidung.Visible = False
End Sub
Private Sub cmdSua_Click( . . .) Handles cmdSua.Click
XacLap()
txtnoidung.Text = lbchao.Text
txtnoidung.Focus()
txtnoidung.SelectionStart = 0
txtnoidung.SelectionLength() = Len(txtnoidung.Text)
End Sub
Private Sub cmdDongy_Click(. . . ) Handles cmdDongy.Click
lbchao.Text = txtnoidung.Text
PhucHoi()
End Sub
Private Sub cmdThoat_Click(. . . ) Handles cmdThoat.Click
Me.Close()
End Sub
Private Sub cmdKhong_Click(. . . ) Handles cmdKhong.Click
PhucHoi()
End Sub
This is trial version
www.adultpdf.com
Bài tập MicroSoft Visual Basic .NET 2005
Dương Thành Phết Trang 5
Bài tập 08: Tạo Project PrjTinhtong, thực hiện tính “Tổng dãy số” và “Tổng giai thừa
dãy số”
Yêu cầu:
Các yêu cầu tính toán phải thực hiện dưới dạn hàm con
Khi Set Visible các button phải ở dưới dạng thủ tục.
Nút thoát có xuất hiện thông báo
Hướng dẫn:
Function tongdayso(ByVal a As Integer, ByVal b As Integer)
Dim i As Integer, s As Long= 0
For i = a To b
s = s + i
Next
tongdayso = s
End Function
Private Sub cmdTonggiaithuadayso_Click( . . . ) Handles
cmdTonggiaithuadayso.Click
Dim n As Integer, m As Integer
n = Val(txtson.Text)
m = Val(txtsom.Text)
txtketqua.Text = tonggiaithuadayso(n, m)
End Sub
Function giaithua(ByVal k As Integer)
Dim i As Integer, s As Long = 1
For i = 1 To k
s = s * i
Next
giaithua = s
End Function
Function tonggiaithuadayso(ByVal x As Integer, ByVal y As Integer)
Dim i As Integer, s As Long = 0
For i = x To y
s = s + giaithua(i)
Next
tonggiaithuadayso = s
End Function
This is trial version
www.adultpdf.com