vb习题解答

1.Function F (a As Integer )
b=0
Static c
b=b+1
c=c+1
F=a+b+c
End Function

Private Sub Command1_Click()
Dim a As Integer
a =2
For i=i To 3
Print F(a)
Next i
End Sub
运行上面的顺序，单击命令按钮，输出结果为？？
（要过程）
2.Function fun (Byval num As Long ) As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num \10
Loop
fun=k
End Function

Private sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数“）
n=CLng(n)
r=fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为？
（要过程）

1.

输出：
4
5
6
7
过程：
Dim a As Integer [a = 0 ]
a = 2 [a = 2 ]
For i = i To 3 [For i =0 To 3]
>> [i = 0 ]
>> Print F(a) {{
>> >> [F( 2 )]
>> >> b = 0 [b = 0 ]
>> >> Static c [c =""]
>> >> b = b + 1 [b = 0 + 1 = 1 ]
>> >> c = c + 1 [c = 0 + 1 = 1 ]
>> >> 返回 F = a + b + c [F = 2 + 1 + 1 = 4 ]
>> >> F函数结束
>> ** }} [Print " 4 "]
>> For 一次循环结束=================
>> [i = 1 ]
>> Print F(a) {{
>> >> [F( 2 )]
>> >> b = 0 [b = 0 ]
>> >> Static c [c = 1 ]
>> >> b = b + 1 [b = 0 + 1 = 1 ]
>> >> c = c + 1 [c = 1 + 1 = 2 ]
>> >> 返回 F = a + b + c [F = 2 + 1 + 2 = 5 ]
>> >> F函数结束
>> ** }} [Print " 5 "]