maolitou
幼苗
共回答了27个问题采纳率:88.9% 举报
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 '这里的a值是2,从k获取的
t = b * t '第1空 '(3)第一次 b*t=5*1=5;第二次=5*5=25
Next i
Power = t '第2空 ‘(4)t=25,然后把值传回,继续步骤(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(k, n) '(2)s=0,然后把k和n的值传送到power的function
Next i ’(5)s=25,因为n=5所以要循环再做多4次。所以25+25+25+25+25=125
Sum = s
End Function
Private Sub Form_Click()
Dim k As Integer, n As Integer, s As Long
k = 2
n = 5
s = Sum(k, n) '(1)这里k=2,n=5,然后把k和n的值传送到sum的function
Print s
End Su
1年前
4