用VB编程17人围成一圈,编号为1-17从1号开始报数,报到3的倍数的人离开一直数下去,直到剩下1人,求此人编号.

数学题目.............

Private Sub Form_Click( )
Const OUT As Integer = -1
Dim n As Integer,m As Integer,i As Integer,num1 As Integer,num2 As Integer
Dim a( ) As Integer
n = 17
m = 3
ReDim a(n)
For i = 1 To n
a(i) = i
Next
num1 = 0
Do
For i = 1 To n
If a(i) < > OUT Then
Num1 = num1 + 1
If num1 Mod m = 0 Then
num2 = num2 + 1
If num2 = n Then
Print a(i);
Exit Do
End If
End If
End If
Next i
Loop
End Sub

希望楼主能给偶点分分拉HOHO```