Question

vb编程求矩阵A中每一列的最大值以及最大值所在的行

Answer 1

1、首先绘制好四个文本框和一个命令按钮。

2、然后我们定义一个输入从文本框输入数据。

3、接下来可以从这个数组数据装入到另一个数组。

4、这时，假设有一个函数可以调用。

5、接下来开始编写代码，为了通用性，可求出上下界。

6、然后我们再遍历查询最大值。

Answer 2

'新建一个工程，在form中添加一个按钮，按钮中写上以下代码即可

Private Sub Command1_Click()
Dim n As Long, m As Long
Dim i As Long, j As Long
Dim x As Long, y As Long, z As Long
Dim a() As Long
n = Val(InputBox("输入N", "输入N", 1))
m = Val(InputBox("输入M", "输入M", 1))
If n < 1 And m < 1 Then Exit Sub
ReDim a(n - 1, m - 1)
Randomize Timer
For i = 0 To n - 1
For j = 0 To m - 1
a(i, j) = Int(Rnd() * (n * m))
If z < a(i, j) Then
x = i + 1
y = j + 1
z = a(i, j)
End If
Next
Next
Cls
For i = 0 To n - 1
For j = 0 To m - 1
Print Space(5 - Len(CStr(a(i, j)))) & a(i, j);
Next
Print
Next
Print "最大值：" & z
Print "行：" & x
Print "列：" & y
End Sub
另外,团IDC网上有许多产品团购,便宜有口碑