Bài tập thực hành If
Thiết kế một chương trình đăng nhập (Log In) cho phép người sử dụng đánh tên và mật mã (Password) vào sau đó kiểm tra xem password có đúng với chuỗi được quy định trước hay không?
Thiết kế giao diện
Tạo các control (label, textbox, command button) như hình
Đặt tên lần lượt là TxtUser, TxtPassword, cmdOK,CmdCancel
Thiết lập thuộc tính PasswordChar cho txtPassword là * (che ký tự nhập vào)
Viết code cho chương trình
Ví dụ: Viết chương trình giải phương trình bậc nhất Ax+B=0
Option Explicit
Private Sub Form_Load()‘Lưu ý: sử dụng sự kiện load để cài đặt các yếu tố ban đầu
lbl_tua.Caption = "CHƯƠNG TRÌNH" & Chr(13) & " GIẢI PHƯƠNG TRÌNH BẬC I Ax+B=0" ‘Sử dụng ký tự chr(13) để xuống dòng
txt_A.Text = ""
txt_b.Text = ""
txt_kq.Text = ""
End Sub
Private Sub cmd_giai_Click()
If txt_A.Text = "" Or txt_b.Text = "" Then
MsgBox "Bạn chưa nhập đủ dữ liệu "
ElseIf Val(txt_A.Text) <> 0 Then
txt_kq.Text = "Nghiệm của PT là: " & Val(txt_b.Text) / Val(txt_A.Text)
ElseIf Val(txt_b.Text) = 0 Then
txt_kq.Text = "Phương trình vô số nghiệm"
Else
txt_kq.Text = "Phương trình vô nghiệm"
End If
End Sub
Private Sub cmd_moi_Click()
txt_A.Text = ""
txt_b.Text = ""
txt_kq.Text = ""
txt_A.SetFocus ‘Chuyển focus về textbox txt_a để tiện lợi cho người sử dụng nhập liệu
End Sub
Private Sub cmd_kt_Click()
End
End Sub
3. Cấu trúc lựa chọn SELECT CASE … END SELECT
Ví dụ: thực hiện lại ví dụ nói trên, xuất ra màn hình chuỗi phát âm của thứ nhập vào
Chia sẻ với bạn bè của bạn: |