我要算矩阵里的最大值,但一直是0,帮我看看哪错了
Public Class Form1
Dim a%(,)
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
Dim i, j, m, n, max, maxi, maxj As Integer
m = Val(InputBox("input row m")) - 1
n = Val(InputBox("input col n")) - 1
For i = 0 To m
For j = 0 To n
ReDim a(i, j)
If max < a(i, j) Then
max = a(i, j)
maxi = i
maxj = j
End If
a(i, j) = Val(InputBox("input data"))
TextBox1.Text &= a(i, j) & Space(6 - Len(Trim(a(i, j))))
Next
TextBox1.Text &= vbCrLf
Next
TextBox1.Text &= "max is " & max & "is in" & maxi + 1 & "row" & maxj + 1 & "col" & vbCrLf
End Sub
|
