当前位置: 高中信息技术 / 综合题
  • 1. (2020高二上·衢州期末) 小李编写了一个实现矩阵行列转换功能的VB程序,运行界面如图所示。程序运行时,生成数组a的值并在列表框List1中显示,在文本框Text1中输入要转换的行列序号(相同),单击“转换”按钮Command1后,在列表框List2中显示转换后的矩阵。

    实现上述功能的VB程序如下,请回答下列问题:

    Const k=5

    Dim a(1 To k * k)As Integer

    Private Sub Form_Load( )

    ‘生成数组a并以矩阵形式显示在列表框list1中

    End Sub

    Private Sub Command1_Click()

        Dim b(1 To k, k * k)As Integer

        Dim n As Integer

        Dim row As Integer, col As Integer

        Dim s As String

        s=“”

        n=Val(Text1. Text)

        For i=1 To k * k

            row=(i-1)\k+1

              ①    

            If row=n Then

                b(i)=a((col-1)*k+n)

            ElseIf col=n Then

                   ②   

            Else

                b(i)=a(i)

            End If

            s=s+Str(b(i))

            If    ③   Then

                List2. AddItem s

                s=“”

            End If

        Next i

    End Sub

    1. (1) 要让窗体左上角显示“矩阵转换”文字,应该通过修改该窗体的(单选,填字母:A . Font/B . Caption/C . Text)属性
    2. (2) 请在划线处填入合适的代码。

       ② ③ 

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