BỘ GIÁO DỤC ĐÀO TẠO BÀI TẬP VB.NET CÓ LỜI GIẢI FULL

BAI TAP VB NET CO BAN
***Bai 1 :
Tao khung dang nhap he thong voi cac yeu cau sau :
- Khi nhap vao Ten dang nhap : "Bao Son" va Mat khau : " 123" thi khi click
vao nut Bang Nhap se hien " Ban da dang nhap thanh cong ". Con ngnoc lai thi
thong bao " Ban hay nhap lai "
- Khi click vao nut Thoat , se bao thong bao " Ban co muon thoat hay khong ?
Nhan Yes la thoat va No la tro lai nhn cu.

Code:
Imports System Imports System.IO
Public Class Forml Dim n As Integer
Private Sub BtnOK_Click(sender As Object, e As EventArgs) Handles BtnOK.Click n = n + 1
If (TextName.Text = "") And (TextPass.Text = "") Then MessageBox.Show("Ban chtfa nhap thong tin !",
"Thong bao", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
If (TextName.Text = "") Or (TextPass.Text = "") Then MessageBox.Show("Ban chtfa nhap thieu thong
tin !", "Thong bao", MessageBoxButtons.OK, MessageBoxIcon.Information)
If TextName.Text = "" Then TextName.Focus()
If TextPass.Text = "" Then TextPass.Focus()
Else
If UCase(TextName.Text) = "BAO SON" And TextPass.Text = "123" Then MessageBox.Show("Dang


nhap thanh cong !", "Thong bao", MessageBoxButtons.OK, MessageBoxIcon.Information)
Application.Exit()
Else
If n = 3 Then
MessageBox.Show("Ban het quyen dang nhap !", "Thong bao", MessageBoxButtons.OK,
MessageBoxIcon.Information)
Application.Exit()

End If
MessageBox.Show(String.Format("Nhap sai thong tin lan {0}, nhap lai ", n), "Thong bao",
MessageBoxButtons.OK,
MessageBoxIcon.Information)
TextName.Text = ""
TextPass.Text = ""
TextName.Focus()
End If End
If End If
End Sub
Private Sub BtnCancel_Click(sender As Object, e As EventArgs) Handles BtnCancel.Click
Dim result = MessageBox.Show("Ban muon thoat ?", "Thong bao", MessageBoxButtons.YesNo,
MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
If (result = DialogResult.Yes) Then Application.Exit()
End If End Sub
Private Sub TextName_KeyDown(sender As Object, e As KeyEventArgs) Handles TextName.KeyDown If
e.KeyCode = Keys.Enter Then TextPass.Focus()
End If End Sub
Private Sub TextPass_KeyDown(sender As Object, e As KeyEventArgs) Handles TextPass.KeyDown If
e.KeyCode = Keys.Enter Then BtnOK.Focus()
End If End Sub
Private Sub TextName_GotFocus(sender As Object, e As EventArgs) Handles TextName.GotFocus
TextName.BackColor = Color.Cyan


End Sub
Private Sub TextName_LostFocus(sender As Object, e As EventArgs) Handles TextName.LostFocus
TextName.BackColor = Color.White End Sub
Private Sub TextPass_GotFocus(sender As Object, e As EventArgs) Handles TextPass.GotFocus
TextPass.BackColor = Color.Cyan End Sub

Private Sub TextPass_LostFocus(sender As Object, e As EventArgs)
Handles TextPass.LostFocus
TextPass.BackColor = Color.White
End Sub
End Class
*** Bai 2 :
Tao khung thong tin. Trong do , nhap Ho va Ten , Ngay Thang Nam
Sinh , So Thmh. Nhan nut Xem de hien thong tin vna nhap xuong
khung ket qua

Code:
Imports System Imports
System.IO Public Class


Forml
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i = 1 To 31
CbNgay.Items.Add(i)
Next
CbNgay.SelectedIndex = 0 For i = 1 To 12
CbThang.Items.Add(i)
Next
CbThang.SelectedIndex = 0 For i = 1950 To 2017
CbNam.Items.Add(i)
Next
CbNam.SelectedIndex = 0 End Sub
Private Sub BtnXem_Click(sender As Object, e As EventArgs) Handles BtnXem.Click
Dim str As String
str = "Ho ten: " & TextName.Text & vbCrLf

vbCrLf

str = str & "Ngay sinh: " & CbNgay.Text & "/" & CbThang.Text & "/" & CbNam.Text &
str = str & "Sd thich: " & TextSothich.Text TextKQ.Text = str End Sub

Private Sub BtnThoat_Click(sender As Object, e As EventArgs) Handles BtnThoat.Click
Application.Exit()
End Sub
End Class
*** Bai 3:
Giai Phuong Trinh Bac 1 va Giai Phuong Trinh Bac 2. Ma trong do :
- Khi chon radio Giai PTBacl thi khung nhap c bi md di
- Khi chon radio Giai PTBac2 thi hien day du khung nhap


*** Bai 4:
Tmh Uac So Chung Lan Nhat va Boi So Chung Nho Nhat

*** Bai 5 :
Hay nhap
nguyen a va b. Tmh
- Tong , Hieu , Tfch , Thnong cua hai so vna nhap.
- Xu ly nut Thoat trong chnong trinh

vao hai so


*** Bai 6 :
Hay nhap vao mot
ky. Voi yeu cau

- Xuat cac so vua
- Tmh tong cac
- Tmh tong so
- Khong duoc

day so nguyen bat
nhap ra man hinh.
so vua nhap
chan va tong so le.
dung mang.


*** Bai 7 :
Hay nhap vao n bat ky. Vai yeu cau sau :
- Kiem tra xem n co phai la so nguyen to hay khong ?
- Tim cac so nguyen to nho hon n

*** Bai 8 :
Hay nhap vao hai phan so bat ky. Vai yeu cau sau :
- Tmh Tong , Hieu , Tfch , Thuong cua hai phan so do
- Khi click vao cac button Phep Toan nao thi hien len label ben khung ket
qua

*** Bai 9 :
Hay viet Chuong Trinh danh cho.


May Tmh Bo Tui don gian voi cac phep toan Cong, Tra, Nhan, Chia, Xoa

*** Bai 10 :

Hay viet Chuong Trinh tinh Chu Vi va Dien Tfch
- Hinh vuong , hinh tron , hinh chu nhat , hinh tam giac
- Khi click vao radio button nao thi khung tinh cua cai do moi hien ra.


Kiem tra xem cac canh cua tam giac nhap vao tao thanh tam giac gi (deu, can,

vuong ) ?