Sub CallProcO Dim I, J As integer Dim K As Single : i—i—r Cali RecProc(I, J, K) End Sub * Calllng procedurę |
Sub RecProc(I As Integer, J As Integer, K As Single) 'Works with the passed arguments 'as well as its own local variables. 'Any module or global variables 'may be used also. End Sub* |
Recewing procedurę