VÒNG LẶP DO… UNTIL

Tương tự như While… WEnd, khối lệnh Do … Until cũng thực hiện việc lặp dựa trên việc kiểm tra biểu thức điều kiện.

Cú pháp :

Do                  <các câu lệnh>                  ........  Until  <điều kiện> 

Giải thích

Vòng lặp Do.. Until thực hiện việc lặp lại các lệnh bên trong nó khi <điều kiện> trả về giá trị False. Có nghĩa là vòng lặp sẽ kết thúc nếu như <điều kiện> là đúng (True).

Chú ý

Không giống như For và While, cả hai vòng lặp này đều thực hiện việc kiểm tra điều kiện ở phần đầu của vòng lặp. Vòng lặp Do.. Until thực hiện việc kiểm tra điều kiện sau khi <các câu lệnh> được thi hành. Điều này có nghĩa là Do…Until luôn thực hiện việc lặp ít nhất một lần.

Ví dụ

                Đoạn chương trình sau tính giá trị trung bình một dãy số (không biết trước có bao nhiêu số) do người dùng nhập vào. Quá trình nhập số kết thúc khi người dùng nhập vào số 0. Biến $sum sẽ cộng dồn các giá trị được nhập vào, $count sẽ đếm xem đã qua bao nhiêu lần nhập số (tương ứng với số lần lặp lại).

Global $n, $count=0, $sum=0  Do        $n = InputBox("Get Data", "Please enter a number." &@crlf & "If number is zero, stop entering data")        $sum += $n        $count += 1  Until $n=0  $count -= 1  ; bỏ qua lần nhập số 0  MsgBox(0,"Result", "Average of sum : " & $sum/$count)