编写程序，把下面的数据输入一个二维数组中：
25 36 78 13
12 26 88 93
75 18 22 32
56 44 36 58
然后执行以下操作。
1.输出矩阵两个对角线上的数。
2.分别输出各行和各列的和。
3.交换第一行和第三行的位置。
4.交换第二列和第四列的位置。
5.输出处理后的数组。

以下是此题的【VB源代码】
Private Sub Form_Click()

    Dim mat(4, 4) As Integer
    Dim n, m As Integer
    n = 4
    m = 4

    '输入矩阵
    For i = 1 To n
        For j = 1 To m
            mat(i, j) = InputBox("请输入数组第 " & i & " 行第 " & j & " 列元素值")
            Val (mat(i, j))
        Next j
    Next i

    '输出原始矩阵
    Print
    Print "初始矩阵为:"
    Print
    For i = 1 To n
        For j = 1 To m
            Print Tab(6 * j); mat(i, j);
        Next j
        Print
    Next i

    '输出矩阵对角线上的数
    Print
    Print "矩阵对角线上的数为:"
    Print
    For i = 1 To n
        For j = 1 To m
            If i = j Then
                Print Tab(6 * j); mat(i, j);
            End If
        Next j
    Next i

    Print
    For i = 1 To n
        For j = 1 To m
            If i + j = 5 Then
                Print Tab(6 * i); mat(i, j);
            End If
        Next j
    Next i

 '交换第一行和第三行
Print
For i = 1 To n
For j = 1 To m
If i = 1 Then
t = mat(1, j)
mat(1, j) = mat(3, j)
mat(3, j) = t
End If
Next j
Next i

Print
Print "交换第一行和第三行后的矩阵:"
Print
For i = 1 To n
For j = 1 To m
Print Tab(6 * j); mat(i, j);
Next j
Print
Next i

'交换第二列和第四列
Print
For i = 1 To n
For j = 1 To m
If j = 2 Then
t = mat(i, 2)
mat(i, 2) = mat(i, 4)
mat(i, 4) = t
End If
Next j
Next i

Print
Print "交换第二列和第四列后的矩阵:"
Print
For i = 1 To n
For j = 1 To m
Print Tab(6 * j); mat(i, j);
Next j
Print
Next i

End Sub

运行此VB源码后，鼠标点击窗体，输入初始矩阵数据，结果情况如下图所示：



visual basic 程序设计教程第四版 课后 答案 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_8.7.html