VB程序设计,求一个3行3列矩阵的3行中的元素之和最大的那一行.
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/07 06:00:14
VB程序设计,求一个3行3列矩阵的3行中的元素之和最大的那一行.
![VB程序设计,求一个3行3列矩阵的3行中的元素之和最大的那一行.](/uploads/image/z/730368-0-8.jpg?t=VB%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%2C%E6%B1%82%E4%B8%80%E4%B8%AA3%E8%A1%8C3%E5%88%97%E7%9F%A9%E9%98%B5%E7%9A%843%E8%A1%8C%E4%B8%AD%E7%9A%84%E5%85%83%E7%B4%A0%E4%B9%8B%E5%92%8C%E6%9C%80%E5%A4%A7%E7%9A%84%E9%82%A3%E4%B8%80%E8%A1%8C.)
Dim i As Integer, j As Integer, a(1 To 3, 1 To 3) As Integer, b(1 To 3) As Integer, max As Integer, maxi As Integer
Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 3
Randomize
a(i, j) = Int((100 - 1 + 1) * Rnd + 1)
Print Format(a(i, j), "@@@@@");
Next
Print
Next
Print
End Sub
Private Sub Command2_Click()
For i = 1 To 3
For j = 1 To 3
b(i) = b(i) + a(i, j)
Next
Next
maxi = 1
max = b(1)
For i = 2 To 3
If b(i) >= max Then max = b(i): maxi = i
Next
Print "元素之和最大的行为第" & maxi & "行"
End Sub
![](http://img.wesiedu.com/upload/9/de/9defae19f878e09efffdd5c8a7f0b3c2.jpg)
Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 3
Randomize
a(i, j) = Int((100 - 1 + 1) * Rnd + 1)
Print Format(a(i, j), "@@@@@");
Next
Next
End Sub
Private Sub Command2_Click()
For i = 1 To 3
For j = 1 To 3
b(i) = b(i) + a(i, j)
Next
Next
maxi = 1
max = b(1)
For i = 2 To 3
If b(i) >= max Then max = b(i): maxi = i
Next
Print "元素之和最大的行为第" & maxi & "行"
End Sub
![](http://img.wesiedu.com/upload/9/de/9defae19f878e09efffdd5c8a7f0b3c2.jpg)
VB程序设计,求一个3行3列矩阵的3行中的元素之和最大的那一行.
VB 输入一个3行4列的二维数组,分别求出每一行、每一列元素之和 要求
用C语言编程:求一个3行3列的矩阵对角线的元素之和.
编写程序:求一个3行3列的矩阵对角线的元素之和.
c语言,输入一个3*3的矩阵,求矩阵中的所有元素之和,并找出其中最小的那个元素的行号和列号!求代码!
1.VB编程,求一个M行N列的矩阵四周元素之和,元素值可以随机产生,M、 N从键盘输入
求这样一个3×3的矩阵,其行、列及对角线上各元素之和为15
将矩阵A1第2~5行中的第1,3,5烈 元素付给矩阵B的matlab程序设计
输入3行4列的矩阵,按行列形式输出该矩阵.求周边元素之和,并输出
matlab 如何生成一个n行3列的随机矩阵,每一行元素相同,矩阵元素为1、2、3、4?
c++程序设计 求一个3*3的整形二维数组对角线元素之和
用C语言求一个3行3列整数型矩阵对角线元素之和