bài tập MicroSoft Visual Basic .NET docx
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (3.43 MB, 5 trang )
Bài tập MicroSoft Visual Basic .NET
Biên Soạn : Dương Thành Phết Trang 1
Bài tập 11. Tạo Project minh họa hàm con sử dụng tham số là tham trị và tham số là
tham biến
u cầu khi thực hiện cả 2 hàm con
• Xuất giá trị a,b trước khi gọi hàm
• Xuất giá trị a, b trong tham hàm sau khi đã thực hiện hốn vị 2 số
• Xuất giá trị a, b sau loi gọi hàm
Bài tập 12. Viết chương trình cho phép xử lý chuỗi.
u cầu: Chuỗi ngày tháng nhập vào dùng dấu ngăn cách (-) và chuyển thành chuổi
kết quả có dấu ngăn cách (/)
Hướng dẫn: Sử dụng hàm Split(), hàm Join()
Bài tập 13. Tạo project minh họa các thao tác xử lý trên mảng viết dưới dạng hàm và
thủ tục.
u cầu:
Tất cả các Textbox đều Readonly
This is trial version
www.adultpdf.com
Baứi taọp MicroSoft Visual Basic .NET
Bieõn Soaùn : Dửụng Thaứnh Pheỏt Trang 2
Vit th tc Nhapmang() thc hin lu 5 s nguyờn ngu nhiờn t 1 ủn 100
Th tc xutmang() gỏn 5 giỏ tr t mng vo 5 Textbox
S kin Click() ca nỳt Nhp gi 2 th tc trờn
Th tc Timmax() ủ Tỡm giỏ tr ln nht v v trớ
Vit hm Tong() ủ tớnh tng cỏc phn t trong mng
S kin Click() ca nỳt thc hin Gi th tc Timmax() v hm Tong()
Bi tp 14. Xõy dng chng trỡnh thao tỏc vi mng
Sp xp tng
Xut nguyờn t
Yờu cu:
- Vic nhp s phn t ca mng v giỏ tr cho cỏc phn t bng hm InputBox
- 2 textbox ủ hin th mng ủó nhp v kt qu x lý
- Chc nng Sp xp thc hin sp xp tng
- Chc nng Xut nguyờn t xut cỏc phn t l s nguyờn t
This is trial version
www.adultpdf.com
Bài tập MicroSoft Visual Basic .NET
Biên Soạn : Dương Thành Phết Trang 3
Bài tập 15. Xây dựng chương trình xử lý chuỗi sau:
u cầu:
- Khi vừa mở form chỉ có nút Thốt là sử dụng được, textbox nhập dữ liệu nhận
focus
- Khi textbox nhập dữ liệu vừa được nhập thì các nút sáng lên, đồng thời nếu xóa
hết dữ liệu trong textbox nhập thì các nút cũng mờ đi ngoại trừ nút Thốt=>
viết trong sự kiện change của textbox
- Khi các nút chức năng được nhấn thì kết quả sẽ hiển thị bên textbox Kết quả
Hướng dẫn:
Tìm kiếm : Instr(vị trí bắt đầu tìm, chuỗi chứa, chuỗi cần tìm, phân biệt hoa thường hay ko)
Thay thế : Replace(chuỗi chứa, chuỗi tìm, chuỗi thay thế, vị trí bắt đầu, số lần tìm và thay
thế, phân biệt hoa thường) Trả về chuỗi mới đã được thay thế
This is trial version
www.adultpdf.com
Baứi taọp MicroSoft Visual Basic .NET
Bieõn Soaùn : Dửụng Thaứnh Pheỏt Trang 4
Bi tp 16: Vit chng trỡnh tip nhn v hin th thụng tin, ng dng cỏc Control
TextBox, Option Button, CheckBox, Command Button.
Kt qu ủc hin th qua MessageBox
Bi tp 17: Vit chng trỡnh cho phộp chn ủa danh v ủng ký cỏc ủim tham quan, ng
dng cỏc Control Combo Box, ListBox, Command Button.
Trong ComboBox cha danh sỏch cỏc ủa danh du lch
Listbox1 bờn trỏi hin th danh sỏch cỏc ủim tham quan
Vit lnh x lý s kin tng ng cho 4 nỳt lnh ủ thc hin chn v chuyn cỏc
ủa danh qua li 2 listbox.
Hng dn:
Private Sub cmd1_Click()
Dim Noidung As String
Dim i As Integer, n As Integer
For i = 0 To ListBox1.SelectedItems.Count - 1
Noidung = ListBox1.SelectedItems.Item(i)
ListBox2.Items.Add(Noidung)
Next
For i = ListBox1.SelectedItems.Count - 1 To 0 Step -1
ListBox1.Items.Remove((ListBox1.SelectedItems.Item(i)))
Next
End Sub
This is trial version
www.adultpdf.com
Baứi taọp MicroSoft Visual Basic .NET
Bieõn Soaùn : Dửụng Thaứnh Pheỏt Trang 5
Private Sub cmd2_Click()
Dim Noidung As String
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
Noidung = ListBox1.Items.Item(i)
ListBox2.Items.Add(Noidung)
Next
ListBox1.Items.Clear()
End Sub
Bi tp 18: Xõy dng chng trỡnh thao tỏc vi Listbox nh sau :
Yờu cu:
Ch cho nhp s vo textbox Nhp s
Khi nhp d liu vo textbox Nhp s v nhn Enter(hoc click vo Cp Nht) thỡ
s mi nhp ny ủc thờm vo Listbox ủng thi d liu trong textbox b xúa v
focus ủc chuyn v textbox
Khi nhn vo cỏc phớm chc nng, yờu cu s ủc thc hin trờn listbox
Bi tp 19: Xõy dng chng trỡnh nhp danh sỏch sinh viờn theo yờu cu:
Yờu cu:
Nỳt > dựng ủ di chuyn cỏc mc ủc chn t listbox trỏi qua listbox phi v ngc
li cho <
Nỳt >> dựng ủ di chuyn tt c cỏc mc(k c khụng ủc chn) t listbox trỏi qua
listbox phi v ngc li cho <<
Nỳt Xúa dựng ủ xúa nhng item ủc chn trờn textbox trỏi
This is trial version
www.adultpdf.com
