相关试卷

某水果连锁店“智能收银系统”中，AI收银秤具备自动识别水果品种、称重、应付金额计算、扫码支付等功能，同时还具备和服务器数据库进行数据交换的功能。该系统主要设备的部分参数与功能如下表所示：

为提升该信息系统数据的安全性，下列措施中不合理的是（   ）

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

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

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

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

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

例如，共有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

A=31415

S=0

Do while A>0

    s = s + A mod 10

    A= A\10

Loop

PRINT S

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=23:b=18:c=0

a=a+b

b=a+b

c=a+b