VB实验：定义一个5x5的矩阵，用随机函数产生各数组元素的值(100以内的正整数)。找出矩阵中最大

Question

VB实验：定义一个5x5的矩阵，用随机函数产生各数组元素的值(100以内的正整数)。找出矩阵中最大的数。求大神给个答案

Answer 1

Private Sub Command1_Click()
Dim a(4, 4) As Integer, tmp As Integer
Dim i As Integer, j As Integer
Randomize Timer
For i = 0 To 4
 For j = 0 To 4
  a(i, j) = Int(Rnd * 100)
  If tmp < a(i, j) Then tmp = a(i, j)
  Print a(i, j);
 Next
 Print
Next
Print
Print
Print tmp

End Sub