Public Sub Proc ( a% ()) Static i% Do a ( i ) = a ( i ) + a ( i + 1 ) i = i + 1 Loop While i < 2 End Sub Private Sub Command1_Click () Dim m%, i%, x% ( 10 ) For i = 0 To 4: x ( i ) = i + 1 : Next i For i = 1 To 2: Call Proc ( x ) : Next i For i = 0 To 4: Print x ( i ) ;: Next i End Sub