Cấu trúc đa rẽ nhánh Select Case

Viết lệnh:

PrivateSubForm_Load()

Dim Thu As Integer

Thu = InputBox("Nhập vào một con số : ", "Sử dụng cấu trúc SelectCase", 2)

Select Case Thu

Case 2

MsgBox "Thứ 2"

Case 3

MsgBox "Thứ 3"

Case 4: MsgBox "Thứ 4"

Case 5: MsgBox "Thứ 5"

Case 6: MsgBox "Thứ 6"

Case 7: MsgBox "Thứ 7"

Case 8: MsgBox "Chủ nhật. Chúc bạn một ngày vui vẻ !"

Case Else

MsgBox "Bạn phải nhập đúng (2--> 8)", vbCritical, "Khuyến cáo !"

End Select

End Sub

Ghi chú:

• Biểu thức để kiểm tra (đứng sau SelectCase) có thể là một biểu thức số thực, số nguyên, ký tự, xâu ký tự v.v...
• Có thể viết nhiều câu lệnh trên cùng một dòng bằng cách thêm vào dấu hai chấm ":" giữa các câu lệnh (Như các phần Case ở trên)

Viết lệnh:

PrivateSubForm_Load()

Dim TiengAnh As String

TiengAnh = InputBox("Nhập từ tiếng Anh: ", "Sử dụng cấu trúc Select", "computer")

SelectCase TiengAnh

Case "computer"

MsgBox "Nghĩa của computer là Máy tính"

Case "ram"

MsgBox "Nghĩa của ram là Bộ nhớ trong"

Case "cpu", "CPU"

MsgBox "Nghĩa của cpu là: Bộ xử lý trung tâm"

Case Else

MsgBox "Xin lỗi, từ này chưa có trong từ điển", vbInFormation

End Select

End Sub

c) Sử dụng từ khoá is để kiểm tra biểu thức thuộc một miền giá trị. Đây là tính năng rất mạnh của cấu trúc SelectCase so với các ngôn ngữ khác.

Thực hành: Giải phương trình bậc hai sử dụng cấu trúc SelectCase (Đối với các ngôn ngữ khác như PAscal hay C/C++ thì không hỗ trợ cách thức này)