Giáo trình phân tích quy trình tự động hóa với Autocad 3d cho thiết kế công trình giao thông p9

Ví dụ sau tính tổng của các số chẵn từ 0 đến 10: Dim i As Integer Dim Tong As Integer Tong = 0 For i = 0 To 10 Step 2 Tong = Tong + i Next Debug.Print ("Tong = " & Tong)Kết quả như sau:CHÚ Ý Khi giá trị của là âm ( và đổi chỗ cho nhau.Ví dụ tính tổng của các số chẵn từ 0 đến 10 sử dụng vòng lặp đếm ngược:Dim i As Integer Dim Tong As Integer Tong = 0 For i = 10To 0 Step -2 Tong = Tong + i Next Debug.Print ("Tong = " & Tong)