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
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 14:51:43
![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](/uploads/image/z/5899096-64-6.jpg?t=Private+Function+p1%28x+As+Integer%2Cy+As+Integer%2Cz+As+Integer%29p1+%3D+2+%2A+x+%2B+y+%2B+3+%2A+zEnd+FunctionPrivate+Function+p2%28x+As+Integer%2Cy+As+Integer%2Cz+As+Integer%29p2+%3D+p1%28z%2Cy%2Cx%29+%2B+xEnd+FunctionPrivate+Sub+Command1_Click%28%29Dim+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)