在窗体上添加一个命令按钮(其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程序运行后,输出的结果是( ) 。
查看答案
下列程序的输出结果是( )。 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
一个二维数组可以存放一个矩阵。在程序开始有语句Option Base 0,则下面定义的数组中正好可以存放一个4×3矩阵(即只有12个元素)的是( )。
A. Dim a(3, 2)As Integer
B. Dim a(-2 To 0, 2)As Integer
C. Dim a(4, 3)As Integer
Dim a(-1 To -4, -1 To -3)As Integer