- NO T: Trả về True nếu toán hạng là False Trả về False nếu toán hạng là True
a.Cấu trúc lựa chọn IF
Cấu trúc IF do Visual Basic hỗ trợ gồm 2 dạng chính sau đây:
Dạng:
IF <điều kiện> THEN
<Các lệnh thực hiện khi điều kiện thoả mãn>
END IF
Hay là:
IF <điều kiện> THEN
<Các lệnh thực hiện khi điều kiện thỏa mãn>
ELSE
<Các lệnh thực hiện khi điều kiện không thỏa mãn>
END IF
Ý nghĩa: Là một cấu trúc điều kiện, thực hiện cơng việc nào đó nếu điều kiện đề ra là
đúng hoặc ngược lại.
Với cú pháp thứ nhất của IF sẽ kiểm tra xem giá trị của điều kiện là đúng hay sai. Nếu đúng thì chương trình sẽ thực hiện các lệnh được khai báo. Cú pháp này không quan tâm trường hợp điều kiện có giá trị sai.
Khác với cú pháp thứ nhất, dạng IF trong cú pháp thứ hai sẽ thực hiện các lệnh giữa Elsse và End If khi điều kiện có giá trị sai.
Trong đó: Điều kiện có thể là các phép so sánh chuỗi hoặc số, hay các phép tốn Logic khác.
Ví dụ 1: Giải phương trình bậc 1 (giao diện như sau)
- Nút giải dùng để kiểm tra tính hợp lệ của dữ liệu và in kết quả vào ô textbox nghiệm. Private Sub cmdgiai_Click()
Dim a As Single, b As Single, kq As Single If(txta = “” Or txtb = “”) Then MsgBox ‘’Bạn phải nhập đủ các hệ số’’ Else a = Val(txta) b = Val(txtb) If a = 0 Then MsgBox ‘’Hệ số a phải khác 0’’ Txta.SetFocus Else Kq = -a / b Txtkq = Format (kq, “0.0”) End If End If End Sub
- Nút tiếp sẽ xóa tất cả nội dung của các hộp textbox. Sau đó đặt con trỏ vào hộp textbox hệ số a.
Private Sub cmdtiep_Click() Txta= “ ”
Txtkq= “ ” Txta.SetFocus End Sub
- Nút thốt dùng để thốt khỏi chương trình. Private Sub cmdThoat_Click()
End End Sub