题目

有一个报数游戏， n个人排成一圈，游戏开始时规定一个报数号m，然后从其中一个人开始按顺时针报数1，2，3，…，n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。 实现上述功能的VB代码如下，但加框处有错，请改正。 Private Sub Command1_Click() Dim n As Integer, m As Integer Dim a(1 To 50)  As Integer n = Val(Text1.Text) m = Val(Text2.Text) For i = 1 To n Next i s = 0；j = 0 Do While s < n t = 0 Do While t < m                            t = t + a(j) Loop a(j) = 0 s = s + 1 List1.AddItem “第” + Str(s) + “次：” + Str(j)  Loop End Sub （1） “报数”按钮的对象名称是。 （2） 程序代码中，加框处有错，请改正。 （3） 程序代码中，横线处语句补充完整。 （4） 程序运行结束后，变量t的值是。 答案： 【1】Cmd_1 a(i)=1 j=j Mod n +1 【1】m

查看本题答案和解析