VB编程题求解
来源:百度知道 编辑:UC知道 时间:2024/07/04 06:52:38
求代码........
Private Sub inputJZ(m As Long, n As Long, a() As Long)
ReDim a(m, n)
For i = 0 To m - 1
For j = 0 To n - 1
a(i, j) = InputBox("Please input long data!")
Next
Next
End Sub
Private Sub outMaxYS(a() As Long, m As Long, n As Long, max As Long, x As Long, y As Long)
For i = 0 To m - 1
For j = 0 To n - 1
If a(i, j) > max Then
max = a(i, j)
x = i + 1: y = j + 1
End If
Next
Next
End Sub
Private Sub Command1_Click()
Dim m As Long, n As Long, max As Long, x As Long, y As Long
Dim a() As Long
m = 4: n = 4
inputJZ m, n, a()
For i = 0 To m - 1
For j = 0 To n - 1
Print a(i, j) & " ";
Next
Print
Next
outMaxYS a(), m, n, max, x, y
Print "%%%%%%%"
Print "max=" & max
Print "x=" & x & " " & "y=" & y
End Sub
我调试过了,能达到你的要求!!