关闭广告
晋江论坛→网友交流区→电脑扫盲班
主题：请帮忙看看这个程序，不会~~ [7]
收藏该贴
已收藏
只看楼主
Private Sub command1_Click()
Dim intsum As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 17 Step 2
For j = 1 To 3 Step 2
intsum = intsum + i
Next j
Next i
Print intsum
End Sub
 
 
 
主要是循环那里
For i = 1 To 17 Step 2
For j = 1 To 3 Step 2
intsum = intsum + i
是如何执行的？？
谢谢！
№0 ☆☆☆救命！ 于2003-09-07 10:08:20留言☆☆☆　 加书签 不再看TA
intsum = 1 + 1 + 3 + 3 + 5 + 5 + ... + 17 + 17
 
for i = 1 to 17 step 2
    for j = 1 to 3 step 2
        intsum = intsum + i
    next j
next i
 
 i 为 1, 3, 5, 7, .... 17
 j 为 1, 3
 
 i 每变一个数值, j 循环一次, intsum + i 执行两次.
程序运行完后, i 循环一次, j 循环 9 次, intsum + i 执行 18 次.
№1 ☆☆☆Frenzy Shi于2003-09-07 10:31:17留言☆☆☆　
加书签 引用 不再看TA
大人真的好热心，太谢谢了。
其实就是这个看不懂
 
for j = 1 to 3 step 2
        intsum = intsum + i
 
原来它要执行两次
 
我们老师是自学的，说的一点也不好
班上还有大半没过，真是误人子弟
 
再次感谢！
    
№2 ☆☆☆救命！于2003-09-07 10:38:24留言☆☆☆　
加书签 引用 不再看TA
汗，再问一次
for j = 1 to 3 step 2
主要表示什么？
那个J代表了什么？
（不也不想麻烦的，可是基础太差，鞠躬~~~）        
№3 ☆☆☆救命！于2003-09-07 10:42:28留言☆☆☆　
加书签 引用 不再看TA
for i=x to y step z
    ......
next i
 
(z可为负数, 这时, x 一般大于 y . step z 没写的话, 代表 z = 1.)
 
表示 i 等于从 x + z 一直到 x > y ( 初始 x < y , z > 0) 或 x < y (初始 x > y , z < 0), i 每改变一次, 执行 for i .... next i 循环之间的命令一次.
 
i 代表一个变量, 也可以用 j, k, l 等, 用来控制 for ... next 循环.
№4 ☆☆☆Frenzy Shi于2003-09-07 11:03:11留言☆☆☆　
加书签 引用 不再看TA
实在没脸了，没说清楚
 
for j = 1 to 3 step 2
        intsum = intsum + i
 
是这个，J循环里J=1，3
好象没有用到？这与I循环有什么关系（J执行两次就是这个程序表示的？？）
 
 
先祝中秋快乐吧，希望我能活着回来
http://yke.nease.net/xiuixan/chuandi001/zqj.htm
№5 ☆☆☆救命！于2003-09-07 11:10:47留言☆☆☆　
加书签 引用 不再看TA
J 循环用来控制 intsum = intsum + i 的执行次数.
№6 ☆☆☆Frenzy Shi于2003-09-07 11:25:22留言☆☆☆　
加书签 引用 不再看TA
哦，谢谢
这里的大人真好
№7 ☆☆☆救命！于2003-09-07 11:27:24留言☆☆☆　
加书签 引用 不再看TA

回复此贴子

名字：
选择图案：
内容：
（注意：一次最多可提交3000字，且一次最多可提交三张尺寸在1024*1024范围内的图片，超出部分请分次提交！）
图片链接：
(贴图规则)


返回上层 管理 返回本版块首页←返回交流区首页←返回主页

 

只看楼主