相关试卷

程序要求如下：给定需要排序的数字（十进制混乱版本）和映射，返回按正确的十进制值升序排序的混乱数据，如果多个映射值相等，则返回的值按其显示的原始顺序。（采用插入排序算法实现：其基本思想是将整个数组分为左边有序和右边无序两个部分，每次取出无序部分的第一个元素，把它插入到有序部分的合适位置，直至所有的数据有序为止。）

例如，固定长度为10的映射{“3”,“5”,“4”,“6”,“2”,“7”,“9”,“8”,“0”,“1”}

和混乱的错误数据{“990”,“332”,“32”}

将“990”映射为“668”：

第一个数字为“9”。在映射数组中，9在位置6处，因此映射值得第一位是“6”。

第二个数字为“9”。在映射数组中，9在位置6处，因此映射值得第一位是“6”。

第三个数字为“0”。在映射数组中，0在位置8处，因此映射值得第一位是“8”。

按同样的方法，“332”映射为“004”，“32”映射为“04”。

“004”和“04”转换成整数都是4，按整数值排序会产生{4,4,668},而保留“332”和“32”的顺序会得到混乱数据为{“332”,“32”,“990”}。

程序VB代码如下：

Const m = 1000

Const n = 10

Dim mapping(1 To n) As String    '存储映射数字

Dim nums1(1 To m) As String    '存储现在的错误数据

Dim nums2(1 To m) As String    '存储原始的正确数据

Private Sub Form_Load()

'读取系统中现在的错误数据存储在数组nums1中，并将数据添加到列表框list1，代码略

'读取映射数字存储在mapping数组中，代码略

End Sub

Private Sub Sort_Click()

    Dim errornum As String

    Dim rightnum As String

    Dim i, j As Integer

    Dim temp As String

    Dim s As String

    For i = 1 To m

        nums2(i) = ""

        For j = 1 To Len(nums1(i))

            errornum = Mid(nums1(i), j, 1)

                ①    

            nums2(i) = nums2(i) + rightnum

        Next j

    Next i

    '对原始正确数据进行升序插入排序

    For i = 2 To m

        temp = nums2(i): j = i - 1

        Do While Val(temp) < Val(nums2(j))

            nums2(j + 1) = nums2(j)

            j = j - 1

            If j = 0 Then Exit Do

        Loop

           ②  

    Next i

    For i = 1 To m

        nums1(i) = ""

        For j = 1 To Len(nums2(i))

            nums1(i) = nums1(i) +     ③  

        Next j

    Next i

    s = ""

    For i = 1 To m

        s = s + nums1(i)+ " "

    Next i

    List2.AddItem s

End Sub

'根据错误数字返回正确数字

Function match(x As String) As String

    Dim i As Integer

    For i = 1 To n

        If mapping(i) = x Then Exit For

    Next i

    match = CStr(i - 1)

End Function

请回答下列问题：

图a

程序VB代码如下：

Private Sub Command1_Click()

    Const n = 20

    Dim i, j As Integer

    Dim a(1 To n) As Integer

    Dim max As Integer

    Dim c As Integer

    Randomize

    For i = 1 To n

        a(i) =    ①  

        For j = 1 To i - 1

            If a(j) = a(i) Then

                    ② 

                Exit For

            End If

        Next j

    Next i

    '将不重复无序数组a添加到列表框List1中，代码略

    For i = 1 To n - 1

        For j = 1 To    ③  

            If a(j) > a(j + 1) Then

               temp = a(j): a(j) = a(j + 1): a(j + 1) = temp

            End If

        Next j

    Next i

    max = Abs(a(2) - a(1))

    i = 2

    Do While i <= n – 1

        If c > max Then max = c

        i = i + 1

    Loop

    Label1.Caption = "相邻两个元素最大的差值为：" + Str(max)

End Sub

请回答下列问题：

请回答下列问题：

图a

For i = 1 To 7

    a(i) = Int(Rnd * 90) + 10

Next i

For i = 7 To 2 Step -1

    If a(i) Mod 2 = 1 And a(i) < a(i - 1) Then

        t = a(i): a(i) = a(i - 1): a(i - 1) = t

    Else

        a(i) = a(i) \2

    End If

Next i

执行该程序段后，数组a(1)～a(7)各元素不可能是（    ）

Dim a(1 To 6) As Integer

a(1) = 15: a(2) = 11: a(3) = 58: a(4) = 38: a(5) = 26: a(6) = 9

k = 1

For i = 1 To 2

    For j = 1 To 6 - 2 * i

        If k * a(j) < k * a(j + 2) Then

            t = a(j): a(j) = a(j + 2): a(j + 2) = t

        End If

        k = -k

    Next j

Next i

执行该程序段后，数组a元素的值分别为（    ）

Dim a(1 To 6) As String

For i = 6 To 2 Step -1

    k = i

    For j = 1 To i - 1

        If a(j) > a(k) Then k = j

    Next j

    If k <> i Then

    End If

Next i

已知数组元素a(1)～a(6)的值依次为“35”,“12”,“35”,“110”,“47”,“123”，下列说法不正确的是（    ）

s = "297082"

For i = 1 To 3

    n = Len(s)

    k = 1

    For j = 2 To n

        If Mid(s, k, 1) >= Mid(s, j, 1) Then

            k = j

        Else

            Exit For

        End If

    Next j

    s = Mid(s, 1, k - 1) + Mid(s, k + 1, n - k)

Next i

Label1.Caption = s

执行该程序段后，标签Label1中显示的值是（    ）

下列说法正确的是（    ）

下列说法正确的是（    ）

①Word自动更正功能②学校门口通过识别车牌对车辆进行进出管理 ③使用扫描仪将试卷纸质稿扫描成图片 ④汽车导航实时播报路况 ⑤使用百度翻译一键将中文翻译成英文 ⑥与“天猫精灵”进行语音对话