Question

求一道VB题目的详解

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下程序：
Private Sub Command1_Click( )
a=0
For i = 1 To 3
Call S (i,b)
a=a+b
Next i
Text1.Text=Str(a)
End Sub

Sub S(x,y)
y=1
For i =1 To x
y=y * i
Next i
End Sub
程序运行后，单击命令按钮，在文本框中显示的是

求详细过程！！

Answer 1

S自定义函数中，初始y一直被赋值1，执行for循环中
当i=1时y=y*i=1*1=1；当i=2时y=y*i=1*2=2；
当i=3时y=y*i=2*3=6；当i=4时y=y*i=6*4=24。。。。。
因此S函数的意义就是求1到x的乘积，将这个乘积赋值给y
当按钮按下，运行主程序，执行for循环
当i=1时S(x,y)=S(i,b)=S(1,b)，由上分析，可知b=1，a=a+b=0+1=1；
当i=2时S(x,y)=S(i,b)=S(2,b)，由上分析，可知b=2，a=a+b=1+2=3；
当i=3时S(x,y)=S(i,b)=S(3,b)，由上分析，可知b=6，a=a+b=3+6=9；
因此最终显示a的字符串形式，也就是9的字符串形式，还是9
望采纳。。。。。