【简答题】
下列程序段的运行结果是[填空] 。
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
【简答题】
已知函数 。下面是实现计算该函数的程序,请填空完成以下程序。
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
【单选题】
设有如下程序:
Option Base 0
Private Sub Form_Click()
??? Dim a
??? Dim i As Integer
??? a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
??? For i = 0 To 3
??????? Print a(5 - i);
??? Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是?