如何在计算机上实现游戏"100人每人一个编号,依次数1.2.3.4数到4者淘汰,最后一名的编号是多少?"

就用vb写吧
最后结果是34

Dim r(100) As Integer '一百个人

For i = 1 To 100
r(i) = 1 '100个元素赋为1,当数到4时变0
Next i

Dim k
k = 0
Dim sum
sum = 0
Dim loc1
loc1 = 0

Do While sum <> 100 '当数到100个4时停止

For i = 1 To 100
If r(i) <> 0 Then
k = k + 1
If k = 4 Then
k = 0
r(i) = 0
loc1 = i '记录下数到4的位置 最后的位置就是它
sum = sum + 1
End If
End If
Next i
Loop

MsgBox loc1