Cấu trúc lặp For

Hướng dẫn: Sử dụng hàm InputBox để nhập số N, Sau đó cộng dồn các số i (i chạy từ 1 đến N) vào tổng S. Vì việc cộng lặp lại với số lần lặp cố định là N do vậy ta sử dụng vòng lặp For.

Viết lệnh :

Option Explicit

PrivateSubForm_Load()

Dim i AsInteger, N As Integer, S As Long

N = InputBox("Nhập vào số N : ")

S = 0

For i = 1 To N

S = S + i

Next

MsgBox "Tổng của " & N & " số tự nhiên đầu tiên là : " & S

End Sub

Hướng dẫn: Có nhiều cách tính, nhưng ở đây cần tận dụng thêm điều khoản step trong cấu trúc lặp for như sau:

Viết lệnh:

Option Explicit

PrivateSubForm_Load()

Dim i AsInteger, N As Integer, S As Long

N = InputBox("Nhập vào số N : ")

S = 0

For i = 2 To N Step 2

S = S + i

Next

MsgBox "Tổng của các số chẵn trong khoảng từ 2 đến " & N & " là : " & S

End Sub

Chú thích

• Khi không có điều khoản step thì mặc định sau mỗi vòng lặp biến chạy sẽ tự động được tăng lên 1 đơn vị.
• Muốn biến chạy bị giảm đi 1 đơn vị (giống như downto trong PAscal) thì ta thêm điều khoản Step -1 sau lệnh for.
• Cận trên và cận dưới của biến chạy có thể là số nguyên, số thực.