F.unctin Fun1(Byval a As Integer ,b As Integer) As Integer
D.im t As Integer
t=a-b
b=t+a
F.un1=t+b
E.nd Function
Private Sub Command1_Click()
D.im x As Integer
X=10
Print Fun1(Fun1(x,(Fun1(x,x-1))),x-1)
E.nd Sub
程序运行后,单击命令按钮,输出结果是
A. ) 10
B. ) 0
C. ) 11
D. ) 21