当前位置: 高中信息技术 / 综合题
  • 1. (2020高三下·宁波开学考) 编写VB程序,实现如下功能:在程序运行时,在文本框1中输入整数m(1≤m≤10),单击“生成矩阵”按钮Command1,生成m2个范围为[0,9]的随机整数,随机存储在数组a中,并以m行、m列矩阵的形式在列表框List1上显示。单击“行排序”按钮Command2,对矩阵以“行”为单位完成升序排序,并在列表框List2上显示。运行界面如图所示,程序代码如下:

    Dim m As Integer

    Dim a(1 To 100) As Integer

    Private Sub Command1_Click()

        '输入整数m,并随机产生m2个随机数

        '随机数以m*m 矩阵形式在List1上显示

        '代码略

    End Sub

    Private Sub Command2_Click()

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

        Dim s As String

        List2.Clear

        For i = 1 To m * m

            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  Then

                List2.AddItem s

                s = ""

            End If

        Next i

    End Sub

    1. (1) 代码“List2.Clear”中的Clear 是 。(单选,填字母:A .对象名 /B .事件名 /C .属性名 /D .方法名)
    2. (2) 程序代码中,加框处代码有错,请改正。
    3. (3) 请在划线处填入合适代码。

       ② 

微信扫码预览、分享更方便