vb问题 定义一个二维数组，该数组的值用inputbox输入，并在提上输入该数组，数组中最大值及其位置

Question

如题所述

Answer 1

form 上 放一个 按钮，一个文本框（多行，垂直滚动条）

Private Sub Command1_Click()
Dim i, j As Integer
Dim a(2, 3) As Integer
Dim max As Integer
Dim Imax, Jmax As Integer

For i = 0 To 3 - 1
For j = 0 To 4 - 1
a(i, j) = CInt(InputBox("Input " + CStr(i) + " row," + CStr(j) + " col", "InputBox"))
Next j
Next i
max = a(0, 0)
For i = 0 To 3 - 1
For j = 0 To 4 - 1
Text1.Text = Text1.Text + " " + CStr(a(i, j))
If max < a(i, j) Then
max = a(i, j)
Imax = i
Jmax = j
End If
Next j
Text1.Text = Text1.Text + vbCrLf

Next i
Text1.Text = Text1.Text + "Max=" + CStr(max) + vbCrLf + "it's at " + CStr(i) + "," + CStr(j) + vbCrLf
End Sub