【简答题】
已知函数 。下面是实现计算该函数的程序,请填空完成以下程序。
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
【简答题】
下列程序段的运行结果是[填空] 。
Private Sub Form_Click()
Dim a(3) As Long
a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4
j = 1
For i = 3 To 0 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub