已知函数 。下面是实现计算该函数的程序,请填空完成以下程序。
Private Sub Command1_Click()
Dim k As Integer, i As Integer, s As Long
n = 5 : k = 1
For i = 1 To n
s = s +[填空]
Next i
Print s
End Sub
Function pow(a As Integer, b As Integer) As Long
Dim i As Integer, t As Long
t = 1
For i = 1 To a
[填空]
Next i
pow = t
End Function