Page 167 - 4192

Програмний код:
Function vect(xn, xk, dx, k, A)
For X = xn To xk Step dx
i = i + 1
A(i) = (X ^ 2) ^ k + 6 * X
Next X
vect = i
End Function
Private Sub Command1_Click()
Dim Z(50), Y(50) As Single
Dim r, g As Integer
r = vect(2, 8, 1.2, -1, Z)
g = vect(3, 9, 0.5, 1, Y)
Print " Масив Z(" + Str(r) + ")"
For i = 1 To r
Print Z(i)
Next i
Print
Print " Масив Y(" + Str(g) + ")"
For i = 1 To g
Print Y(i)
Next i
End Sub
Private Sub Command2_Click()
End
End Sub

3 ПРОЦЕДУРИ ТИПУ SUB

Для використання процедури загального призначення її
потрібно описати. Опис процедури загального призначення
міститься в секції загальних описів форми (General
Declarations) чи в стандартному модулі. Виклик же
розташовується в тому місці операторної частини коду, де

166