II. CÁC PHÁT BIỂU:
4. Phát biểu IF:
⇒ IF <điều kiện thỏa> THEN <Thực hiện câu lệnh>
Nếu điều kiện thỏa thì thực hiện câu lệnh ⇒ IF <điều kiện thỏa> THEN
< Thực hiện câu lệnh 1 >
ELSE
< Thực hiện câu lệnh 2 >
⇒ IF <điều kiện 1 thỏa> THEN
< Thực hiện câu lệnh 1 >
ELSE
IF <Điều kiện 2 thỏa> THEN
< Thực hiện câu lệnh 2 > . . . ELSE < Thực hiện câu lệnh n > END IF END IF
Nếu điều kiện 1 thoả thì thực hiện câu lệnh 1 cịn ngược lại nếu điều kiện 2 thoả thì thực hiện câu lệnh 2 . . . . ngược lại cuối cùng thực hiện câu lệnh thứ n.
Ví dụ: Sử dụng ngăn Module Viết các hàm để thực hiện những cơng việc sau:
⇒ Dùng vịng lặp if viết chương trình cho phép nhập vào 2 số a, b bất kỳ từ bàn phím. So sánh kết quả và in ra kết quả số lớn nhất.
Function max2so() Dim a, b As Byte
a = InputBox("moi nhap so a:", "nhap a!") b = InputBox("moi nhap so b:", "nhap b!") If a > b Then
MsgBox "so lon nhat la so: " & a Else
MsgBox "so lon nhat la so: " & b End If
End Function
⇒ Sử dụng phát biểu if viết chương trình cho phép nhập vào bán kính hình trịn và tính diện tích hình trịn đĩ.
Public Sub dt_ht()
Dim bk As Integer, dt As Double
bk = InputBox("nhap ban kính hinh tron:") If bk > 0 Then
dt = bk * bk * 3.14
MsgBox "dien tich hinh tron =" & dt Else
MsgBox "ban kinh khong hop le" End If
⇒ Viết một hàm cho nhập vào một số bất kỳ và cho biết số đĩ âm hay dương hay bằng khơng Function doanso()
Dim a As Integer, loai As String
a = InputBox("Moi ban nhap 1 so:", "Nhap A!", 2) If Val(a) > 0 Then
Loai = "So duong" Else
If Val(a) < 0 Then Loai = "So am" Else
Loai = "So 0" End If
End If
Doanso = Loai ‘Gán giá trị lại cho hàm đốn số và sau đĩ dùng hàm MsgBox xuất KQ ra màn hình’
MsgBox "So " & a & " la " & Doanso, vbOKOnly + vbExclamation, "Ket Qua" End Function
Chú ý: Hàm Val(String): Dùng đổi kiểu chuỗi số ra thành số. VD: Val(4) = 4
5. Phát biểu SELECT CASE: Lựa chọn những trường hợp của biến, tùy theo giá trị của biến mà
thực hiện các phát biểu tương ứng.
Cú pháp:
SELECT CASE < biến >
CASE 1 < Câu lệnh 1 > CASE 2 < Câu lệnh 2 > . . . CASE n < Câu lệnh n > END SELECT
Ví dụ: Viết hàm để thực hiện các cơng việc sau:
⇒ Nhập vào một ngày bất kỳ cho biết thời khố biểu của ngày đĩ 2 = “Toan, Ly, Hoa, Sinh”
3 = “The duc, Van, Ve, Sinh” 4 = “Khieu Vu, Karaoke, the duc” 5 = “Van, Ly, Hoa, Sinh”
6 = “Vi tinh, Ve, Dance, Sinh” 7 = “Di choi voi nguoi yeu”
Function khoabieu()
Dim monhoc As String, thu As Byte
thu = InputBox("moi ban nhap ngay hoc:", "nhap ngay", 2)
Select Case Val(thu)
Case 2
monhoc = "Toan, Ly, Hoa, Sinh" Case 3
monhoc = "The duc, Van, Ve, Sinh" Case 4
monhoc = "Khieu Vu, Karaoke, The duc" Case 5
monhoc = " Van, Ly, Hoa, Sinh" Case 6
monhoc = " Toan, Ly, Hoa, Sinh" Case 7
monhoc = " Vi tinh, Ve, Dance, Sinh" Case Else
monhoc = "Di choi voi nguoi yeu"
End Select
khoabieu = monhoc
MsgBox "Mon hoc cua ban:" & khoabieu, vbApplicationModal + vbOKCancel, "KQ"
End Function