Question

vb 关于数组的问题1．利用随机函数生成一个4*5的矩阵（二维数组），范围是[1，100]之间的整数，求所有元

素的最大值

Answer 1

Function t_rand()

s = ""

Dim a(0 To 4, 0 To 5) As Integer

Max = 0

For i = 0 To 3

For j = 0 To 4

a(i, j) = Int((100 * Rnd) + 1)

If a(i, j) > Max Then Max = a(i, j)

s = s & a(i, j) & vbTab '  Debug.Print a(i, j)

Next j

s = s & vbCrLf

'Debug.Print

Next i

s = s & "max=" & Max

Form1.Text1.Text = s

End Function

追问

你用的是vb什么版本，界面我不是太懂，另外，如果同时显示最大值的坐标应该怎么办

Answer 2

Dim a%(4, 5)
Private Sub Command1_Click() '产生并输出
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 100) '[1,100]
Print a(i, j);
Next j
Print '换行
Next i
End Sub
Private Sub Command2_Click() '求最小值
Max = a(1, 1) '最大值的初始值为第一个元素
For i = 1 To 4
For j = 1 To 5
If Max < a(i, j) Then
Max = a(i, j)
End If
Next j
Next i
Print "最大值为："; Max
End Sub

追问

如果同时显示最大值的坐标怎么办，

追答

Dim a%(4, 5)
Dim imax As Integer
Dim jmax As Integer

Private Sub Command1_Click() '产生并输出
For i = 1 To 4
For J = 1 To 5
a(i, J) = Int(Rnd * 100) '[1,100]
Print a(i, J);
Next J
Print '换行
Next i
End Sub
Private Sub Command2_Click() '求最小值
Max = a(1, 1) '最大值的初始值为第一个元素
For i = 1 To 4
For J = 1 To 5
If Max < a(i, J) Then
Max = a(i, J)
imax = i
jmax = J

End If
Next J
Next i
Print "最大值为："; Max; ",坐标为（" & imax & "," & jmax & "）"
End Sub

坐标加上了