' Basic Programming
' Ch. 6 Demo Program #4
' Written by Mr. Minich
' purpose - to illustrate passing a local array variable to a general procedure

Option Explicit

Private Sub cmdMax_Click()
   Dim J As Integer
   Dim intNums(4) As Integer

   For J = 0 To 4
      intNums(J) = InputBox("Enter an integer:")
   Next J

   Call FindLargest(intNums)
End Sub

Private Sub FindLargest(intArray() As Integer)
   Dim J As Integer
   Dim intMax As Integer

   intMax = intArray(0)

   For J = 0 To 4

   If (intArray(J) > intMax) Then
      intMax = intArray(J)
   End If

   Next J

   MsgBox "The largest value that you entered is " & intMax
End Sub