| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 460 人关注过本帖
标题:[求助]
只看楼主 加入收藏
zmheibianshi
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2005-5-4
收藏
 问题点数:0 回复次数:2 
[求助]

Private Sub Form_Click( )

Dim i As Integer, j As Integer

Dim k As Integer

k=0

For i = 0 To 10 Step 3

For j = 1 To 10

If j > = 5 Then i = i +4: Exit For

j = j + 1

k = k + 1

Next

If i > 8 Then Exit For

Next

Print k

End Sub 请问那个:是什么意思?

2005-06-17 13:35
loveve
Rank: 4
等 级:业余侠客
威 望:1
帖 子:452
专家分:213
注 册:2005-4-11
收藏
得分:0 
这还要什么意思,看看循环那一章

五月的雪
2005-06-18 15:28
Srin
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2005-5-11
收藏
得分:0 

Private Sub Form_Click()

Dim i As Integer, j As Integer

Dim k As Integer '声明3个变量,分别是i,j,k

k = 0 '初始化,使k=0

For i = 0 To 10 Step 3 'i从0开始循环到10,每次+3(1层循环)

For j = 1 To 10 'j从0开始循环到10,每次+1(2层循环)

If j >= 5 Then i = i + 4: Exit For '如果j>=5,则i+4,退出2层循环。

j = j + 1

k = k + 1 '自加

Next '退出2层循环

If i > 8 Then Exit For '如果i>8退出1层循环

Next '退出1层循环

Print k '打印k

End Sub —————————————————————————————— 不知道准确不,因为我也是个鸟。。

2005-06-19 02:58
快速回复:[求助]
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020787 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved