在线等答案:关于循环的?

pyk

e = 1
zu = 1
zuo = 1
Do While zu <> 8
Me("list" & Trim(Str(e))).RowSourceType = "表/查询"
Me("list" & Trim(Str(e))).RowSource = "select 姓名 FROM  " & b & " where 编号= '" & zu & " 'And 册号= '" & zuo & " '"
zuo = zuo + 1
If zuo < 9 Then 回去再循环上面的语句
Else
zu = zu + 1
然后就是zu=2 , zuo=1……zuo=8循环上面的语句

        zu=3 , zuo=1……zuo=8循环上面的语句

        ……
        zu=8, zuo=…… zuo=8循环上面的语句
End循环
        




简单的说就是当变量Zu为1的时候, 变量Zuo要循环从1到8   (Zuo没有到8的时候,变量zu一直是等于1的)(zuo到8后,zu累加1,然后再继续)
                  zu为2的时候, 变量zuo也是从1到到8


谢谢!

Trynew

用嵌套For循环：
For Zu=1 to 8
  for Zuo=1 to 8
  '程序语句
Next Zuo
Next Zu

Roadbeg

建议 pyk 先找本程序设计的基础书来看看.
嵌套循环
dim i as long,j as long
For I=1 to 8
    For J=1 to 8
        ......
    next J
next I

pyk

谢谢2位版主,真不好意思!

pyk

[此贴子已经被作者于2003-4-26 22:39:05编辑过]