|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ 简单 vb 循环
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
686
人关注过本帖
标题:
简单 vb 循环
只看楼主
加入收藏
easonzgf
等 级:
新手上路
帖 子:18
专家分:0
注 册:2014-12-4
结帖率:
75%
楼主
收藏
已结贴
√
问题点数:20 回复次数:9
简单 vb 循环
private sub command1_click()
dim m as integer , n as integer
m=1
for n = 1 to 15
m= m*n
if m >15 then
exit for
else
n=n+1
end if
next n
print m;n
end sub
程序运行后输出结果为15
7,不太明白为什么?求解释一个这个程序!
IMG_20141203_201901.jpg
(1.72 MB)
图片附件: 游客没有浏览图片的权限,请
登录
或
注册
搜索更多相关主题的帖子:
private
2014-12-04 11:35
举报帖子
使用道具
赠送鲜花
xzlxzlxzl
来 自:湖北
等 级:
贵宾
威 望:
125
帖 子:1091
专家分:5825
注 册:2014-5-3
第
2
楼
收藏
得分:3
输出结果应该是105,7吧。
2014-12-04 12:59
举报帖子
使用道具
赠送鲜花
txxb
等 级:
论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
第
3
楼
收藏
得分:3
我怎么算的m=24
2014-12-04 13:28
举报帖子
使用道具
赠送鲜花
风吹过b
等 级:
贵宾
威 望:
364
帖 子:4947
专家分:30084
注 册:2008-10-15
第
4
楼
收藏
得分:5
你自己运行一下程序,在 next n 前面再加一个行 print m;n
看一下前面四次输出的结果就应该能明白
授人于鱼,不如授人于渔
早已停用QQ了
2014-12-04 13:30
举报帖子
使用道具
赠送鲜花
lianyicq
等 级:
贵宾
威 望:
26
帖 子:737
专家分:3488
注 册:2013-1-26
第
5
楼
收藏
得分:5
按代码顺序执行:
m=1、n=1、m=1、n=2(n=n+1)、n=3(next n)、m=3、n=4(n=n+1)、n=5(next n)、m=15、n=6(n=n+1)、n=7(next n)、m=105
大开眼界
2014-12-04 14:16
举报帖子
使用道具
赠送鲜花
txxb
等 级:
论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
第
6
楼
收藏
得分:2
(next n)也加一,没想到。知道了,前几天还为这个问题迷惑呢。
for n=1 to 5
n=6
next n
我原来以为执行5次循环
2014-12-04 14:22
举报帖子
使用道具
赠送鲜花
easonzgf
等 级:
新手上路
帖 子:18
专家分:0
注 册:2014-12-4
第
7
楼
收藏
得分:0
回复 楼主 easonzgf
答案是15,7
2014-12-04 18:14
举报帖子
使用道具
赠送鲜花
easonzgf
等 级:
新手上路
帖 子:18
专家分:0
注 册:2014-12-4
第
8
楼
收藏
得分:0
回复 4 楼 风吹过 b
好的,谢谢~
2014-12-04 18:14
举报帖子
使用道具
赠送鲜花
easonzgf
等 级:
新手上路
帖 子:18
专家分:0
注 册:2014-12-4
第
9
楼
收藏
得分:0
答案有问题!应该是105,7
2014-12-04 18:18
举报帖子
使用道具
赠送鲜花
sccotsong
等 级:
新手上路
帖 子:2
专家分:2
注 册:2014-12-5
第
10
楼
收藏
得分:2
回复 5 楼 lianyicq
厉害
2014-12-05 13:20
举报帖子
使用道具
赠送鲜花
10
1/1页
1
快速回复:
简单 vb 循环
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.017726 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved