有一道VB的题目

来源：百度知道 编辑：UC知道 时间：2024/05/14 11:19:04
题目如下：
编写程序，把下面的数据输入一个二维数组中：
25 36 78 13
12 26 88 93
75 18 22 32
56 44 36 58
然后执行下面操作：
1.输出矩阵两个上的数
2.分别输出各行和各列的和
3.交换第一行和第三行的位置
4.交换第二行和第四行的位置
5.输出处理后的数组
劳驾哪位VB高手把具体的编程代码下出来，具体点，以造福人类
谢谢

该你道行交换的题目：
你看看
1.利用随机函数生成一个由两位正整数构成的4行5列矩阵，并求出矩阵行的和最大与最小的行，并调换这两行位置。

Dim a(4, 5) As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
Dim s As Integer, maxs As Integer
Dim mins As Integer
Dim maxh As Integer, minh As Integer
Dim t As Integer
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
Picture1.Print a(i, j);
Next
Picture1.Print
Next

maxh = 1
maxs = 0
For i = 1 To 4
s = 0
For j = 1 To 5
s = s + a(i, j)
Next j
If s > maxs Then
maxs = s
maxh = i
End If
Next i

mins = 500
minh = 1
For i = 1 To 4
s = 0
For j = i To 5
s = s + a(i, j)
Next j
If