下面程序的功能是使用函数过程求s=
的值。
Private Sub Command1_Click()
Dim m%, n%, p%, s#
m=val(InputBox(“请输入m=”))
n=val(InputBox(“请输入n=”))
p=val(InputBox(“请输入p=”))
s=(1)____
print s
End Sub
Private Function f(ByVal x%) As Long
Dim k As Integer, s As Long
s=0
For k =1 To x
s=(2)____
Next k
(3)____End Function
下面程序的功能是使用函数过程求s
（1）(f(m) * f(n)) / f(p)（2）s + k（3）f=s 或 return s
