编写程序,生成一个由两位随机整数组成的5×5的数组,并显示在图片框中，再找出最小的元素，并将最小元

编写程序,生成一个由两位随机整数组成的5×5的数组,并显示在图片框中，再找出最小的元素，并将最小元

Dim a(1 To 5, 1 To 5) As Integer
Private Sub Command1_Click()
Dim i%, j%
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub

Private Sub Command2_Click()
Dim b%(1 To 5)
For i = 1 To 5
For j = 1 To 5
b(i) = b(i) + a(i, j)
Next j
Text1.Text = Text1 & " " & b(i)
Next i
End Sub