UC知道VB填空，急？？？？
来源：百度知道 编辑：UC知道 时间：2024/05/19 20:25:37
option explicit
private Sub Command1_Click()
dim i as integer,j aas integer
dim k as integer
i=10
j=4
k=funk(i,j)
print i,j.k
end sub
private function funk(ByVal A As integer,B as integer)as integer
A=A+B
B=B-2
If B=0 Or B=1 Then
Funk=1
Else
Funk=A+Funk(A,B)
End if
End function
能给出详细的说明过程吗？？问运行后单击COMMAND1后,i,j,k的值分别是多少？
private Sub Command1_Click()
dim i as integer,j aas integer
dim k as integer
i=10
j=4
k=funk(i,j)
print i,j.k
end sub
private function funk(ByVal A As integer,B as integer)as integer
A=A+B
B=B-2
If B=0 Or B=1 Then
Funk=1
Else
Funk=A+Funk(A,B)
End if
End function
能给出详细的说明过程吗？？问运行后单击COMMAND1后,i,j,k的值分别是多少？
Fuck()是一个递归函数么！进入函数时：A=10;B=4;
即求Fuck(10,4);
A=A+B 用A+B给A赋值；A=14,B=4;
B=B-2 用B-2给B赋值：A=14;B=2;
If B=0 Or B=1 Then/*如果B=0或B=1直接返回函数值为1*/
Funk=1
Else
Funk=A+Funk(A,B)/*如果B既不等于0也不等于1，递归调用公式：Funk=A+Funk(A,B)，Fuck=14+Fcuk（14，2）*/
求：Fcuk（14，2）时，按照上面的步骤，则易得Fcuk(14,2)=1；
故;Fuck(10,4)=14+1=15;
打印:16 0 15；