用VB编写一个程序,计算出给定的10*10矩阵(存放在二维数组A中)每行元素的最大值和每列元素的最小值
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/03 17:40:10
用VB编写一个程序,计算出给定的10*10矩阵(存放在二维数组A中)每行元素的最大值和每列元素的最小值
如果行元素中最大值的最小值大于列元素中最小值的最大值则输出“row”否则输出“col”
如果行元素中最大值的最小值大于列元素中最小值的最大值则输出“row”否则输出“col”
Module Module1
Sub Main()
Dim A(,) As Integer = {{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0}}
Dim Rows(10) As Integer
Dim Cols(10) As Integer
Dim i,j As Integer
Dim max,min As Integer
For i = 0 To A.GetLength(0) - 1
Rows(i) = A(i,0)
For j = 0 To A.GetLength(1) - 1
If (A(i,j) > Rows(i)) Then
Rows(i) = A(i,j)
End If
Next
Next
For j = 0 To A.GetLength(1) - 1
Cols(j) = A(j,0)
For i = 0 To A.GetLength(0) - 1
If (A(i,j) < Cols(j)) Then
Cols(j) = A(i,j)
End If
Next
Next
min = Rows(0)
For i = 1 To A.GetLength(0) - 1
If Rows(i) < min Then
min = Rows(i)
End If
Next
max = Cols(0)
For i = 1 To A.GetLength(1) - 1
If Cols(i) > max Then
max = Rows(i)
End If
Next
If min > max Then
Console.WriteLine("row")
Else
Console.WriteLine("col")
End If
End Sub
End Module
Sub Main()
Dim A(,) As Integer = {{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0}}
Dim Rows(10) As Integer
Dim Cols(10) As Integer
Dim i,j As Integer
Dim max,min As Integer
For i = 0 To A.GetLength(0) - 1
Rows(i) = A(i,0)
For j = 0 To A.GetLength(1) - 1
If (A(i,j) > Rows(i)) Then
Rows(i) = A(i,j)
End If
Next
Next
For j = 0 To A.GetLength(1) - 1
Cols(j) = A(j,0)
For i = 0 To A.GetLength(0) - 1
If (A(i,j) < Cols(j)) Then
Cols(j) = A(i,j)
End If
Next
Next
min = Rows(0)
For i = 1 To A.GetLength(0) - 1
If Rows(i) < min Then
min = Rows(i)
End If
Next
max = Cols(0)
For i = 1 To A.GetLength(1) - 1
If Cols(i) > max Then
max = Rows(i)
End If
Next
If min > max Then
Console.WriteLine("row")
Else
Console.WriteLine("col")
End If
End Sub
End Module
用VB编写一个程序,计算出给定的10*10矩阵(存放在二维数组A中)每行元素的最大值和每列元素的最小值
编一程序,把一个m行n列矩阵中的元素存放到一个二维数组中,并求出该数组的平均值,最大值和最小值
VB编写程序,生成一个10个元素的随机整数组,数组元素的范围0-100,要求将这个数组的最大值和最小值的位置对调
编写VB程序,在窗体上输入5个整数存放在数组中,找出这些数中最大值和最小值及它们所在的位置,
编写一个函数,其功能是求给定数组中的最小值与最大值的元素
求一个3×3矩阵对角线元素之和.(提示:定义一个三行三列的二维数组存放该矩阵的所有元素)
vb求最大值的问题有一个m乘n的矩阵,用vb编写程序,找出其中最大的元素所在的行和列,并输出其值及行号和列号.
设计一个数组,存放20个范围在(1,100)之间的随机数,每行显示五个.求该数组元素的平均值,最大值,最小值,
随机产生100个元素的一维数组a和10X10的二维数组b,求a,b数组的最大值,最小值,均值,总和.
【c语言】编写程序,求数组a中前n个元素的最大值max、最小值min及平均值avg.
利用VB,编写一个3*4的二维数组输入任意整数,求所有数组元素和及平均值
在VB中生成有n(n≥10)个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值