V.2.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.
V.2.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 myNum = myNum – 1 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
Loop Until myNum = 10
Đồ án tốt nghiệp Trang 31
Cách dùng Exit Do để thố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 : thốt khỏi vịng lặp For . . . Next