Dim A(5, 5) As Integer

Dim A(5, 5) As Integer
Sub SaveData()

Open App.Path & "\" & "PROGIN.DAT" For Input As #1
Open App.Path & "\" & "PROGOUT.DAT" For Output As #2
For k = 1 To 2
For i = 1 To 5
For j = 1 To 5
Input #1, A(i, j)
Next j
Next i
Print #2, "最小值为:" & Fun(A)
Next k
Close #1
Close #2
End Sub

Function Fun(A() As Integer)
'********begin********

'*********end*********
End Function

Private Sub Command1_Click()
Dim i%, j%
Form1.Cls
Randomize
For i = 1 To 5
For j = 1 To 5
A(i, j) = Int(Rnd * 81) + 20
Print A(i, j);
Next j
Print
Next i
End Sub

Private Sub Command2_Click()
min = Fun(A)
Print "最小值为："; min
SaveData
End Sub

Function Fun(A() As Integer)
'********begin********
dim min as Integer
min=a(1,1)
for i=1 to 5
for j=1 to 5
if a(i,j)<min then
min=a(i,j)
end if
next j
next i

Fun=min
'*********end*********
End Function