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

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

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