| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 844 人关注过本帖
标题:[讨论]那位大虾给我说一下呀~~
只看楼主 加入收藏
tuyu2008
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2004-11-29
收藏
得分:0 

我们老师不好呀/还不如网上人呀~她说的我们都不懂呀她给我们不说清楚我现在怀疑她的能力了我们i学生不是很爱她那人我们都对她有反感

2004-12-06 12:40
yongtree
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-11-8
收藏
得分:0 
程序错了
你的这个程序得到的结果是11

我不想成为比尔·盖茨,只想能够学有所用,用技术混口饭吃。
2005-11-08 10:43
yongtree
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-11-8
收藏
得分:0 
他的程序只要做一下小小的修改就行了。
下边是我编译成功的程序代码
Private Sub Command1_Click()
Dim i As Integer, num As Integer, m As Integer, a(0 To 16) As Integer

For i = 0 To 16 '初始化为1表示没有出局,为0表示出局
a(i) = 1
Next i

num = 17 '刚开始有17个人
m = 0 '用来记录是否要出局,为3出局
While num <> 1 '当只剩下一个人时退出循环
For i = 0 To 16 '开始报数
If a(i) = 1 Then
m = m + 1
If m Mod 3 = 0 Then '如果是3的倍数出局
m = 0
num = num - 1
a(i) = 0
Print i
If num = 1 Then '如果只剩下一个人那么结束for循环
Exit For
End If
End If
End If

Next i
Wend

End Sub

我不想成为比尔·盖茨,只想能够学有所用,用技术混口饭吃。
2005-11-08 11:04
快速回复:[讨论]那位大虾给我说一下呀~~
数据加载中...
 
   



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

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