相关试卷

Dim a(1 To 20)As String, ys As String, xs As String

Dim k As Integer, h As Integer, n As Integer, i As Integer, j As Integer

ys=Text1.Text: k=Val(Text2.Text)

n=Len(ys):h=1

For i=1 To n

    a(i)=mid(ys,i,1)

Next i

For i=1 To k

    For j = h To

        If a(j) > a(h) Then

    Next j

    xs=xs + a(h)

    h=h + 1

Next i

Text3.Text=xs

上述程序中方框处可选语句为

①n-k+i   ②i+k   ③n-k+1   ④j=h   ⑤h=j

则方框处语句依次是（    ）

Dim a(1 to 6) As Integer, i As Integer

For i=1 To 6

    a(i)=Int（Rnd*4）*2+1

    If i Mod 2=1 Then a(i)=a(i) * 2 Else a(i)=a(i)+a(i-1)

Next i

最终a数组各元素的值可能是（    ）

明文∶a b c……x y z

密文∶C D E……Z A B

已知变量ym是明文中的一个小写字母，则生成对应密文字母的表达式为（     ）

下列相关描述，正确的是（     ）

①通过刷脸完成支付宝的验证登录②使用在线二维码生成器制作二维码③通过“拍照识花”APP了解花卉信息 ④通过语音命令“天猫精灵”打开电视机 ⑤通过微信发送语音消息

编写解密的VB程序，功能如下：在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中显示去重后的文本，并在标签Label1中显示明文。程序运行界面如图所示。

    Dim a AsString

    Dim c AsString

    a = “lianshizhongxue”

    c = Mid (a , Len( a) \2 +1, 8)

    Text1.Text = c

End Sub

该程序段运行后，在文本框Text1上显示的是（    ）

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

例如，固定长度为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

请回答下列问题：