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

拜托~各位高手帮下忙,侃侃下面2个代码有什么气别呀?(运行起来,效果一样的哦~)
Private Sub Form_Click()
For x = 500 To 3000 Step 0.1
PSet (x, 1000), vbRed
Next x
End Sub


另一个:
Private Sub Form_Click()
For x = 500 To 3000 Step 10
PSet (x, 1000), vbRed
For k = 1 To 500000
Next k
Next x
End Sub

2005-11-25 17:24
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
单从代码表面来看区别在于循环Step关键字控制了每次循环变量的增加值,不写Step默认的应该是1而底下的代码x变量每次循环增加0.1。
Private Sub Form_Click()
For x = 500 To 3000 Step 0.1
PSet (x, 1000), vbRed
Next x
End Sub


另一个就很容易看出来了,另一个还用了双重循环,但第二重循环没有实质的代码。
Private Sub Form_Click()
For x = 500 To 3000 Step 10
PSet (x, 1000), vbRed
For k = 1 To 500000
Next k
Next x
End Sub
2005-11-25 21:19
此用户已注册
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-9-8
收藏
得分:0 

that's right~
非常感谢~


2005-11-25 23:30
快速回复:[求助]
数据加载中...
 
   



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

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