vb循环语句

VB6里的问题
很久没有用VB6了
反正我现在用的VB2008里没有wend和loop这种语句
又或者说是你看错了因为你说你是菜鸟嘛呵呵
那么wend和loop的区别我就无法回答你了
因为wend和loop我根本就没见过
不过我简单说一下While吧
While是一个循环语句你是知道了的
你所说的wend和loop会不会是要判断的值呢
比如,我只是说比如,一个假设啊
Dim
wend
as
Boolean
那么while
wend的意思就是针对这个量进行一个循环
那么while
wend的意思就是假如wend
=
True那么就一直执行下去
假如以下代码就是经过5次循环后结束的一个简单例子
Dim
a
As
Integer
=
1
Dim
wend
As
Boolean
=
True
While
wend
'如果wend=True时一直循环执行,如果wend=False时停止
a
=
a
+
1
If
a
=
5
Then
wend
=
False
'wend=False后那么下次循环经过While
wend时就停止
End
If
End
While

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

最近遇到了多重循环但总有点绕不过来

比如: for i = 1 to 3

for j = 1 to i

for k = j to 3
a= a+1

next k

next j

next i

_______________________________________________________________

for i = 1 to 4

x= 4

for j = 1 to 3

x=3

for k= 1 to 2

x=x+6

next k

next j

next i

大家详细的说下这两个程序段的过程! 教教小弟弟

解析:

程序是由内向外执行循环的，你可以把循环一层一层拨开测试，然后再一层一层加入，你就会发现程序的执行步骤。

或者在每个for语句加一个断点，观察执行过程！

fornext循环：
Dim Words, Chars, MyString
For Words = 10 To 1 Step -1 ' 建立 10 次循环。
For Chars = 0 To 9 ' 建立 10 次循环。
MyString = MyString & Chars ' 将数字添加到字符串中。
Next Chars ' Increment counter
MyString = MyString & " " ' 添加一个空格。
Next Words
Do loop循环：
Dim Check, Counter
Check = True: Counter = 0 ' 设置变量初始值。
Do ' 外层循环。
Do While Counter < 20 ' 内层循环。
Counter = Counter + 1 ' 计数器加一。
If Counter = 10 Then ' 如果条件成立。
Check = False ' 将标志值设成 False。
Exit Do ' 退出内层循环。
End If
Loop
Loop Until Check = False ' 退出外层循环。

for循环：指定循环次数
for i=1 to 100
a=a+i
next
for each：主要用于集合和数组
for each frm in forms
print frmname
next
有时是可以通用的，比如数组：
arr=split("1,2,3,4,5",",")
for i=0 to ubound(arr)
print i
next
for each i in arr
print i
next
再如上面的forms：
for i=0 to formscount-1
print forms(i)name
next
如果集合没有类似count属性，将不能用for，只能用for each。

显示最后结果有很多方法，我最喜欢用的是：Msgbox(s),s就是你的结果。
dim i%,s%就是申明变量，for i=1 to 100 step 2意思就是i从1循环到100，每步跨2，循环中s的值是前一循环s的值加上现在的i值，next i就是进行下一步循环。就是这样

Do
While
Not
Adodc1RecordsetEOF
and
not
Adodc2RecordsetEOF
'Dtatgrid1
从开始一直到结尾
Text1Text
=
Adodc1RecordsetFields("工程号")
Text2Text
=
Adodc2RecordsetFields("工程号")
If
Adodc2RecordsetFields("工程号")
=
Adodc1RecordsetFields("工程号")
Then
Print
"匹配成功";
Text1Text;
Text2Text
Else
Print
"匹配不成功";
Text1Text;
Text2Text
End
If
Adodc2RecordsetMoveNext
Adodc1RecordsetMoveNext
Loop
'这样不知符合你的要求吗？

dim a(3,3) '定义数组
for x=0 to 3 '用x表示数组第一维的循环
for y=0 to 3 '用y表示数组第二维的循环
a(x,y)=xy '注意，x在左边，表示是第一维，y在右边，表示是第二维，以xy赋值
next y
next x
现在就用双循环将一个二维数组赋了值

---