VB 随机输入一个3X4的矩阵，然后按里面每一列（行）的总和进行排序，输入排序前和排序后的 vb编程题: 随机生成一个4行9列的矩阵,矩阵元素为10-9...

vb\u7f16\u7a0b\u9898\uff0c\u968f\u673a\u751f\u6210\u4e00\u4e2a\uff084\uff0c5\uff09\u7684\u77e9\u9635\uff0c\u8ba1\u7b97\u6bcf\u884c\u7684\u548c\uff0c\u627e\u5230\u201c\u548c\u201d\u6700\u5927\u7684\u884c\u4e8e\u201c\u548c\u6700\u5c0f\u7684\u201d\u884c\uff0c\u4e92\u6362\u4e24\u884c

Private Sub Command1_Click()
Dim a(4, 5) As Integer
Randomize
Print "\u539f\u6765\u7684\u6570\u7ec4\uff1a"
For i = 1 To 4
s = 0 '\u4e0d\u9700\u8981\u65f6\u6b64\u884c\u53ef\u5220\u9664
For j = 1 To 5
a(i, j) = Int(Rnd * 100 + 1)
s = s + a(i, j)
Print Tab(4 * j); a(i, j);
Next j
Print "", s '\u4e0d\u9700\u8981\u65f6\u6b64\u884c\u53ef\u5220\u9664
Next i
Min = 9999
Max = -1
For i = 1 To 4
Sum = 0
For j = 1 To 5
Sum = Sum + a(i, j)
Next j
If Sum > Max Then maxi = i: Max = Sum
If Sum < Min Then Min = Sum: mini = i
Next i
For j = 1 To 5
t = a(maxi, j): a(maxi, j) = a(mini, j): a(mini, j) = t
Next j
Print "\u4ea4\u6362\u540e\u7684\u6570\u7ec4\uff1a"
For i = 1 To 4
s = 0 '\u4e0d\u9700\u8981\u65f6\u6b64\u884c\u53ef\u5220\u9664
For j = 1 To 5
Print Tab(4 * j); a(i, j);
s = s + a(i, j)
Next j
Print "", s '\u4e0d\u9700\u8981\u65f6\u6b64\u884c\u53ef\u5220\u9664
Next i
End Sub

Option Base 1
Private Sub Form_Click()
Dim a(36) As Integer, b(6, 6) As Integer, i As Integer, j As Integer, num As Integer
Print "\u539f\u77e9\u9635\uff1a"
Randomize
For i = 1 To 36
a(i) = Int((99 - 10 + 1) * Rnd + 10)
Print a(i);
num = num + 1
If num Mod 9 = 0 Then Print
Next
For i = 1 To 35
For j = 1 To 36 - i
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next
Next
Print "\u6392\u5e8f\u540e\u77e9\u9635\uff1a"
For i = 1 To 36
Print a(i);
num = num + 1
If num Mod 6 = 0 Then Print
Next
Print "\u4e3b\u5bf9\u89d2\u7ebf\u4e0a\u6570\u5b57\u4e3a\uff1a"
For i = 1 To 6
Print a((i - 1) * 6 + i);
Next
Print
End Sub

假设行数或列数为n
vector = randperm（n）;
vector是从1到n的整数随机排列的向量
按照vector里各个元素的值重新排列行列向量就可以了
假设待排列矩阵为M，排列后的矩阵为A
按列随机排列
A = zeros(size(M));
for i=1:n
A(:,i)=M(:,vector(i));
end

扩展阅读：两个m2插槽插哪个 ... 求解方程计算器 ... 万能计算器 ... 4x msaa ... a7 a7m2 ... du-sh ... a7m3视频规格 ... 4x4矩阵键盘col row ... 学习编程python ...