当前位置: 高中信息技术 / 综合题
  • 1. (2023高一下·香格里拉月考) 对一个n×n的矩阵以“行”为单位进行升序排序,如下表所示是一个4×4的矩阵以行为单位进行升序排序。

    李华编写了实现上述功能的程序,程序功能如下:程序运行时,在文本框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

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