下载APP
【简答题】
出圈游戏(具体效果如演示程序所示) 有 n 个人排成一圈,然后先从第一人开始按顺时针方向依次从 1 报数,报到数 m 的人 就淘汰,下一个再从 1 开始报,报到 m 就被淘汰,一直到剩下最后一人即为胜利者。 完成下 列代码: Private Sub Command1_Click() Dim a(1000) As Integer n = Val(Text1.Text) m = Val(Text2.Text) check = n k = 1 List1.Clear For i = 1 To n a(i) = 1 Next i i = 0 Do i = '- 1 - If a(i) <> 0 Then a(i)= '-2 - If a(i) = m Then a(i) = 0 List1.AddItem i & " 号出圈 " check = check 1 '- 3 - k = 0 End If k = k + 1 End If '- 4 - i = 0 End If 'Loop Until ' - 5 - For i = 1 To n '- 6 - List1.AddItem " 获胜者是 " & i & " 号 " Exit For End If Next i End Sub
参考答案：
参考解析：
刷刷题刷刷变学霸
举一反三
【单选题】西亚周围的五海按顺时针方向依次为
A.
地中海、里海、黑海、阿拉伯海、红海
B.
阿拉伯海、里海、黑海、地中海、红海
C.
黑海、里海、地中海、红海、阿拉伯海
D.
里海、阿拉伯海、红海、地中海、黑海
【单选题】比佛利倾系列演示程序是（）。
A.
启动电源，筒身转至45°长按空白区域，进入连续模式长按水魔方—智能洗3秒确定演示新水流，进入演示程序普通洗涤，正反转一次，20S。上下转筒洗，共3次，约1分15秒。水魔方旋桶洗，1分钟低速旋转，30秒高速旋转。
B.
启动电源，智能洗3秒确定演示新水流，进入演示程序普通洗涤，正反转一次，40S。上下转筒洗，共3次，约1分15秒。水魔方旋桶洗，1分钟低速旋转，30秒高速旋转。
C.
启动电源，上下转筒洗，共3次，约1分15秒。水魔方旋桶洗，1分钟低速旋转，30秒高速旋转。
D.
启动电源，筒身转至45°长按空白区域，进入连续模式长按水魔方—智能洗3秒确定演示新水流，进入演示程序普通洗涤。上下转筒洗，共5次，约1分15秒。水魔方旋桶洗，1分钟低速旋转，30秒高速旋转。