下面程序的功能是使用函数过程求s=的值。Private Sub Command1_Click()Dim m%, n%, p%,

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