设有如下程序: Dim a()As Integer Private Sub Command1_Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a,1)T

admin2009-01-15  31

问题 设有如下程序:    Dim a()As Integer    Private Sub Command1_Click()         n=-5:m=6         ReDim a(n To m)         For i=LBound(a,1)To UBound(a,1)           a(i)=i         Next i         Print a(LBound(a,1));a(UBound(a,1))    End Sub    程序运行后,单击命令按钮,则输出结果是 ______。

选项 A、0  0
B、-5  0
C、-5  6
D、0  6

答案4

解析 ReDim a(n To m)指明动态数组9的下标和上标为-5和6;则LBound(a,1)=-5、UBound(a,1)=6。故Print a(LBound(a,1));a(UBound(a,1))输出a(-5)、a(6)的值。
转载请注明原文地址:https://kaotiyun.com/show/qg2p777K
0

最新回复(0)