标题: 帮忙！VB的一些循环 [打印本页]

---

作者: 飛鳥    时间: 2003-12-30 12:35     标题: 帮忙！VB的一些循环

1 option base 1
  private sub command1_click()
     dim a(4,4)
      for i=1 to 4
       for j=1 to 4
         a(i,j)=(i-1)*3+j
         next j
          next i
           for i=3 to 4
             for j=3 to 4
               print a(j,i)
                 next j
                   print
                      next i
      end sub

2 private sub command1_click()
  a=0
  for m=1 to 10
     a=a+1
     b=0
  for j=1 to 10
     a=a+1
     b=b+2
   next j
    next m
  printa;b
  end sub
程序运行后，输出结果是：
a 10 20
b 20 110
c 110 20
d 200 110
怎么循环？望各位高手赐教！！
谢谢~~
  
  

---

作者: 飛鳥    时间: 2003-12-30 19:05     标题: 帮忙！VB的一些循环

怎么没人来呀~~~

---

作者: 飛鳥    时间: 2003-12-30 19:05     标题: 帮忙！VB的一些循环

bigblock 、cambrigelq 帮帮芒呀~~~~

---

作者: 飛鳥    时间: 2003-12-30 21:50     标题: 帮忙！VB的一些循环

还是靠自己呀~~~~~~为了这俩条题可真是害苦了我呀~~~~在翻遍所有的教科书和资料以后，终于在下课之时、12点以前作出来了~~~~~还抽空用了点时间来论坛发布结果~~
1 当i=3时，j=3 to 4 （循环俩次）
   a(j,i)=(3-1)*3+3=9 即a(3,3)=(3-1)*3+3=9
   a(j,i)=(3-1)*3+4=10 即a(4,3)=(3-1)*3+4=10
  当i=4时，j=3 to 4 （也循环俩次）
   a(j,i)=(4-1)*3+3=12 即a(3,4)=(4-1)*3+3=12
   a(j,i)=(4-1)*3+4=13 即a(4,4)=(4-1)*3+4=13
2 当m=1时，执行j=1 to 10 a=11,b=20
  当m=2时，执行m=2 to 10 a=21,b=20(当m=2时，j=1 to 10已由m=1执行完,不用理)
  当m=3时，一直类推......
  最后的a=110,b=20

---

欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/)

Powered by Discuz! 7.2