17人围成一圈,编号是1,2........................到17,从第一个开始报数一至到3的倍数的人走开,一直下去,直到最后一人,求这人的编号 ?

我做的是这样的

private sub command1_click()

dim i%,j%,m%,a(17)

for j=1 to 17

for i = 1 to 17

if a(i)<>0 then a(i) = 0

if m mod 3 = 0 then m = m+1

nexti

next j

for i = 1 to 17

if a(i)<>0 then print a(i)

efdif

next i

end sub

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

[此贴子已经被作者于2004-12-01 23:24:26编辑过]

For i = 1 To 17 a(i) = 1 Next i 中的 a(i) = i 吧不是不呀????不是a(i) = 1吧?要回话 这是我们的作业

对不起你哪里不懂！！

我来再添加一点注释

我讲一讲思路！首先用一个数组来记录该人是否出局，当为0时出局，为1是还在。m来记录当前的还没有出列的人应该要报的数字。用一个num来记录剩余没有出列的人数。显然刚开始为最大的人数，既没有一个人出列。用一个for循环来模拟报数，如果a（i）为1那么它就应该报数，每报一个数那么m加一当m为3的倍数时即这个人应该出列，那么a（i）=0 表示她出列了！然后m=0来清空计数，同时num要减1，因为又少了一个人。最后检验是否只剩下了一个人。如果是的那么退出循环然后循找那个人来打印出来！