Private Function FindMax(a() As Integer)
Dim Start As Integer
Dim Finish As Integer, i As Integer
Start = 1
Finish = 4
Max = a(0)
For i = Start To Finish
If a(i) >Max Then Max = a(i)
Next i
FindMax = MaxEnd FunctionPrivate Sub Command1_Click()
Dim arr1
Dim ...