


| Phát biểu For...Next |
Phát biểu For...NextCú phápFor counter=start To end [Step step] [statements] [Exit For] [statements] Next [counter] + Counter: bắt buộc, kiểu dữ liệu thông thường là Integer + Start: bắt buộc, chính là giá trị xuất phát của biến counter, trong trường hợp này start có cùng kiểu dữ liệu với counter và nằm trong phạm vi cho phép. + end: bắt buộc, chính là giá trị kết thúc của counter, trong trường hợp này end có cùng kiểu dữ liệu với counter và nằm trong phạm vi cho phép. + step: nếu không cung cấp thì mặc định là 1 Trong trường hợp giá trị start lớn hơn giá trị end phải có giá trị (-). Ví dụ: vòng lặp For tăng Dim I As Integer Dim J As Integer Dim K As Long For I=0 To 10 For J=0 To 10 K=I+J Debug.writeLine(K) Next J Next I Ví dụ 2: Vòng For với biến words có giá trị giảm dần, Digit có giá trị tăng dần Dim words As Integer Dim Digit As Integer Dim MyString As String For words=10 To 1 Step -1 For Digit=1 To 9 MyString=MyString & CStr(Digit) Next Digit MyString=Mystring & " " Next words |
| < Trước | Tiếp > |
|---|