㈠ vb中循环结构的问题
sql = "..."
这个只是生成sql命令字串，并没有实际执行啊，等循环结束后再来执行，当然就只是最后一次循环的值啦。就好比让你吃10个苹果，你每次都拿起一个苹果又放下去拿下一个苹果，等拿到最后一个苹果才吃，肯定就只吃到一个苹果啦！你应该拿起一个苹果就立刻往嘴里塞啊，这样才能吃完全部苹果啊！
另外 For n = ... 这个循环是画蛇添足啊，最后你的循环总次数将是 i*j*i*j
㈡ vb中循环问题
Dim arr
Private Sub Form_Load()
arr= Array("第一项", "第二项", "第三项", "第四项")
Label1.Caption = arr(0)
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
static i As Integer
Label1.Caption =arr(i)
If i = 3 Then
i =0
Else
i = i + 1
End If
End Sub
晕，timer里那个变量i应该声明成静态的，用 static
这下可以了，你试试
㈢ vb循环的问题
For...Next 语句
以指定次数来重复执行一组语句。
语法
For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next [counter]
For…Next 语句的语法具有以下几个部分：
部分 描述
counter 必要参数。用做循环计数器的数值变量。这个变量不能是布尔或数组元素。
start 必要参数。counter 的初值。
End 必要参数，counter 的终值。
Step 可选参数。counter 的步长。如果没有指定，则 step 的缺省值为 1。
Statements 可选参数。放在 For 和 Next 之间的一条或多条语句，它们将被执行指定的次数。
说明
step 参数可以是正数或负数。step 参数值决定循环的执行情况，如下所示：
值 循环执行，如果
正数或 0 counter <= end
负数 counter >= end
当所有循环中的语句都执行后，step 的值会加到 counter 中。此时，循环中的语句可能会再次执行（基于循环开始执行时同样的测试），也可能是退出循环并从 Next 语句之后的语句继续执行。
提示 在循环中改变 counter 的值，将会使程序代码的阅读和调试变得更加困难。
循环中可以在任何位置放置任意个 Exit For 语句，随时退出循环。 Exit For经常在条件判断之后使用，例如 If...Then，并将控制权转移到紧接在 Next 之后的语句。
可以将一个 For...Next 循环放置在另一个 For...Next 循环中，组成嵌套循环。不过在每个循环中的 counter 要使用不同的变量名。下面的体系结构是正确的：
For I = 1 To 10
For J = 1 To 10
For K = 1 To 10
...
Next K
Next J
Next I
注意 如果省略 Next 语句中的 counter，就像 counter 存在时一样执行。但如果 Next 语句在它相对应的 For 语句之前出现，则会产生错误。
For Each...Next 语句
针对一个数组或集合中的每个元素，重复执行一组语句。
语法
For Each element In group
[statements]
[Exit For]
[statements]
Next [element]
For...Each...Next 语句的语法具有以下几个部分：
部分 描述
element 必要参数。用来遍历集合或数组中所有元素的变量。对于集合来说，element 可能是一个 Variant 变量、一个通用对象变量或任何特殊对象变量。对于数组而言，element只能是一个 Variant 变量。
group 必要参数。对象集合或数组的名称（用户定义类型的数组除外）。
statements 可选参数，针对 group 中的每一项执行的一条或多条语句。
说明
如果集合中至少有一个元素，就会进入 For...Each 块执行。一旦进入循环，便先针对 group 中第一个元素执行循环中的所有语句。如果 group 中还有其它的元素，则会针对它们执行循环中的语句，当 group 中的所有元素都执行完了，便会退出循环，然后从 Next 语句之后的语句继续执行。
在循环中可以在任何位置放置任意个 Exit For 语句，随时退出循环。Exit For经常在条件判断之后使用，例如If匮hen，并将控制权转移到紧接在 Next 之后的语句。
可以将一个 For...Each...Next 循环放在另一个之中来组成嵌套式 For...Each...Next 循环。但是每个循环的 element 必须是唯一的。
注意 如果省略 Next 语句中的 element，就像 element 存在时一样执行。如果 Next 语句在它相对应的 For 语句之前出现，则会产生错误。
不能在 For...Each...Next 语句中使用用户自定义类型数组，因为 Variant 不能包含用户自定义类型。
Do...Loop 语句
当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。
语法
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop
或者可以使用下面这种语法：
Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]
Do Loop 语句的语法具有以下几个部分：
部分 描述
condition 可选参数。数值表达式或字符串表达式，其值为 True 或 False。如果 condition 是 Null，则 condition 会被当作 False。
statements 一条或多条命令，它们将被重复当或直到 condition 为 True。
说明
在Do…Loop 中可以在任何位置放置任意个数的 Exit Do 语句，随时跳出Do匧oop 循环。Exit Do 通常用于条件判断之后，例如If匮hen，在这种情况下，Exit Do 语句将控制权转移到紧接在 Loop 命令之后的语句。
如果 Exit Do 使用在嵌套的Do…Loop 语句中，则 Exit Do 会将控制权转移到 Exit Do 所在位置的外层循环。
㈣ VB循环的问题
dim filename as string
For i = 1 To 100
filename="f:\cs\" & i & ".exe"
If Dir(filename, vbNormal) <> "" Then
Shell filename
Else
exit for'在已经找不到了文件的情况下应该退出循环,所以在此加了这一句
End If
Next i
MsgBox "执行完成,共执行了" & iif(i=100,i,i-1) & "个Exe文件!"
在不知道循环次数的情况下,最好用Do while 来循环
dim filename as string
dim i as integer
i=1
filename="f:\cs\" & i & ".exe"
If Dir(filename, vbNormal) = "" Then filename=""
do while (filename<>"")
Shell filename
i=i+1
filename="f:\cs\" & i & ".exe"
If Dir(filename, vbNormal) = "" Then filename=""
loop
MsgBox "执行完成,共执行了" & i & "个Exe文件!"
㈤ VB 循环 问题
因为true=-1，x=x+1,x永远比-1大，所以会一直循环直到溢出
就是说题目是当while条件为true时循环，not x相当于not true,即不是-1就循环。你将x初始值定位-2（也就是第一句写成x%=-2)就会发现只执行一次。这样就可以验证了。
㈥ vb 循环问题
在你的控制控件的click事件中编写“要控制控件的名称.enable=trun/false”你说的循环可以通过开关控制（即通过一个变量判断应该执行什么代码）
如：
Private Sub Command1_Click()
If Command2.Enabled = False Then Command2.Enabled = True Else Command2.Enabled = False
End Sub
如果想控制多个同样的控件可以把这些控件编组，用index控制，如果是不同控件那只能逐个控制了。
㈦ 关于VB循环次数的问题。
●误差造成：
请看这段程序：
Private Sub Form_Click()
Dim i As Single
For i = 0.2 To 1 Step 0.1
Print i
Next
End Sub
输出结果是：
.2
.3
.4
.5
.6
.7
.8000001
.9000001
你可以把程序放入VB调试一下，最后2行也这样。 而且也少执行了一次 。
●这个程序是有解决方法的：代码改成 Dim i As Double 就对了。
●这是因为计算机在计算Single的时候是按二进制移位进行的，也就是说，计算机本身的精度有一定的偏差，在这种情况下，后面不够0.1了，所以就不循环了
**************
●你的程序虽然没有定义i为single，但执行一次循环，变量i变成1.1时，VB就自动把i转换成了single类型。
●最后，你可以给学生演示这几种，帮助他们明白：
***********************
还是用你的程序吧：
For i = 0 To 1 Step 0.1 ---循环11次
For i = 1 To 2 Step 0.1 ---误差!少1次!
For i = 2 To 3 Step 0.1 ---循环11次
For i = 3 To 4 Step 0.1 ---误差!少1次!
... ...
是不是很奇怪呢？我刚才写回复的时候也很奇怪：当初值是偶数，次数正确，初值为奇数，就会少一次!
●所以你可以这样跟学生说，当循环到第10次的时候，i变成1.9000001，第11次时i变成2.0000001 了!!!
2.0000001>2，所以最后一次循环没被执行
打字不易，如满意，望采纳。
㈧ VB 循环问题！
-------------------------------
For i=1 To 4
x=4
For j=1 To 3
是不是没有意义！因为不运行
也运行了，但是不管怎么运行，最后总会执行到
x = 3
For k = 1 To 2
x = x + 5
Next
这段上，到了这段，不管外边循环x是几，都重定义为3，执行K循环后成13
㈨ vb中循环的问题
Do
until
条件
循环体
Loop
Do
until
循环：一直循环，直到条件成立时退出循环
如果条件为-1
返回为ture，即满足条件，所以退出循环
所以本题的答案选择A
㈩ vb 循环的问题
1、“For”语句，它的格式是：
For <循环变量>=<初赋值> To <终值> [Step <步长>]
…要循环执行D的代码…
Next <循环变量>
在默认情况下，Step被设为“1”，可以省略 例如：
Dim a As Integer
a = 0
For I=1 To 10
a=a+I
Next I
这是一个最简单的累加器的例子，把1到10累加在一起，然后赋值给“a”
2、While语句也是一个很常用的循环语句，它的形式很多：
①While …条件…
…要循环执行D的代码…
Wend
例如
Dim a As Integer
a = 0
I = 1
While I <= 10
a = a + I
I = I + 1
Wend
②Do While …条件…
…要循环执行D的代码…
Loop
例如
Dim a As Integer
a = 0
i = 1
Do While i <= 10
a = a + i
i = i + 1
Loop
③Do …要循环执行D的代码…
Loop While …条件…
例如
Dim a As Integer
a = 0
i = 1
Do
a = a + i
i = i + 1
Loop While i <= 10
While后面都跟逻辑条件判断，“Do While …… Loop语句”和“While …… Wend 语句”作用相似，都是先判断While后面的条件是否为“真”，如果为“真”则执行里面的语句，如果为“假”，则退出循环，循环直至条件为“假”终止。“Do …… Loop While ”与前两者的区别在于，它不管条件的真假，都会先执行“Do”后面的语句，也就是说，它至少执行语句一次。
●与While用法相似的还有Until语句，它是直至条件为真则终止循环，句式把do until...loop 和 do.. loop until，但是因为容易记混，所以我建议只用While即可。Until <条件>可以相当于While Not <条件>。
如
Dim a As Integer
a = 0
i = 1
Do Until i > 10
a = a + i
i = i + 1
Loop
Dim a As Integer
a = 0
i = 1
Do
a = a + i
i = i + 1
Loop Until i > 10
●For循环和Whlie循环应当根据适当的环境使用，它们有时也可替换。