tailieunhanh - Cơ sở lập trình tự động hóa tính toán, thiết kế với VB và VBA trong môi trường Auto Cad part 3

Tham khảo tài liệu 'cơ sở lập trình tự động hóa tính toán, thiết kế với vb và vba trong môi trường auto cad part 3', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | . CÁU TRÚC LẶP Vòng lặp cho phép thi hành một đoạn chương trình nhiều lần. . Võng lặp Do. Loop Thi hành một khối lệnh với sổ lần lặp không định trước trong đó một biểu thức điều kiện dùng so sánh quyết định vòng lặp có tiếp tục hay không. Điều kiện phải trả về False 0 hoặc True 0. Do. Loop có 4 cú pháp khác nhau Cú pháp thứ nhất Do While Điều kìện Khẩì ỉệnh Loop Kiểm tra điều kiện trước khi vào vòng lặp. Thực hiện câu lệnh chi khi điều kiện là True. Vi dụ I Trong thủ tục này đã kiểm tra điều kiện trước khi vào vòng lặp chương trình. Sub FirstWhìle counter 0 myNum 20 Do While myNum 10 myNum myNum - 1 counter counter 1 Loop MsgBox The loop made counter repetitions. End Sub Cú pháp thứ hai Do Khổi ỉệnh Loop While Điểu kiện Kiểm tra điều kiện sau khi chạy vòng lặp và thực hiện khối lệnh khi điều kiện là True. Ví dụ 2 Trong thủ tục chạy chương trình trước khi kiểm tra điều kiện Sub LastWhileQ counter 0 myNum 9 55 Do myNum myNum - 1 counter counter 1 Loop While myNum 10 MsgBox The loop made counter repetitions. End Sub Cú pháp thứ ba Do Until Điều kiệrí Khẩi ỉệnh Loop Vỉ dụ 3 Sau kiểm tra điều kiện trước khi vào vòng lặp và thực thi khối ỉệnh khi điều kiện là False Sub ExitExampleO counter 0 myNum 9 Do Until myNum 10 myNum myNum - 1 counter counter 1 If myNum 10 Then Exit Do Loop MsgBox The loop made counter repetitions. End Sub Cú pháp thứ tư Do Khối lệnh Loop Until Điều kiện Vi dụ 4 Sau lặp trong khi điều kiện là False và có ít nhất một lần thi hành khối lệnh Sub LastUntilO counter 0 myNum - 1 Do myNum myNum 1 56 counter counter 1 Loop Until myNum 10 MsgBox The loop made counter repetitions. End Sub . Đây là vòng lặp thông thường nhất sử dụng vòng lặp này khi đã biết chính xác số lần lặp. For Biến đem Điểm đầu To Điểm cuối Step Bước nháy Khẩi ỉệnh Next Chủ ỷ Biến đem điểm đầu điểm cuối và bước nhảy là những giá trị số. Bước nhảy cỏ thể là dương hoặc âm. Nểu bước nhảy là dương điểm đầu phải nhỏ hơn hoặc bằng điểm cuối. Nếu không khối lệnh sẽ không