当前位置: 高中信息技术 / 综合题
  • 1. 有一个报数游戏,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. (1) “报数”按钮的对象名称是
    2. (2) 程序代码中,加框处有错,请改正。

      应改为

    3. (3) 程序代码中,将横线处语句补充完整。
    4. (4) 程序运行结束后,变量t的值是

微信扫码预览、分享更方便