vb中的for语句怎么写( 二 ) _语句

i=i-1
If i<10 Then Exit Do
Loop
这个循环内的代码，只要 i 不为 10 且 i 大于 10 时都将被执行。
参考资料：搜狗百科——循环语句
4. VB程序设计中的for语句问题 1、B
2、D
3、A
For 是用来循环执行一系列操作的语句。语法如下：
for 循环变量=起始值 to 终止值 [STEP] 步长
<；要执行的语句序列>
next [循环变量]
循环变量要事先定义，循环执行的次数=终止值与起始值的差的绝对值除以步长再取整数部分
比方说要连续输出10个*，就这样写
dim i as integer '这句定义变量
for i=1 to 10
print "*"； '连续输出
next i
程序运行时要先看循环变量当前值是否超过终止值，如果超过就不执行内容，如果没超过就执行一次，然后让变量值按步长值增加或减少。默认情况下。步长与step如果省掉的话步长值为1，如果你需要变量不按1增加的话就需要加上step与步长值。
例如：
dim i as integer
for i=1 to 10 step 2
print "*";
next i
这段程序运行就只会输出5个*
还可以让循环倒着来
例如：
dim i as integer
for i=10 to 1 step -1
print "*";
next i
5. VB中for的语句的作用 for 是循环，
for。
代码
next
这是个循环体，里面的代码会执行N次，这个次数由for后面的内容来定。
常见的两种for
for i =1 to 100
next
这是说变量i从1开始一直到100，循环体内的代码执行100次，如果代码中用到i，每次的i会自动加1
另一种是
for each
如，for each frm in forms 就是对forms里的每个frm进行枚举。
&；是连接符，"456" & "123"的结果是"456123"
6. vb怎么写for循环语句 for…next循环如下：（在C盘根目录建立一个名字为1的文件夹，反复10次）
Private Sub Command2_Click()
Dim i As Integer
For i = 1 To 10
Set fso = CreateObject("Scripting.filesystemobject")
fso.CreateFolder ("c:\1")
Next
End Sub
7. 关于vb 中的for语句使用 a(i)-a(0)
字符串不能做减法
所以换个办法吧，比如：
Private Sub Form_click()
Const n = 5 '修改这个数控制菱形大小
For i = 1 To n '输出上半部分
Print Space(n - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
For i = n - 1 To 1 Step -1 ' 输出下半部分
Print Space(n - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
End Sub
8. vb中for语句 Private Sub Command1_Click()
Dim x(0 To 5) As Integer, aryX(0 To 5) As Integer, i, j, k As Integer
Dim mins(0 To 32) As Integer, maxone As Integer
For i = 0 To 5
x(i) = Int(Val(InputBox（"请输入第" & i + 1 & "个数字"）））
Next i
For j = 0 To 32
For k = 0 To 5
aryX(k) = Abs(j + 1 - x(k))
Next k
mins(j) = Min(aryX())
Next j
maxone = Max(mins)
MsgBox "最终结果是" & maxone
End Sub
Private Function nonum(numeric As Integer)
If numeric > 0 Then
nonum = numeric
Else
nonum = 65535
End If
End Function
Private Function Min(ary() As Integer)
Dim amin As Integer
For i = LBound(ary) To UBound(ary)
If amin > ary(i) Then
amin = ary(i)
End If
Next
Min = amin
End Function
Private Function Max(ary() As Integer)
Dim amin As Integer
For i = LBound(ary) To UBound(ary)
If amin < ary(i) Then
amin = ary(i)
End If
Next
Max = amin
【vb中的for语句怎么写】End Function