跪求：一百个人手拉手围成一圈，逢三退一（VB程序编程答案）十分感谢

跪求：一百个人手拉手围成一圈，逢三退一（VB程序编程答案）十分感谢

代码如下：

Private Sub Form_Click()
For i = 1 To 100 '循环语句对数组赋值
a(i) = i
Next i
DY (0) '调用自定义过程
End Sub
Private Sub DY(k As Integer)
For i = 1 To 100
If Val(a(i)) <> 0 Then '对数组元素进行判断
k = k + 1 '对报数进行记录
If k = 3 Then '对报3的元素进行处理
k = 0 '计数器归零
a(i) = 0 '将该元素进行失效处理
End If
End If
Next i
t = 0 '初始化元素记录
For i = 1 To 100
If Val(a(i)) <> 0 Then t = t + 1 '对有效元素统计
Next i
If t > 1 Then
DY (k) '未满足要求继续调用过程
Else '满足要求后开始处显示信息
For i = 1 To 100 '利用循环语句查找有效元素
If a(i) <> 0 Then Label1.Caption = "还剩下编号为" & a(i) & "的人。"
Next i
End If
End Sub

我记得这好像是 数据结构 里面一道比较典型的题...

很容易吗，就是用先用Label 标签控件，再用Command Button 命令钮控件，如果不行外加个text运气好的话兴许就能作出来了