Dùng IF THEN ELSE statement Hãy xem thí dụ:

Một phần của tài liệu Lap trinh Visual Basic can ban phan1 (Trang 39 - 40)

Hãy xem thí dụ: If (StudentPassmark > 75) Then ' Part A EnrollStudentAtPublicSchool Else ' Part B EnrollStudentAtPrivateSchool End If

Nếu học sinh đậu với số điểm trên 75 thì cho học trường công, NẾU KHÔNG thì phải học trường tư. Tức là nếu StudentPassmark > 75 là TRUE thì xử lý phần A, nếu không thì xử lý phần B. Để ý phần A gồm những dòng code nằm giữa dòng If (StudentPassmark > 75) then và else. Còn phần B gồm những dòng code nằm giữa dòng else và end if.

Ta có thể ráp chữ ELSE với chữ IF để dùng như trong thí dụ sau đây: <

If (StudentPassmark > 75) Then

EnrollStudentAtPublicSchool

ElseIf (StudentPassmark >= 55) Then

EnrollStudentAtSemipublicSchool

Nếu học sinh đậu với số điểm trên 75 thì cho học trường công, NẾU từ 55 điểm đến 75 điểm thì cho học trường bán công, nếu không (tức là điểm đậu dưới 55) thì phải học trường tư.

Nếu ở tỉnh nhỏ, không có trường tư, ta không có quyết định cho học trò đậu dưới 55 điểm học ở đâu thì bỏ phần ELSE trong thí dụ trên. Phần chương trình trở thành:

If (StudentPassmark > 75) Then

EnrollStudentAtPublicSchool

ElseIf (StudentPassmark >= 55) Then

EnrollStudentAtSemipublicSchool

End If

Ta có thể dùng ELSEIF nhiều lần như sau:

If (TheColorYouLike = vbRed) Then

MsgBox "You 're a lucky person"

ElseIf (TheColorYouLike = vbGreen) Then

MsgBox "You 're a hopeful person"

ElseIf (TheColorYouLike = vbBlue) Then

MsgBox "You 're a brave person"

ElseIf (TheColorYouLike = vbMagenta) Then

MsgBox "You 're a sad person"

Else

MsgBox "You 're an average person"

End If

Execution đi lần lượt từ trên xuống dưới, nếu một điều kiện IF là TRUE thì xử lý phần của nó rồi nhảy xuống ngay dưới dòng END IF. Chỉ khi một điều kiện IF không được thỏa mãn ta mới thử một điều kiện IF bên dưới kế đó. Tức là nếu bạn thích màu đỏ lẫu màu tím (magenta) thì chương trình sẽ display "You're a lucky person", và không hề biết "You're a sad person".

Một phần của tài liệu Lap trinh Visual Basic can ban phan1 (Trang 39 - 40)