10. Cấu trúc điều khiển
10.3. Xây dựng các điều kiện
TOP
Trong nhiều trường hợp, điều kiện lọc dữ liệu đã trở nên khá phức tạp. Nếu chỉ sử dụng If hay Select Case thì cơng việc sẽ rất cồng kềnh, rắc rối. Trong hồn cảnh đó, And và Or giúp bạn thực hiện cơng việc đó, giúp chương trình sáng sủa và dễ đọc.
10.3.1. Sử dụng And Câu lệnh như sau:
If <điều kiện 1> And <điều kiện 2> Then <khối lệnh 1>
Else
<khối lệnh 2> End If
`
<khối lệnh 1> chỉ thực hiện khi cả hai điều kiện 1 và 2 đều đúng. Chỉ 1 trong 2 điều kiện sai thì <khối lệnh 2> sẽ thực hiện. 10.3.2. Sử dụng Or
Câu lệnh như sau:
If <điều kiện 1> Or <điều kiện 2> Then <khối lệnh 1>
Else
<khối lệnh 2> End If
<khối lệnh 1> thực hiện khi một trong hai điều kiện 1 và 2 đúng. Cả 2 điều kiện sai thì <khối lệnh 2> sẽ thực hiện. 10.3.3. Sử dụng nhiều And và Or
Câu lệnh như dưới đây:
If <điều kiện 1> And <điều kiện 2> And <điều kiện 3> Then <khối lệnh 1>
Else
<khối lệnh 2> End If
<khối lệnh 1> chỉ thực hiện khi cả ba điều kiện đều đúng. Chỉ 1 trong 3 điều kiện sai thì <khối lệnh 2> sẽ thực hiện. Tương tự đối với Or.
Ví dụ:
Bạn có thể xác định tên đất dựa vào hệ số rỗng tự nhiên, chỉ số dẻo, độ sệt. Sub Ten_dat()
Dim Hsr, Chisodeo, Doset As Single Hsr = InputBox("Vao gia tri he so rong:") Chisodeo = InputBox("Vao gia tri chi so deo:") Doset = InputBox("Vao gia tri do set:")
If Hsr > 1.5 And Chisodeo >= 17 And Doset > 1 Then MsgBox "Day la dat BUN SET!"
ElseIf Hsr > 1.0 And Chisodeo >= 7 And Doset > 1 Then MsgBox "Day la dat BUN SET PHA!"
MsgBox "Day la dat BUN CAT PHA!" Else
MsgBox "Chua ro ten dat!!!!" End If
End Sub