Question

vb题目，九个数中剔除第七个数

就是说有9个人在船上，可是船破了，所以要剔除一些人，最后只留下一个，方法是从第一个开始数，第七个人被踢掉，依次从被踢掉的那个的后一个开始数，到第七个又被踢，直到最后只剩最后一个，输出留下的那个的编号
要vb的编程过程的~~~⊙﹏⊙b

Answer 1

Private sub form-click（）
Dim a(9) as integer, m as integer,x as integer ,n as integer
for x=1 to 9
a(x)=1
next x
m=9 '表示还剩的人数
n=0
x=1
do while m>0
If a(x)=1 then n=n+1
If n=7 then
print x
n=0
m=m-1
a(x)=0
end if
x=x+1
if x>9 then x=1
loop
End sub

Answer 2

剩下的是个开始时的第2，自己推推就是了

Answer 3

递归。