希望杯第4-11届小学六年级全国数学竞赛题及解答_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
68页2下载券68页免费68页7下载券4页¥2.0068页1下载券 63页4下载券9页免费8页免费9页免费2页免费
喜欢此文档的还喜欢68页免费68页2下载券67页免费4页免费2页免费
希望杯第4-11届小学六年级全国数学竞赛题及解答|试​题​完​整​,​解​答​较​全​,​错​误​率​低​,​一​站​够​齐​!
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢求VB编码：17人围成一圈，编号为1,2,3…，17，从第1号开始报数，报到3的倍数的人离开，一直数下去，直到最后剩下1人，求此人的编号。
求VB编码：17人围成一圈，编号为1,2,3…，17，从第1号开始报数，报到3的倍数的人离开，一直数下去，直到最后剩下1人，求此人的编号。
急求！谢谢！
Private Sub Form_Activate()&&& Dim temp() As Integer, arr() As Integer, n As Integer, m As Integer, i As Integer&&& ReDim arr(1 To 17)&&& For i = 1 To 17&&&&&&& arr(i) = i&&& Next&&& Do Until UBound(arr) = 2&&&&&&& For i = 1 To UBound(arr)&&&&&&&&&&& If i Mod 3 = 0 Then&&&&&&&&&&&&&&& arr(i) = 0&&&&&&&&&&&&&&& n = n + 1&&&&&&&&&&& End If&&&&&&& Next&&&&&&& ReDim temp(1 To UBound(arr) - n)&&&&&&& For i = 1 To UBound(arr) - UBound(arr) Mod 3&&&&&&&&&&& If arr(i) && 0 Then&&&&&&&&&&&&&&& m = m + 1&&&&&&&&&&&&&&& temp(m + UBound(arr) Mod 3) = arr(i)&&&&&&&&&&& End If&&&&&&& Next&&&&&&& m = 0&&&&&&& For i = UBound(arr) - UBound(arr) Mod 3 + 1 To UBound(arr)&&&&&&&&&&& m = m + 1&&&&&&&&&&& temp(m) = arr(i)&&&&&&& Next&&&&&&& ReDim arr(1 To UBound(temp))&&&&&&& For i = 1 To UBound(arr)&&&&&&&&&&& arr(i) = temp(i)&&&&&&& Next&&&&&&& m = 0: n = 0&&& Loop&&& MsgBox arr(2) & "胜出！"&&& Unload MeEnd Sub
其他回答 (4)
可是要求用VB编写，怎么写？
VB因该是汇编语言,不会啊
Dim arr(16) As Integer
For i = 0 To 16&&& arr(i) = 1 '初始化所有人状态为1Next
&
pNo = 0& '人员编号iCount = 1 '喊的数字leave = 16 '剩下人数
&
Do While (leave & 1)
&&& If arr(pNo) = 1 Then '如果此人没出去则喊数&&&&&&& If iCount Mod 3 = 0 Then '喊的数字是3的倍数&&&&&&&&&&& arr(pNo) = 0 '此人改变状态为0,出去.&&&&&&&&&&& leave = leave - 1 '剩下的人数-1&&&&&&& End If&&&&&&& iCount = iCount + 1 '喊的数字+1&&& End If&&& &&& pNo = pNo + 1 '下一个人&&& If pNo & 16 Then pNo = 0 '如果到了最后一个人,则从第一人开始Loop
MsgBox (pNo)'最笨最直接的方法比较好理解一点吧 - -!!!
&&& Dim c As New Collection&&& Dim i As Integer, j As Integer&&& For i = 1 To 17&&& c.Add "剩下的为： " & i&&& Next&& &&& i = 1&&& j = 1&&& Do Until c.Count = 1
&&&&&&& If j = 3 Then&&&&&&& c.Remove i&&&&&&& j = 0&&&&&&&& &&&&&&& Else&&&&&&& &&&&&&& i = i + 1&&&&&&& End If&&&&&&& j = j + 1&&&&&&& &&&&&&& &&&&&&& If i & c.Count Then i = 1&&&&&&& &&& Loop&&& &&& MsgBox c(1)&&&
Private Sub Command1_Click()Dim p(1 To 17) As Boolean, l As Byte, t As ByteFor i = 1 To 17&&& p(i) = True '17位学生初始状态为trueNext
Do&&& For i = 1 To 17 '遍历17位学生&&&&&&& If p(i) = True Then '如果为在的话&&&&&&&&&&& t = t + 1 '报数&&&&&&&&&&& If t Mod 3 = 0 Then '如果是3的倍数&&&&&&&&&&&&&&& p(i) = False '踢掉&&&&&&&&&&&&&&& l = l + 1 '记录踢掉的人数&&&&&&&&&&& End If&&&&&&& End If&&& NextLoop Until l = 16 '直到踢掉16个剩下1个人为止
For i = 1 To 17 '查找剩下一个人的编号&&& If p(i) = True Then Print "最后剩下的一人编号为：" & iNext
End Sub
相关知识等待您来回答
编程领域专家小学三到六年级奥数专题及练习题和单元测试_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
2页免费2页免费3页7下载券3页¥1.00178页免费 9页免费29页免费178页3下载券178页2下载券17页免费
喜欢此文档的还喜欢55页1下载券114页2下载券28页1下载券108页2下载券40页1下载券
小学三到六年级奥数专题及练习题和单元测试|该​文​档​包​含​主​要​包​含​小​学​三​年​级​四​年​级​五​年​级​六​年​级​的​小​学​奥​数​常​见​的​培​训​专​题​,​及​单​元​测​试​。​ ​对​培​养​孩​子​抽​象​思​维​、​智​力​开​发​就​有​重​要​重​要
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢提问回答都赚钱
> 问题详情
50名同学面向老师站成一行。老师先让大家从左至右按1，2，3，…依次报数；再让报数是4的倍数的同学向后
悬赏：0&&答案豆&&&&提问人：匿名网友&&&&提问收益：0.00答案豆&&&&&&
50名同学面向老师站成一行。老师先让大家从左至右按1，2，3，…依次报数；再让报数是4的倍数的同学向后转，接着又让报数是6的倍数的同学向后转。问：现在面向老师的同学还有多少名？（A. 30 B. 34 C. 36 D. 38
发布时间：&&截止时间：
网友回答&(共0条)
回答悬赏问题预计能赚取&4.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&6.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&5.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&3.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&1.00元收益
回答悬赏问题预计能赚取&5.00元收益
为你请到的专家
&&&&采纳率：76%&&&
&&采纳率：97%&&&
&&采纳率：88%&&&
&&&&采纳率：25%&&&
&&采纳率：90%&&&
[] [] [] [] [] [] [] [] [] [] [] []
请先输入下方的验证码查看最佳答案