看看吧!~

首先谢谢大家对我提出问题的关注！尤其感谢promising的耐心和细心，只是当时设置该题时分值较少了些，所以。。。。。还望各位见谅，
另外对于promising提出的问题给出我的思路及代码，前面的步骤我演算过了，还算正确，只是最后一步打印的结果不符，我想不通!还望指教！
思路如下：
首先定义一个足够长的数组，a(100),定义s,并赋初值为17，用来记录数值中元素个数
定义两个新的变量 初值（chuzhi）终值（zongzhi）用来控制把新的数组接到原数组a(1)~a(17)的尾部
对数组初始化（我把数组从a(1)开始赋值，把通过运算最后得到的结果减1）
a(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)a(9)a(10)a(11)a(12)a(13)a(14)a(15)a(16)a(17)
 1    2   3   4   5   6   7   8   9   10   11   12   13   14   15   16   17

do循环开始
判断 s是否为1 不为1 执行下面步骤
把对能被三整除的数组下标所标的元素置零，并每置零一次把计数器减一
(第一次)
a(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)a(9)a(10)a(11)a(12)a(13)a(14)a(15)a(16)a(17)
 1    2   0   4   5   0   7   8   0   10   11    0   13   14    0  16   17
通过循环判断a(i)的值 若为零，则该元素后面的元素依次前移 得到新数组
a(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)a(9)a(10)a(11)a(12)a(13)a(14)a(15)a(16)a(17)  
 1    2   4   5   7   8  10  11  13   14   16   17   0    0     0    0    0
把得到的新数组结尾（把上次循环变量i的终值赋值给chizhi,把i+s-1 赋值给zongzhi）
用 for i= chuzhi to zongzhi
 a(i)=(i-chuzhi+1)
next i 完成结尾
得到
a(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)a(9)a(10)a(11)a(12)a(13)a(14)a(15)a(16)a(17)   
 1    2   4   5   7   8  10  11  13   14   16   17   0    0     0    0    0
a(18)a(19)a(20)a(21)a(22)a(23)a(24)a(25)a(26)a(27)a(28)a(29)   
   1    2   4     5   7     8   10   11   13   14   16   17  
然后再仅对接在尾部的新数组以下标来作为新报数（范围chuzhi到zongzhi），并判断该报数是否能被3整除（对于a(1)~a(17)不再做任何处理）再回头进行 do 循环 直到 s=1
最后打印最后一次得到数组中那个不为零的数组元素减一的值 ，即是它原来的位置
我的代码如下：

Private Sub Form_Click()
Dim s As Integer  '用于计数，记录数值中元素不为零的个数
Dim j As Integer, i As Integer '定义两个循环变量
Dim chizhi As Integer, zongzhi As Integer '定义用于把每次处理的数组接在上次数组尾部初值与终值
Dim a(100) As Integer '定义一个足够大的数组，用来存储原数组和要拼接在尾部的新数组
For i = 1 To 17 '为数组循环赋值
a(i) = i
Next i
s = 17
zongzhi = 17
chuzhi = 1
Do While s <> 1
For i = chuzhi To zongzhi '通过循环找出能被三整除的报号（即a数组的下标），把以该报号为下标的数组元素赋值为零
  If i Mod 3 = 0 Then
   a(i) = 0
   s = s - 1
  End If
Next i
For i = chuzhi To zongzhi '通过循环判断数组a中元素是否为零，若为零把该元素后面的元素依次前移
  If a(i) = 0 Then
     For j = i To zongzhi
      a(j) = a(j + 1)
     Next j
  End If
Next i
chuzhi = i '为要接在原数组尾部的经过处理的新数组，定义下标初值
zongzhi = i + s - 1 '为要接在原数组尾部的经过处理的新数组，定义下标终值
For j = chuzhi To zongzhi '用循环把新数组接在原数组尾部
a(j) = a(j - chuzhi + 1)
Next j
Loop
Print a(j) - 1
End Sub

刚才回复中的s是记录非零元素的个数

我的编号是从 1 到 17 的,看DEBUG 结果就可以看得出.
第一次,取走了第3位的,

 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3
每一行一共是 18 个数字.
其中前 17 个数字表示 1 到 17 的编号, =1 ,表示人在,=0 人不在
最后一个数字,表示本轮取走的人的编号.

恩，所以说此题的答案是10号吧。（0，1，2，……16）
请不要怪我，过于注重这个问题的答案。

只要运行结果对了就没问题。
你们注意看了我数组定义的部分，就不会问我编号是几了。
我的数组定义是
dim W(1 to 17) as long

明确指出数组最小下标是 1 ，最大下标是 17
也就是 1-17

我当时也是怕算出结果不对，所以才 显示每一步的详细状态。
第一次测试时，只计算向后点不能超过一个轮次，结果发现此法不通，会生成二个结果  4 和 11 。
才使用计数剩余人数来决定是否取完了人。

我习惯用 过程 、 函数解决问题，所以对
bczgvip 用类来解决问题比较 生疏 ，有点看不懂，不作评论。
另外对移位法也稍微偿试了一下，发现系统运算时间主要消耗在 移位上面了。
我的方法，运算时间主要消耗在 +1 的循环上面了。

Dim i, j, k, s1, w, x(17) As Byte
For i = 1 To 17
    x(i - 1) = i
Next i
For i = 17 To 2 Step -1
    s1 = (s1 + 3 - 1) Mod i
    If s1 = 0 Then s1 = i
        w = x(s1 - 1)
    For j = s1 To i - 1
        x(j - 1) = x(j)
    Next j
        x(i - 1) = w
Next i
Print x(0)
x(0)=10 即位置号为10的人，也就是第11个人。

回帖切磋是一种美德，每天回帖即可获得10分可用分

经修改，能运行：

Private Sub Form_Click()
Dim s As Integer, t As Integer
Dim j As Integer, i As Integer
Dim chizhi As Integer, zongzhi As Integer
Dim a(100) As Integer
For i = 1 To 17
a(i) = i
Next i
s = 17
zongzhi = 17
chuzhi = 1
Do While s <> 1
t = s
For i = chuzhi To zongzhi
  If i Mod 3 = 0 Then
   a(i) = 0
   s = s - 1
  End If
Next i
For i = chuzhi To zongzhi
  If a(i) = 0 Then
     For j = i To zongzhi
      a(j) = a(j + 1)
     Next j
  End If
Next i
chuzhi = i
zongzhi = i + s - 1
Print chuzhi, zongzhi

For j = chuzhi To zongzhi
a(j) = a(j - t)
Print a(j);
Next j
Print
Print
Loop
Print "编号为： " & a(j - 1) - 1
End Sub