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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 07:23:00
VB编程17人编号为0-16围成一圈,0号人开始从1报数,凡是报数为3倍数的人离开圈子,继续报数,直到剩下1人,求此人编号.

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

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 Sub

VB编程17人编号为0-16围成一圈,0号人开始从1报数,凡是报数为3倍数的人离开圈子,继续报数,直到剩下1人,求此人编号. VB 有十七个人围成一圈(编号为0~16),第0号的人开始从1报数,凡报到3的倍数的人离开圈子,然后再数下去直到最后只剩下一个人为止.问此人原来的位置号是多少?要的是程序! 用VB编写程序,有17个人围成一圈(编号0~16),第0号的人开始从1报数,凡是报到3的倍数的人离开圈子,然后在数下去,直到最后只剩下一个人为止.问此外人原来的位置号是多少?要代码 java编程,100个小朋友围成一圈,各个孩子的编号为1到100,假设从第一个开始报数,报到3的孩子退出,如此循环.最后剩下的一个编号是多少? VB编程计算0-100间的奇数和急 19个人编号为1至19,任意围成一圈,求证必然有3个相临的人号码之和大于等于32. 17个人围成一圈,编号为1-17,从第1号开始报数,报到3的倍数的人离开,一直数下去,直到最后只剩下一个人 制作简单计算器的vb编程一个label 一个文本框 16个按扭分别是清空.123+ 456- 789* 0 计算 / matlab编程:编号,报数,求留有20个小朋友,按1,2,3,...,20编号围坐一圈,从第一个人开始从1到5报数,报到5的退出(不在在围成的圈内),从下一个开始,继续从1开始循环报数,报到5的退出,如此重复, 用VB编程:有一个数列第一项为0,第二项为1,从第三项起,每项均为他的前两项之和,编程输出该数列的前40项 1、编写程序,模拟约瑟夫环(josephus)问题:n个人(编号为1,2,3,……,n (n>0) )按顺时针方向围坐一圈,每人持有一个正整数密码.开始时任意给出两个值:一个为首先报数的人的编号i (0 VB编程,用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0的元素个数 vb(编程)定义变量为实数,怎么表示? 计算0~200之间所有能被11或5整除的数之和vb编程! 1编写函数求:1-1/2+1/3-1/4+.+1/n C++2设计函数Fri(int M,int n),功能是将M个人围成一圈,编号为1—M,从第1号开始报数,报到n的倍数的人离开,一直数下去,直到最后只剩下1人.求此人的编号. 约瑟夫问题:M个人围成一圈,从第一个人开始依次从1到N循环报数,每当报数为N时此人出圈,直到剩一人为止请按退出次序输出出圈人原来的编号以及留在圈中的最后一个人原来的编号.请用TC编 设编号从1,2,...,n的n个人围坐一圈,约定编号为k(1 这是一道编程题,限时1000ms,我超时.在森林王国中,每年会都会评选一个幸运之星.他们的评选规则是这样的.先把候选的动物围成一圈,编号从1-n.然后选择一个审判数字.开始从第一个候选动物开