VB编程17人编号为0-16围成一圈,0号人开始从1报数,凡是报数为3倍数的人离开圈子,继续报数,直到剩下1人,求此人编

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/15 10:39:49

VB编程17人编号为0-16围成一圈,0号人开始从1报数,凡是报数为3倍数的人离开圈子,继续报数,直到剩下1人,求此人编号.

Private Sub Form_Click()
Dim pin(0 To 16) As Integer
Dim i%,n%,order%
For i = 0 To 16
pin(i) = 1
Next
n = 17
i = 0
order = 0
While n > 1
If pin(i) = 1 Then
order = order + 1
If order Mod 3 = 0 Then
pin(i) = 0
n = n - 1
Print i & " out"
End If
End If
i = (i + 1) Mod 16
Wend
For i = 0 To 16
If pin(i) = 1 Then
Print i & " left"
End If
Next
End Su

用VB编写程序,有17个人围成一圈（编号0～16）,第0号的人开始从1报数,凡是报到3的倍数的人离开 C语言：有n个人围成一圈,按顺序从1到n编号.从第一个人开始报数,报数3的人退出圈子 C语言有n个人围成一圈,按顺序从1到n编号.从第一个人开始报数,报数3的人退出圈子有n个人围成一圈,按顺序从1到n编号.从第一个人开始报数,报数3的人退出圈子,下一个人从1开始重新报数, 请教用VC做:17个人围成一个圈,依次编号为1-17,从第1号开始报数,报到3的倍数的人离开,直到最后1人 100个小朋友围成一圈,并依次编为1-100号.从第1号开始1至2报数,凡是报到1的小朋友退出圈子,这样循环进行到剩下最 2：有n个人围成一圈,顺序排号.从第一个人开始报数（从1到3报数）,凡报到3的人退出圈子, 用C语言编写：有n个人围成一圈,顺序排号.从第一个人开始报数（从1到3报数）,凡报到3的人退出圈子,请输出报数出列圈及最 c语言：有n个人围成一圈,顺序排号.从第一个人开始报数（从1~3报数）,报到3的人退出圈子,求退出顺序有10个人围成一圈,顺序排号.从第一个人开始报数（从1到3报数）,凡报到了的人退出圈子,问最后留下的是原来第几号的那位. C语言：有n人围成一圈,顺序排号.从第1个人开始报数（从1到3报数）,凡报到3的人退出圈子, 有100个人站成一排,从左到右依次进行1,2报数,凡是报1的人离开队伍,剩下的人继续从左到右进行1,2报数,最后留在队伍