Option Base 1
Private Function FindMax(a() As Integer)
    Dim Start As Integer
    Dim Finish As Integer, i As Integer
    'Start = ?(a)
    'Finish = ?(a)
    'Max = ?(Start)
    For i = Start To Finish
        'If a(i) ? Max Then Max = ?
    Next i
    FindMax = Max
End Function
Private Sub Command1_Click()
    Dim arr1
    Dim arr2(4) As Integer
    'arr1 = Array(Val(?), Val(?), Val(?), Val(?))
    For i = 1 To 4
        'arr2(i) = CInt(?)
    Next i
    'M = FindMax(?)
    Print "最大值是: "; M
End Sub