VB的几种循环
 
 
次数已知的循环语句 For…next  循环
 
例子1
 
Dim i%, y%
 
For i = 1 To 10 Step 2 
 
    y= y + 1
 
Next i
 
 
 
step2表示i=i+2
 
所以这个是循环5次
 
 
 
例子2
 
Dim i, c As Integer
 
c = 0
 
   For i = -12 To -33 Step -4
 
       c = c + 1
 
Next i
 
 
 
当结束的时候，c=6, i=-36
 
 
 
 
 
 
 
例子3
 
Dim t, u, i, j As Integer
 
t = 0: u = 0
 
   For i = 1 To 3
 
       For j = 1 To i
 
           t = t + 1
 
       Next j
 
       u = u + 1
 
   Next i
 
MsgBox (Str(t)& "" & Str(u))
 
这个出现的MsgBox 弹出框显示6 3
 
I=4; j=4 ; t=6;u=3
 
 
 
 当型/直到型循环语句 Do …loop循环
 
1)Do while<条件>
 
       <循环体>
 
Loop
 
2)Do until<条件>
 
       <循环体>
 
Loop
 
3）Do
 
<循环体>
 
Loop while<条件>
 
4）Do
 
<循环体>
 
Loop until<条件>
 
 
 
例子4Do while
 
 
 
Dim k, n, m As Integer
 
n = 10
 
m = 1
 
k = 1
 
   Do While k <= n
 
       m = m + 2
 
       k = k + 1  （这句话是不可缺省的，否则会死循环）
 
   Loop
 
MsgBox (m)
 
 
 
 
 
      
 
 
 
例子5
 
当型循环语句 While …wend
 
While <条件>
 
       <循环体>
 
Wend
 
是依据条件的true或false来决定循环的
 
 

VB的基本语法之循环结构
 
VB班含有两种循环结构，一种是计数循环，一种是条件循环。其中，条件循环包括有：直到型循环和当型循环。
 （一）计数循环
 For-Next循环是计数循环，常用于循环次数已知的情况。
 
'For-Next循环结构
For 循环变量=初值 To 终值 （step 步长）
	语句块1
	（Exit for）
	语句块2
Next 循环变量
 
（二）条件循环之直到型循环
 Do-Loop循环具有两种语法结构，分别是前测型和后测型循环。引用本人对于直到型循环的总结的一句话:直到型循环就是程序不断执行，直到不满足限定条件为止。
 
'前测型循环结构
Do 条件
	语句块1
	(Exit Do)
	语句块2
Loop
 
'后测型循环结构
Do
	语句块1
	(Exit Do)
	语句块2
Loop 条件
 
（三）条件循环之当型循环
 While-Wend循环具有两种语法结构，分别是前测型和后测型循环。引用本人对于直到型循环的总结的一句话:当型循环就是当满足条件程序不断执行，直到不满足限定条件为止。
 
'前测型循环结构
whlie 条件
	语句块1
	(Exit Do)
	语句块2
wend
 
'后测型循环结构
whlie
	语句块1
	(Exit Do)
	语句块2
wend 条件

一小项目，在调试的时候，遇到这个问题的。
 
使用于判断处理表格里面的数据，而且会对数据表的增加或者删除行后，重新处理表格的内容。
 
        Dim i, row As Integer
        Dim s As String = String.Empty
        row = 8
        For i = 0 To row
            s &= (IIf(String.IsNullOrEmpty(s), "", ";") & i)
            If i = 5 Then row = 11
        Next
结果：s=0;1;2;3;4;5;6;7;8 只循环到8，不是想象中的11。
 
--
 
现在知道答案了：在循环内改变循环次数，vb.net改变不了,C#可以（网友测试的）。
 
可以考虑用while，或者用ArrayList,HashTable来辅助后期表格的处理。
 
--
 
对于这个问题，谷歌到的：
 
http://blog.csdn.net/lingdxuyan/archive/2009/07/05/4323659.aspx
 
《循环语句技巧》
 
循环语句最重要的作用是降低循环体的复杂性，提高循环体的效率！
 
书写循环语句时应注意：
 
1、cpu跨循环层执行的次数直接影响程序的效率。因此，编写多重循环时，应当将最低的循环放最外层，最长的循环放最里层，以减少cpu跨循环层执行的次数；
 
如：
 
for( int i=0; i<10; i++ ) 
 
{
 
        for( int j=0; j<100; j++ )
 
        {
 
               sum = sum + array[i][j];
 
         }
 
}
 
cpu跨循环层次数少，效率高
 
若上例内外层循环位置交换一下，此时，cpu跨循环层次数增加，效率降低
 
2、若循环次数很大，且循环体内有逻辑判断，应将逻辑判断移到循环体外。这样可以提高效率，程序可读性差；
 
3、尽可能不要在for循环内修改循环变量，以免循环失去控制
 
 
 
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lingdxuyan/archive/2009/07/05/4323659.aspx
 
--------------------
 
http://www.softwelt.com/Know/KnowDetail-1944998.html
 

为什么循环次数不改变
 
 
 
在OA系统中，有LS程序如下： 
 
........... 
k=3 
for i=1 to k 
msgbox k 
k=6 
next 
......... 
 
