云南省昭通市镇雄县2022-2023学年高一上学期信息技术期...

For i=2 to 5

  For j=i to 5

    If j mod i=0 then a(j)=a(j)+1

  Next j

Next i

For i=1 to 5

  If a (i)<>1 then s=str(i)+s

Next i

若数组a 的初始值都为0，则运行该程序段后，s的值为（    ）

a=23:b=18:c=0

a=a+b

b=a+b

c=a+b

a = 9

b = "Command Button"

c = Len(b)

If a > 0 And a < c Then

    Label1.Caption =Mid(b,a,6)

Else

    Label1.Caption = "error"

End If

该程序段运行后，在标签Label1上显示的是（   ）

A=31415

S=0

Do while A>0

    s = s + A mod 10

    A= A\10

Loop

PRINT S

例如，共有N=5个景点，每个景点连接的下一个景点分别是2，4，5，5，2。

则他可以从2号景点出发，最多可以游玩2号、4号、5号三个景点。

程序代码如下：

Private Sub Command1_Click()Dim a(1 To 100) As Integer, d(1 To 100) As Integer

    Dim jd As String, m As String, c As Integer, i As Integer

    Dim s As Integer, p As Integer, k As Integer, ans As Integer

    jd = Text1.Text + ","

    s = 0: c = 0

    For i = 1 To Len(jd)

        m = Mid(jd, i, 1)

        If m <> "," Then

               ①    

        Else

            c = c + 1: a(c) = s: s = 0

        End If

    Next i

    ans = 0: k = 0

    For i = 1 To c

        For k = 1 To c

            d(k) = 0

        Next k

        If d(i) = 0 Then

            p = i

            Do While p <= c

                If d(p) = 0 Then

                    k = k + 1: d(p) = k

                Else

                If y > ans Then ans = y

                    k = 0

                    Exit Do

                End If

            Loop

        End If

    Next i

    Text2.Text = Str(ans)

End Sub

①1号和2号机器人需要交替运动，即第一轮由1号进行运动，第二轮则由2号进行运动，第三轮由1号进行运动……以此类推直至第K轮。

②每轮运动时，机器人将先判断前方是否可以前进，若无法前进，则不断顺时针旋转90°至可以前进为止，随后前进直至停止，由另一个机器人开始下一轮运动。

③机器人在前进过程中遇到边界、障碍物或者另一个机器人时都将停止。

如图a所示，机器人1号和2号分别位于左上角和右下角，且分别朝向右侧和左侧，黑块表示障碍物，当进行了4轮运动后，状态如图b所示。

编写程序，启动后随机生成矩阵并在List1中输出，其中"#"表示障碍物，"_"表示可以行走的空格子，机器人用数字1和2表示。在文本框Text1中输入轮数K，点击按钮Command1，在列表框List1中输出K轮后的矩阵。程序界面如图c所示。