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