| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 381 人关注过本帖
标题:请高手帮忙解释下
只看楼主 加入收藏
zhenzhen2012
Rank: 2
等 级:论坛游民
帖 子:5
专家分:11
注 册:2012-12-27
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:7 
请高手帮忙解释下
Private Sub Command1_Click()
Dim a As Double, b As Integer, r As Single, n As Integer
n = 0
r = 0.01
a = 12
Do While a >= 20
a = a * (1 + r)
n = n + 1
Loop
Print n
End Sub

这是个很简单的例子,计算N,为什么我的N老为0
2012-12-27 23:33
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:2 
看看do...loop的帮助吧。

无知
2012-12-28 22:56
nick118
Rank: 1
等 级:新手上路
帖 子:2
专家分:2
注 册:2010-12-25
收藏
得分:2 
因为你的a = 12啊
2012-12-30 16:55
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:2 
循环条件不成立  无法进入循环

DO IT YOURSELF !
2012-12-30 22:16
zhujianlin
Rank: 4
等 级:业余侠客
帖 子:66
专家分:247
注 册:2012-6-22
收藏
得分:2 
你这个东西我实在没能理解,你自己写的吗?
2012-12-31 15:16
SKYYYF
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:71
专家分:184
注 册:2012-9-23
收藏
得分:2 
因为 a =12 ,不满足循环条件,所以跳过循环语句,直接输出结果。
2012-12-31 21:35
小东005
Rank: 1
等 级:新手上路
帖 子:2
专家分:2
注 册:2012-12-30
收藏
得分:2 
回复 楼主 zhenzhen2012
Private Sub Command1_Click()
Dim a As Double, b As Integer, r As Single, n As Integer
n = 0
r = 0.01
a = 12
Do While a 〈 20
a = a * (1 + r)
n = n + 1
Loop
Print n
End Sub
改成这样就可以执行了!!
2012-12-31 21:49
wangyuzg
Rank: 1
等 级:新手上路
帖 子:15
专家分:7
注 册:2011-2-23
收藏
得分:0 
跟我一样,确实是菜鸟。还要继续努力呀。
2013-01-25 09:41
快速回复:请高手帮忙解释下
数据加载中...
 
   



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

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