vb中的for语句怎么写 _语句

1. VB中的For语句 private Sub Form_Click（) '当窗体单击时触发此过程Dim i,j as Integer '声明默认类型变量i（变体型）和长整型变量jprint '在窗体上打印空白的一行For i=1 To 9 '设置循环 i 每次循环从1到9 默认步长1（每次循环加1） '完整： for i = 1 to 9 step 1For j=1 To i '设置循环 j 每次循环从1到i的值默认步长1（每次循环加1）完整： for i = 1 to i step 1print left((str(j*j) & space(5),4）；'此语句错误应为：' Print Left(Str(j * j) & Space(5), 4)' print 在窗体中打印' left(str,n) 取str左边的n个字符' str(n) 将n这个数值型转换为字符串型' space(n) 返回n个空格' 翻译出来就是：' 在窗体中打印出（j*j 的结果加上5个空格）的左边4个字符Next j '执行到这里继续循环jprint '打印一行空白行next i '执行到这里继续循环iEnd Sub '结束过程。
2. VB中的For语句 private Sub Form_Click（) '当窗体单击时触发此过程
Dim i,j as Integer '声明默认类型变量i（变体型）和长整型变量j
print '在窗体上打印空白的一行
For i=1 To 9 '设置循环 i 每次循环从1到9 默认步长1（每次循环加1）
'完整： for i = 1 to 9 step 1
For j=1 To i '设置循环 j 每次循环从1到i的值默认步长1（每次循环加1）完整： for i = 1 to i step 1
print left((str(j*j) & space(5),4);
'此语句错误应为：
' Print Left(Str(j * j) & Space(5), 4)
' print 在窗体中打印
' left(str,n) 取str左边的n个字符
' str(n) 将n这个数值型转换为字符串型
' space(n) 返回n个空格
' 翻译出来就是：
' 在窗体中打印出（j*j 的结果加上5个空格）的左边4个字符
Next j '执行到这里继续循环j
print '打印一行空白行
next i '执行到这里继续循环i
End Sub '结束过程
3. VB中的循环语句中的for For循环的格式：
For 循环变量 = 初值 To 终值 [Step 步长] step 2 就是i=i+2
[循环体]
Next [循环变量]
注意：
1）当步长 > 0 时
循环执行的条件：循环变量 <；= 终值
2）当步长 < 0 时
循环执行的条件：循环变量 >；= 终值
强行退出 For 循环，请使用 Exit For 。
举例1：单击命令按钮 Command1 后，先后弹出很多消息框，消息内容一开始是 1，最后是 100，每弹出一次，消息内容加 1，也就是 1; 2; 3;。; 98; 99; 100 。
VB 代码如下：
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 100
MsgBox i
Next
End Sub
如果使用 For 语句，代码如下：
Private Sub Form_Load()
For i = 1 To 100
MsgBox i, vbInformation /vbInformation 指显示图标，下同
Next
MsgBox "Finished", vbCritical
End Sub
扩展资料：
VB的Do循环
Do 。Loop
如果你不知道重复多少次，可以使用 Do 。Loop 语句。
Do 。Loop 语句重复执行某段代码直到条件是 true 或条件变成 true 。
重复执行代码直到条件是 true
您可以使用 While 关键字来检查 Do 。Loop 语句的条件。
Do While i>10
some code
Loop
如果 i 等于 9，上述循环内的代码将终止执行。
Do
some code
Loop While i>10
这个循环内的代码将被执行至少一次，即使 i 小于 10 。
重复执行代码直到条件变成 true
您可以使用 Until 关键字来检查 Do 。Loop 语句的条件。
Do Until i=10
some code
Loop
如果 i 等于 10，上述循环内的代码将终止执行。
Do
some code
Loop Until i=10
这个循环内的代码将被执行至少一次，即使 i 等于 10 。
退出 Do 。Loop
您可以通过 Exit Do 关键词退出 Do 。Loop 语句。
Do Until i=10