Bài tập MicroSoft Visual Basic .NET 2005

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 A-PDF Watermark DEMO: Purchase from www.A-PDF.com to remove the watermark 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 Bài tập MicroSoft Visual Basic .NET 2005 Dương Thành Phết Trang 6 Bài tập 09: Tạo Project PrjUocboisochung, thực hiện tìm “Ước số chung lớn nhất ” và “Bội số chung nhỏ nhất” của 2 số nguyên A và B: Yêu cầu: - Viết hàm (Nút Tìm) tìm USCLN và BSCNN của 2 số a và b. Nếu ta chọn Option USCLN thì xuất ra kết quả ước số chung lớn nhất hay ngược lại là bội số chung nhỏ nhất. - Nút bỏ qua dùng ñể xóa rỗng các Textbox. - Nút Thoát có xuất hiện thông báo Bài tập 10: Tạo một ứng dụng (PrjCalculator) Thực hiên chức năng như 1 máy tính bỏ túi với các phép toán cơ bản +,-,x,/ Gồm : 1 textbox ñể nhập phép toán & hiện thị kết quả, 10 nút lệnh tươnmg ứng 10 ký số 0  9, 4 nút lệnh cho 4 phép toán +, - , x, / , 1 nút = ñể kết thúc phép toán và hiện thị kết quả, 1 nút AC dùng ñể xóa nội dung trên textbox, 1 nút thoát ñể ñóng form. HD: Sử dụng cấu trúc lệnh trình rẽ nhánh If . . Else . . End if và Select . . . Case . . . This is trial version www.adultpdf.com