填空题

下列程序的输出结果为______。
Private Sub Command1_Click()
Dim a(5)
For i=LBound(a)To UBound(a)
a(i)=ii+2i+1
Next i
Print a(LBound(a))
End Sub

【参考答案】

A

<上一题目录下一题>

热门试题

填空题

下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素。完成下列程序。 Private Sub Backward(a()) Dim i As Integer, Tmp As Integer For i=1 To 5 Tmp=a(i) ______ ______ Next i End Sub

填空题

以下程序的目的是将多维数组a(1 To m, 1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中，完成该程序。 Option Base 1 Private Sub Command1_Click(Index As Integer) Dim a(1 To 20, 1 To 10) Dim b() ReDim______ For i=1 To 20 For j=1 To 10 a(i，j)=i术j Next j Next i Tran a, 20 , 10 b End Sub Sub Tran(a(), m, n, b()) Dim i As Integer For i=1 To m For j=1 To n ______=a(i，j) Next j Next i End Sub

相关试题