题目内容

下列程序运行后的输出结果是（）。 Private Sub Command1_Click() Dim a(10) Dim i As Integer For i = 1 To 10 a(i) = i ^ 2 Next i Print a(i - 1) End Sub

A. 99
B. 101
C. 100
D. 98

查看答案

搜索结果不匹配？点我反馈

更多问题

在窗体上添加一个命令按钮（其Caption属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click() Dim a(100) As Integer Dim i As Integer, j As Integer For i = 1 To 10 j = i * i a(j) = j Next i Print a(36); End Sub程序运行后，输出的结果是（ ) 。

A. 36
B. 6
C. 0
D. 出错信息

下列程序的输出结果是（）。 Private Sub Command1_Click() Dim ww() Const tt = 6 ReDim ww(tt) As Integer For i = 1 To tt ww(i) = i * i Next i Print ww(i) End Sub

A. 49
B. 36
C. 出错
D. 12

下列代码执行的结果是（）。 Private Sub Form_Click() Dim a(5) For i = 1 To 5 a(i) = i + 2 Next i Print a(4) End Sub

A. 6
B. 8
C. 24
D. 2

假设定义了一个数组arr(1 to 5, 1 to 10)，则UBound(arr, 2)的值是（）。

A. 10
B. 15
C. 5
D. 1