VB 数组求助

来源:百度知道 编辑:UC知道 时间:2024/05/27 20:07:00
利用随即数产生两个矩阵(数据不一定相同,前者范围为30~70, 后者为101~135)
要求
1)将两个矩阵相加结果放入C矩阵
2)将A矩阵转置
3)求C矩阵中元素的最大值和下标
4)以下三角形式显示A矩阵,以上三角形显示B矩阵
5)将A矩阵第1行与第3行对应元素转换位置
6)求A矩阵两条对角线元素之和
7)将A矩阵按列的次序把各元素放入一维数组D中,显示结果

请问各位高手 该怎么做啊???
我是初学 刚接触
没有基础 请你们帮帮我吧
谢谢了

我只想说一句,你问这么多的问题,并且也没有分给人家加,当然没人回答了,以后提问要记住多少也要给点分出来.我来给你编前三个吧,我也刚学的,不过前三个还会,编在一起的,你把窗体拉长一点才能看得全
Dim i As Integer, j As Integer, n As Integer, max As Integer, n1 As Integer, n2 As Integer
Dim a(5, 5) As Integer, b(5, 5) As Integer, c(5, 5) As Integer, d(5, 5) As Integer
Randomize
Print "A矩阵为:"
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(41 * Rnd + 30)
Print a(i, j);
Next j
Print
Next i
Print
Print "B矩阵为:"
For i = 1 To 5
For j = 1 To 5
b(i, j) = Int(35 * Rnd + 101)
Print b(i, j);
Next j
Print
Next i
Print
Print "A矩阵和B矩阵相加后的C矩阵为"
For i = 1 To 5
For j = 1 To 5
c(i, j) = a(i, j) + b(i, j)
Print c(i, j);
Next j
Print
Next i
Print
Print "A矩阵的换置矩阵为:"