相关试卷

①微信群里发布的商品广告  ②官方新闻发布会   ③正规词典  ④在线公开数据库

l  路线每个点只能向右或向下

l  任何一个岔口优先向右走，右侧不通再向下走

l  一条路线中每个点只能走一次，不能重复

算法思路：探路过程中，记录每个坐标到数组lu；遇到岔路口（向右向下都通），则记录路口坐标到数组cha；遇到前方无路时，需要返回到上一个路口，标记路口右侧坐标为0；当前方无路，岔路口数组也退回到0，说明整体不通，否则根据规则走到右下为止，最后输出整体线路坐标。

实现算法的程序如下，运行结果如图所示。

回答下列问题：

Const n = 8

Dim a(1 To n) As Integer, b(1 To n) As Integer

Private Sub Form_Load()

    ‘随机产生n个[1,20]之间的不重复的正整数，并在list1中显示，具体代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, t As Integer, p as integer, p as integer

    For i = 1 To n - 1

        For j = n To i + 1 Step -1

            If a(j) < a(j - 1) Then

                t = a(j)：a(j) = a(j - 1)： a(j - 1) = t

            End If

        Next j

    Next i

    p = n:    ‘①

    For i = 1 To n Step 2

            ‘②

        b(i + 1) = a(q)

        p = p - 2

        q = q + 1

    Next i

    For i = 1 To n

        List2.AddItem Str(b(i))

    Next i

End Sub

① ② 

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, t1 As Integer, t2 As Integer

    Dim s As String, c As String, st1 As Integer, st2 As Integer, max As Integer

    s = Text1．Text: max = 0: st1 = 1

    For i = 1 To Len(s) - 1

        c = Mid(s, i, 1)

        If c = "，" Then

            t1 = Val(Mid(s, st1, i - st1))

               ①    

            st2 = st1

            For j = i + 1 To Len(s)

                   ②   

                If c = "，" Then

                    t2 = Val(Mid(s, st2, j - st2))

                    st2 = j + 1

                End If

            Next j

        End If

        If j>0 Then t2 = Val(Mid(s, st2, j - st2))

        If Abs(t1 - t2) > max Then max = Abs(t1 - t2)

    Next i

    shuchu．Caption = "所有数之间绝对值相差最大为：" + Str(max)

End Sub