题目

有一个报数游戏，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=I Mod n+1 【1】m

查看本题答案和解析