Private Function p1(x As Integer,y As Integer,z As Integer)p1 = 2 * x + y + 3 * zEnd FunctionPrivate Function p2(x As Integer,y As Integer,z As Integer)p2 = p1(z,y,x) + xEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As

Private Function p1(x As Integer,y As Integer,z As Integer)p1 = 2 * x + y + 3 * zEnd FunctionPrivate Function p2(x As Integer,y As Integer,z As Integer)p2 = p1(z,y,x) + xEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As
Private Function p1(x As Integer,y As Integer,z As Integer)
p1 = 2 * x + y + 3 * z
End Function
Private Function p2(x As Integer,y As Integer,z As Integer)
p2 = p1(z,y,x) + x
End Function
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 2:b = 3:c = 4
Print p2(c,b,a)
End Sub
我算到后来就乱了.每步的结果~

Private Function p1(x As Integer,y As Integer,z As Integer)p1 = 2 * x + y + 3 * zEnd FunctionPrivate Function p2(x As Integer,y As Integer,z As Integer)p2 = p1(z,y,x) + xEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As
不就是个数学中的求函数值么,没啥好解释的
就比如
f(x,y,z)=2x+y+3z
g(x,y,z)=f(z,y,x)+x
求g(4,3,2)