作业帮 > 综合 > 作业

已知函数sum(k,n)=1^k+2^k+3^k…+n^k.计算当k=2,n=5时的结果.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/18 01:53:49
已知函数sum(k,n)=1^k+2^k+3^k…+n^k.计算当k=2,n=5时的结果.
Private Function Power(a As Integer,b As Integer) As Long
Dim i As Integer,t As Long
t = 1
For i = 1 To a
#####[1]##### '第1空
Next i
#####[2]##### '第2空
End Function
Private Function Sum(k As Integer,n As Integer) As Long
Dim i As Integer,s As Integer
For i = 1 To n
s = s + Power(#####[3]##### ) '第3空
Next i
Sum = s
End Function
Private Sub Form_Click()
Dim k As Integer,n As Integer,s As Long
k = 2
n = 5
s=#####[4]##### '第4空
Print s
End Sub
第1空:
t = t * b
第2空:
Power = t
第3空:
k,i
第4空:
Sum(k,n)