答案是10,但我需要过程,求高手赐教,把每个过程也写下DimaAsIntegerPrivateSubCommand1Click()DimbAsInteger,cAsIntegera=2:b=-1CallMySub(b,c)c=c+bCallMySub(c,b)a=a+cText1.Text=a+b

Question

答案是10,但我需要过程,求高手赐教,把每个过程也写下
Dim a As Integer
Private Sub Command1_Click()
Dim b As Integer, c As Integer
a = 2: b = -1
Call MySub(b, c)
c = c + b
Call MySub(c, b)
a = a + c
Text1.Text = a + b + c
End Sub
Sub MySub(ByVal x, y)
Dim b As Integer
a = x + a + b
x = 2 * a + x
y = x + 1
End Sub

Answer 1

题目没问全吧?其实这种问题你用VB自己一步步调试一下就可,可以看到每一步每一个变量的变化过程.