Private Sub Command1_Click()
D.im a As Integer, b As Integer, c As Integer
a=3∶b=4∶c=5
Print SecProc(c, b, a)
E.nd Sub
F.unction FirProc(x As Integer, y As Integer, z As Integer)
F.irProc=2 * x + y + 3 * z+2
E.nd Function
F.unction SecProc(x As Integer, y As Integer, z As Integer)
SecProc=FirProc(z, x, y)+ x+7
E.nd Function
A.20
B.25
C.37
D.32