我觉得这个循环应该执行6次才对，为什么他还是执行3次而实际k值其实却已经改变了呢？(注：此时的执行结果是3/6/6)
 
提问时间：2004-9-8 15:15:01　回答次数：(17)　提问人：软界网友　我来回答
 
回答（1）i k msgbox 
1 3 3 
2 6 6 
3 6 6 
虽然你在循环体内修改了K值，但i还是从1到3
回答（2）是呀，就是实践才是真理，想象有时是不成立的．因为已经进入了循环体，循环是三次，在下面在写循环才会执行k＝６
回答（3）呵呵，谢谢两位，不过同事说.net里是不会这样的，所以我才觉得这样好奇或奇怪吧，不过好像while语句中就可以了（如下改变n值是可以的），我是
 
菜鸟，所以脸皮厚些再次发问，这又是为什么呢？ 
 
n=3 
m=1 
while m<n then 
msgbox "yes!" 
m=m+1 
n=n+2 
wend
回答（4）哦，上面写错了，应该是：m=m+2 n=n+1，不然就死循环了，呵呵
回答（5）哦，还有这样的事，下次试试，高手啊：）
回答（6）你在vb.net下试过吗，因为vb和lotus很相似． 
还有，while是判断条件，你在for循环里输出k的值已经改变成６了，但循环次数没有变，while 则是，符合条件就执行．我想这是不一样的． 
　　如果　for i=1 to k 
if i=2 then 
k=4 
end if 
if i=3 then 
k=2 
end if 
next 
你去.net下说能改变for循环的去执行一下，看他怎么执行．
回答（7）因为while是条件循环，循环前均会检测条件是否成立。即: M<N每次均会比较。 
 
而FOR是计数循环，运行时首次确定循环次数，然后仅运行循环体内的代码，但你可以改变i的值改变循环次数。
回答（8）楼上说的我有点不明白，你说FOR是计数循环，但要知道FOR运行的顺序是先判断i<N再执行循环体的，其实它的运行情况和while基本上是一样的，并不
 
是首次确定循环次数就不执行判断语句了，我到觉得这个是编译语言所形成的。不是吗？
回答（9）可能这个是LS解释的问题 
我用Java测试的就是循环6次的
回答（10）michael_law(馬可波羅) 可否有java执行一下 
for i=1 to k 
if i=2 then 
k=4 
end if 
if i=3 then 
k=2 
end if 
next 
循环几次 
 
回答（11）呵呵，结果揭晓： 
LOTUS NOTES 和 VB.NET一样，for 循环不改变循环次数， while改变！ 
 
C#.NET中 for改变！即在循环体内改变上限值，循环次数也改变了！ 
 
其中的道理请有兴趣的朋友斟酌吧：）！
回答（12）不论具体的编程环境如何，在循环体中改变循环的次数是不符合结构化程序设计思想的
回答（13）LotusScript中的FOR循环是个特例，它只将首次执行时的目标值（终值）作为整个循环的参考值。在循环中只能通过改变 变量值 来达到更改循环次
 
数。 
 
而WHILE循环就象前几位说的那样，它是条件判断循环，只要满足条件就终止循环，否则就一直循环。
回答（14）vb中就是这样了 没办法吧
回答（15）我的程序是这样的 
int k = 3; 
for(int i = 0;i < k;i++){ 
System.out.println("" + i + " " + k); 
k = 6; 
} 
 

回答（16）程序 
int k = 3; 
for(int i = 0;i < k;i++){ 
if(i == 1) k = 4; 
else if(i == 2) k = 2; 
System.out.println("" + i + " " + k); 
} 
 
结果 
0 3 
1 4 
2 2
回答（17）这个问题还蛮有意思的
 
 

当你的过程需要在一个集合的所有对象或者一个数组的所有元素之间循环时，应该使用For Each…Next循环。该循环不需要计数器变量，VB自己知道应该执行几次循环。我们拿工作表集合作个例子，要删除工作簿里面的工作表，你首先不得不要选择它，再选择“编辑”-“删除工作表”。如果要只留一个工作表在工作簿里面的话，你就不得不使用同样的命令，次数取决于工作表的总数。因为每个工作表都是工作表集合里的一个对象，所以使用ForEach…Next循环来加速删除工作表。
 
该循环的形式是：
 
For Each 元素 In 组合
语句1
语句2
语句N
Next [元素]
 
在上面的语法中，元素一个数组或者集合的所有元素都将被赋予的变量，如果是数组的话，该变量必须为Variant数据类型；如果是集合的话，则必须是个对象数据类型。组合是集合的名称或者数组的名称。
 
Sub IsSuchSheet()
Dim mySheet As Worksheet
Dim counter As Integer
counter = 0
For Each mySheet In Worksheets
If mySheet.name = "Sheet2" Then
counter =counter + 1
End If
Next mySheet
If counter = 1 Then
MsgBox "This workbook contains Sheet2."
Else
MsgBox "Sheet2 was not found."
End if
End Sub
 
过程打开一个新工作簿并且选择Sheet2。ForEach…Next循环遍历每个工作表（从所选的Sheet2开始）并且删除它们。当过程结束的时候，该工作簿只剩一个工作表Sheet1了。这里是另外一个检查某个工作表是否存在于一工作簿中.