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

已知函数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

收藏：
0
点赞数：
0
评论数：
0
1个回答

第1空：

t = t * b

第2空:

Power = t

第3空：

k,i

第4空：

Sum(k,n)

点赞数：
0
评论数：
0
相关问题
关注公众号
一起学习，一起涨知识