Tự học guitar, lập trình, khiêu vũ, tennis - Tu hoc guitar, lap trinh, khieu vu, tennis

Saturday
May 26th
Text size
  • Increase font size
  • Default font size
  • Decrease font size

Trang chủ arrow Lập trình arrow ASP .NET arrow Phát biểu For...Next
Phát biểu For...Next

Phát biểu For...Next

Cú pháp

For 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 >