云南省迪庆州香格里拉县第一中学2022-2023学年高一下学...

①使用WinRAR或WinZIP软件把报告文件压缩

②把报告文件后缀名改成“rar”或“zip”

③把报告文件里的图像全部删除

④适当调小图像素材的分辨率后，再替换文件中的原图像

⑤把报告文件另存为txt文本文件

i=1 : j=6 : k=0

key = Val( Textl．Text)

Do Whilei<= j

    k=k+ 1

    m= Int((i +j)/2+0.5)

    If key = a(m) Then Exit Do

    If key< a(m) Then j=m-1 Else i=m+ 1

Loop

文本框Text1中输入27，执行该程序段后，k的值为2，则a(1)到a(6)各元素可能的值是（   ）

李华编写了实现上述功能的程序，程序功能如下：程序运行时，在文本框Text1中输入n（1<=n<=10）单击“产生”按钮Command1产生n×n个随机数，随机数的范围为[0,9],随机存储在数组a中，并以矩阵的形式在列表框List1上显示。单击“排序”按钮Command2，对矩阵以“行”为单位进行升序排序，并在列表框List2输出排序后的矩阵。在程序运行界面如下图所示。

实现上述功能的VB程序如下，请在划线处填入合适的代码。

Dim n As Integer

Dim a(1 To 100) As Integer

Private Sub Command1_Click( )

    Dim i As Integer, s As String

    s = ""

    For i = 1 To n * n

        s = s + Str(a(i))

        If i Mod n = 0 Then

            List1.AddItem s

            s = ""

        End If

    Next i

End Sub

Private Sub Command2_Click()

    Dim i As Integer, j As Integer, t As Integer

    Dim s As String

    s = ""

    For i = 1 To n * n

        k = i

        For j = i + 1 To

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

        Next j

        If k <> i Then t = a(k):a(k) = a(i):a(i) = t

        If i Mod n = 0 Then

            List2.AddItem s

            s = ""

        End If

    Next i

End Sub