Bây giờ hãy viết mã lệnh để cộng các số từ 1 đến 1000. Với việc sử dụng vòng lặp For...Next thì việc này trở nên quá dễ ràng. Tạo một ứng dụng Window tên là AddUp (cộng dồn). Thêm một nút lệnh vào Form1. Thay đổi thuộc tính Text của Button1 thành "Cộng". Nhấp đúp vào Button1 để gõ đoạn mã cho sự kiện nhấn nút. Thêm mã lệnh sau đây vào:
Dim LoopCounter As Integer Dim TotalCount As Integer = 0
For LoopCounter = 1 To 1000
TotalCount = TotalCount + LoopCounter
Next
Dịch và chạy chương trình. Nhấn nút "Cộng". Hộp thông báo hiển thị giá trị tổng của các số từ 1 đến 1000. Có nhanh không? Bạn viết mã và chương trình tính còn nhanh hơn cả nếu dùng máy tính tay!
Đoạn mã này làm việc như thế nào?
Đầu tiên chúng ta khai báo hai biến nguyên LoopCounter và TotalCount. LoopCounter giám sát số lần vòng lặp đã thực hiện. Biến TotalCount giữ kết quả của phép cộng. Trong lệnh For, giá trị khởi tạo của biến LoopCounter bằng 1 và giá trị cuối cùng là 1000. Bởi vì chúng ta muốn vòng lặp thực hiện 1000 lần, cộng tất cả các số từ 1 đến 1000. Lệnh lặp thực hiện việc cộng giá trị hiện tại của biến TotalCount và giá trị hiện tại của biến LoopCounter và lưu trở lại biến TotalCount. Mỗi lần vòng lặp thực hiện, giá trị của biến LoopCounter được cộng vào biến TotalCount (0+1=1, 1+2=3, 3+3=6, 6+4=10,…,1000). Sau khi LoopCounter bằng 1000, thì vòng lặp không được thực hiện nữa(chương trình thoát ra khỏi vòng lặp) và dòng mã lệnh tiếp theo sau lệnh Next đượcthực hiện.
Trong trường hợp này hộp thông báo hiển thị giá trị của biến TotalCount (tức là hiển thị giá trị của việc cộng các số từ 1 đến 1000).