VB程序设计,求一个3行3列矩阵的3行中的元素之和最大的那一行.
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 00:10:27
VB程序设计,求一个3行3列矩阵的3行中的元素之和最大的那一行.
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
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
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列整数型矩阵对角线元素之和