VB编程17人编号为0-16围成一圈,0号人开始从1报数,凡是报数为3倍数的人离开圈子,继续报数,直到剩下1人,求此人编
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/19 12:37:13
VB编程17人编号为0-16围成一圈,0号人开始从1报数,凡是报数为3倍数的人离开圈子,继续报数,直到剩下1人,求此人编号.
![VB编程17人编号为0-16围成一圈,0号人开始从1报数,凡是报数为3倍数的人离开圈子,继续报数,直到剩下1人,求此人编](/uploads/image/z/18135204-60-4.jpg?t=VB%E7%BC%96%E7%A8%8B17%E4%BA%BA%E7%BC%96%E5%8F%B7%E4%B8%BA0-16%E5%9B%B4%E6%88%90%E4%B8%80%E5%9C%88%2C0%E5%8F%B7%E4%BA%BA%E5%BC%80%E5%A7%8B%E4%BB%8E1%E6%8A%A5%E6%95%B0%2C%E5%87%A1%E6%98%AF%E6%8A%A5%E6%95%B0%E4%B8%BA3%E5%80%8D%E6%95%B0%E7%9A%84%E4%BA%BA%E7%A6%BB%E5%BC%80%E5%9C%88%E5%AD%90%2C%E7%BB%A7%E7%BB%AD%E6%8A%A5%E6%95%B0%2C%E7%9B%B4%E5%88%B0%E5%89%A9%E4%B8%8B1%E4%BA%BA%2C%E6%B1%82%E6%AD%A4%E4%BA%BA%E7%BC%96)
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
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报数,最后留在队伍