Private Function p1(x As Integer,y As Integer,z As Integer)

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
我算到后来就乱了.每步的结果~