3.6.1. Cấu trúc rẽ nhánh
Nếu ta muốn chạy một lệnh đơn khi điều kiện If là đúng thì ta chỉ sử dụng một lệnh If . . .then .
Ta cũng có thể dùng If. . .then. . .Else để xác định thực thi một trong 2 khối lệnh. Một khối thực thi khi điều kiện If là True Khối còn lại thực thi khi điều kiện If là
False .
3.6.2. Cấu trúc lặp
Sử dụng từ khóa While :
Ví dụ:
Sub ChkFirstWhile() Dim counter, myNum counter = 0
myNum = 20
Do While myNum > 10
counter = counter + 1
Loop End Sub
Sub ChkLastWhile()
Dim counter, myNum counter = 0 myNum = 9
Do
myNum = myNum – 1 counter = counter + 1
Loop While myNum > 10
End Sub
Sử dụng từ khóa Until :
Ví dụ:
Sub ChkFirstUntil() Dim counter, myNum counter = 0 myNum = 20 Do Until myNum = 10 myNum = myNum – 1 counter = counter + 1 Loop End Sub Sub ChkLastUntil()
Dim counter, myNum counter = 0
myNum = 1
Do
myNum = myNum + 1 counter = counter + 1
End Sub
♦ Cách dùng Exit Do để thoát khỏi vòng lặp
Ví dụ:
Sub ExitExample()
Dim counter, myNum counter = 0 myNum = 9 Do Until myNum = 10
myNum = myNum – 1 counter = counter + 1
If myNum < 10 Then Exit Do Loop
End Sub
For . . .Next :
Được sử dụng khi biết trước số lần lặp. Sau mỗi lần lặp biến đếm tự động tăng lên một. Ví dụ: Sub DoMyProc50Times() Dim x For x = 1 To 50 MyProc Next End Sub
Từ khóa Step : Sau mỗi lần lặp, biến đếm được tăng thêm một giá trị bằng với
step Ví dụ : Sub TwosTotal() Dim j, total For j = 2 To 10 Step 2 total = total + j
Next MsgBox “The total is “ & total End Sub
Từ khóa Exit For : thoát khỏi vòng lặp For . . . Next