VB 有十七个人围成一圈(编号为0~16),第0号的人开始从1报数,凡报到3的倍数的人离开圈子,然后再数下去直到最后只剩下一个人为止.问此人原来的位置号是多少?要的是程序!
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 13:41:47
![VB 有十七个人围成一圈(编号为0~16),第0号的人开始从1报数,凡报到3的倍数的人离开圈子,然后再数下去直到最后只剩下一个人为止.问此人原来的位置号是多少?要的是程序!](/uploads/image/z/14573742-6-2.jpg?t=VB+%E6%9C%89%E5%8D%81%E4%B8%83%E4%B8%AA%E4%BA%BA%E5%9B%B4%E6%88%90%E4%B8%80%E5%9C%88%EF%BC%88%E7%BC%96%E5%8F%B7%E4%B8%BA0%7E16%EF%BC%89%2C%E7%AC%AC0%E5%8F%B7%E7%9A%84%E4%BA%BA%E5%BC%80%E5%A7%8B%E4%BB%8E1%E6%8A%A5%E6%95%B0%2C%E5%87%A1%E6%8A%A5%E5%88%B03%E7%9A%84%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%84%B6%E5%90%8E%E5%86%8D%E6%95%B0%E4%B8%8B%E5%8E%BB%E7%9B%B4%E5%88%B0%E6%9C%80%E5%90%8E%E5%8F%AA%E5%89%A9%E4%B8%8B%E4%B8%80%E4%B8%AA%E4%BA%BA%E4%B8%BA%E6%AD%A2.%E9%97%AE%E6%AD%A4%E4%BA%BA%E5%8E%9F%E6%9D%A5%E7%9A%84%E4%BD%8D%E7%BD%AE%E5%8F%B7%E6%98%AF%E5%A4%9A%E5%B0%91%3F%E8%A6%81%E7%9A%84%E6%98%AF%E7%A8%8B%E5%BA%8F%21)
VB 有十七个人围成一圈(编号为0~16),第0号的人开始从1报数,凡报到3的倍数的人离开圈子,然后再数下去直到最后只剩下一个人为止.问此人原来的位置号是多少?要的是程序!
VB 有十七个人围成一圈(编号为0~16),第0号的人开始从1报数,凡报到3的倍数的人离开圈子,然后再数下去
直到最后只剩下一个人为止.问此人原来的位置号是多少?
要的是程序!
VB 有十七个人围成一圈(编号为0~16),第0号的人开始从1报数,凡报到3的倍数的人离开圈子,然后再数下去直到最后只剩下一个人为止.问此人原来的位置号是多少?要的是程序!
Private Sub Command1_Click()
Form1.Cls
Dim a(1 To 17) As Integer
Dim i As Integer,j As Integer,k As Integer
For i = 1 To 17
a(i) = i - 1
Next
i = 0
j = 0
k = 17
Do While k > 1
For i = 1 To 17
If a(i) > -1 Then
j = j + 1
If j = 3 Then
j = 0
Print a(i)
a(i) = -1
k = k - 1
End If
End If
Next
Loop
Print "剩下的是:"
For i = 1 To 17
If a(i) > -1 Then
Print a(i)
Exit For
End If
Next
End Sub