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

VB.Net là một ngôn ngữ lập trình máy tính đơn giản, hiện đại, hướng đối tượng phát triển bởi Microsoft để kết hợp sức mạnh của. NET Framework và thời gian chạy ngôn ngữ phổ biến với những lợi ích năng suất là dấu ấn của Visual Basic. Hướng dẫn này sẽ dạy cho bạn lập trình cơ bản VB.Net và cũng sẽ đưa bạn qua các khái niệm tiên tiến khác nhau liên quan đến ngôn ngữ lập trình VB.Net. Thính giả Hướng dẫn này đã được chuẩn bị cho người mới bắt đầu để giúp họ hiểu các chương trình VB.Net cơ bản. Sau khi hoàn thành hướng dẫn này, bạn sẽ thấy mình ở trình độ trung bình về chuyên môn trong lập trình VB.Net từ nơi bạn có thể tự đưa mình đến các cấp độ tiếp theo. Điều kiện tiên quyết VB.Net lập trình rất nhiều dựa trên BASIC và Visual Basic ngôn ngữ lập trình, do đó, nếu bạn có sự hiểu biết cơ bản về các ngôn ngữ lập trình, sau đó nó sẽ là một niềm vui cho bạn để học ngôn ngữ lập trình VB.Net.

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,

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

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

str = str & "Ngay sinh: " & CbNgay.Text & "/" & CbThang.Text & "/" & CbNam.Text & vbCrLf

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 5 :

Hay nhap vao hai so nguyen a va b Tmh

- Tong , Hieu , Tfch , Thnong cua hai so vna nhap

- Xu ly nut Thoat trong chnong trinh

*** Bai 4:

Tmh Uac So Chung Lan Nhat va Boi So Chung Nho Nhat

-*** Bai 6 :

Hay nhap vao mot day so nguyen bat ky Voi yeu cau

- Xuat cac so vua nhap ra man hinh

- Tmh tong cac so vua nhap

- Tmh tong so chan va tong so le

- Khong duoc 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 ) ?