问题
单项选择题
有如下程序，输出结果为( )。
Private Sub Form_Activate()
Dim a()
a=Array(1,2,3,4,5)
For i=LBoundta)To UBound(a)
a(i)=i*a(i)
Next i
Print i,LBound(a), UBound(a),a(i)
End Sub
A) 40 4 25
B) 5 0 4 25
C) 不确定
D) 程序出错
答案
参考答案：D
解析： For循环执行完毕后i值将大于UBound(A)，继续引用a(i)必将出现数组越界错误。