tailieunhanh - Giáo trình Lập trình căn bản Visual Basic: Phần 2

Phần 2 giáo trình gồm 3 chương còn lại: Chương 4. Các lệnh và hàm cơ bản, chương 5. Thủ tục và hàm, chương 6. Thiết kế biểu mẫu dùng các điều khiển. Giáo trình giúp bạn tìm hiểu về lập trình căn bản Visual Basic, tiếp phần 2 giáo trình. | Trường Đại học Công Nghệ Sài Gòn Khoa Công Nghệ Thông Tin Chương 4 Các lệnh và hàm cơ bản 1. Lệnh rẽ nhánh . Lệnh If o Một dòng lệnh: If Then o Nhiều dòng lệnh: If Then Các dòng lệnh End If Ý nghĩa câu lệnh: Các dòng lệnh hay dòng lệnh sẽ được thi hành nếu như điều kiện là đúng. Còn nếu như điều kiện là sai thì câu lệnh tiếp theo sau cấu trúc If . Then được thi hành. o Dạng đầy đủ: If . Then . Else If Then [Khối lệnh 1] ElseIf Then [Khối lệnh 2]. [Else [Khối lệnh n]] End If VB sẽ kiểm tra các điều kiện, nếu điều kiện nào đúng thì khối lệnh tương ứng sẽ được thi hành. Ngược lại nếu không có điều kiện nào đúng thì khối lệnh sau từ khóa Else sẽ được thi hành. Ví dụ: If (TheColorYouLike = vbRed) Then MsgBox "You are a lucky person" ElseIf (TheColorYouLike = vbGreen) Then MsgBox "You are a hopeful person" ElseIf (TheColorYouLike = vbBlue) Then MsgBox "You are a brave person" ElseIf (TheColorYouLike = vbMagenta) Then MsgBox "You are a sad person" Giáo trình Lập trình căn bản – dành cho hệ TCCN Trang 26 Trường Đại học Công Nghệ Sài Gòn Khoa Công Nghệ Thông Tin Else MsgBox "You are an average person" End If . Lệnh Select Case Trong trường hợp có quá nhiều các điều kiện cần phải kiểm tra, nếu ta dùng cấu trúc rẽ nhánh If Then thì đoạn lệnh không được trong sáng, khó kiểm tra, sửa đổi khi có sai sót. Ngược lại với cấu trúc Select Case, biểu thức điều kiện sẽ được tính toán một lần vào đầu cấu trúc, sau đó VB sẽ so sánh kết quả với từng trường hợp (Case). Nếu bằng nó thi hành khối lệnh trong trường hợp (Case) đó. Select Case Case [Khối lệnh 1] Case [Khối lệnh 2] . . . [Case Else [Khối lệnh n]] End Select Mỗi danh sách kết quả biểu thức sẽ chứa một hoặc nhiều giá trị. Trong trường hợp có nhiều giá trị thì mỗi giá trị cách nhau bởi dấu phẩy (,). Nếu có nhiều Case cùng thỏa điều kiện thì khối lệnh của Case đầu tiên sẽ được thực hiện. Ví dụ của lệnh rẽ nhánh If Then ở trên có thể viết như sau: Select Case TheColorYouLike Case vbRed MsgBox "You are a