Dạng 1: If then Chỉ có một viết sau then Ví dụ: Max = a If Max then end if Dạng này được sử dụng thay cho dạng 1 khi có nhiều lệnh sau then Dạng 3: If then elseif then . elseif then else end if Ví dụ: If a b then Max = a Else Max = b End if II. LỆNH CHỌN LỰA CASE Chọn lựa lệnh thực hiện theo giá trị Select Case . Case . | Giáo trình Visual Basic 35 Chương 4 Các cấu trúc điều khiển I. LỆNH ĐIỀU KIỆN IF Dạng 1 If Điều kiện then lệnh Chỉ có một Lệnh viết sau then Ví dụ Max a If Max b then max b Dạng 2 If Điều kiện then lệnh end if Dạng này được sử dụng thay cho dạng 1 khi có nhiều lệnh sau then Dạng 3 If Điều kiện 1 then lệnh 1 elseif Điều kiện 2 then lệnh 2 . elseif Điều kiện n then lệnh n else lệnh n 1 end if Ví dụ If a b then Max a Else Max b End if II. LỆNH CHỌN LỰA CASE Chọn lựa lệnh thực hiện theo giá trị Select Case Biểu thức . Case Danh sách trị n lệnh n Nguyễn Đăng Quang 36 Giáo trình Visual Basic Case else lệnh n 1 End select Ví dụ Select Case Round Diem Case 0 to 4 Kem Case 5 6 Trung binh Case 7 8 Khá Case 9 10 Giỏi Case else Không hợp lệ End select III. LỆNH LẶP FOR . NEXT Dạng For Biến Trị đầu to Trị cuối Step Bước tăng lệnh Next Biến lệnh được thực hiện từ trị đầu đến trị cuối giá trị của biến được thay đổi theo bước tăng Ví dụ Tính tổng các số nguyên từ 1 đến 10 S 0 For i 1 to 10 s s i Next i Tính tổng các số chắn For i 0 to 10 step 2 s s i Next i Tạo ra một chuỗi có 10 chữ a strS For i 1 to 10 strS strS a Next i Ví dụ Vòng lặp sau tạo ra 10 chuỗi với cùng nội dung Dim Words Chars MyString For Words 10 To 1 Step -1 For Chars 0 To 9 MyString MyString Chars Next Chars Giáo trình Visual Basic 37 MyString MyString Next Words IV. LỆNH LẶP DO . LOOP Dạng 1 Do while Điều kiện Lệnh Loop Các lệnh trong vòng lặp bắt đầu được thực hiện nếu điều kiện đúng và lặp lại cho đến khi nào điều kiện sai Ví dụ Dim I As Integer Dim strS As String i 1 Do while i 10 StrS strS a i i 1 Loop Dạng 2 Do Lệnh Loop Until điều kiện Các lệnh trong vòng lặp được thực hiện cho đến khi nào điều kiện đúng Ví dụ Dim I As Integer Dim strS As String i 1 Do StrS strS a i i 1 Loop Until I 10 Ví dụ Đếm số chữ số của 1 số nguyên dương Dim Dem So As Integer So Dem 0 Do So So 10 Dem Dem 1 Loop Until So 0 Ví dụ Tìm ước .
