IV .4.2 KHUYẾT ĐIỂM
V.2.CÁC CẤU TRÚC ĐIỀU KHIỂN CHƯƠNG TRÌNH
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
End Sub
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 (adsbygoogle = window.adsbygoogle || []).push({});