已知函数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
人气:374 ℃ 时间:2019-10-17 08:15:39
解答
第1空:
t = t * b
第2空:
Power = t
第3空:
k,i
第4空:
Sum(k,n)
推荐
- 已知sum(k,n)=1^K+2^k+……+n^k,用函数sum给出定义函数的值
- 2.下面程序用于求,其中n,k从键盘输入,函数power(n,m)用于求,函数sum_power(k,n)用于求f(n,k).请完成
- 用VBA编写一个公共的函数Sum(n)=1 + 1/2!+ 1/3!+ 1/4!+ … + 1/n!,n为整型,函数返回值为双精度型.
- 为什么用函数公式=SUM计算0.5 1 1 1 1 1 1这六个数值结果为3
- 世上本无事,庸人自扰之是什么意思?
- 幻墨如烟这句话是什么意思
- Can I look at this photo?(同义句什么?)
猜你喜欢