2. 计算机
  3. 有以下程序： Option Base 1 Dim arr()As Integer Private Sub Form Click() Dim i As Integer,j As Integer ReDim arr(3

有以下程序： Option Base 1 Dim arr()As Integer Private Sub Form Click() Dim i As Integer,j As Integer ReDim arr(3

admin2009-03-16  39
问题 有以下程序：    Option Base 1    Dim arr()As Integer    Private Sub Form Click()       Dim i As Integer,j As Integer       ReDim arr(3，2)       For i＝1 To 3         For j＝1 To 2            arr(i,j)＝i*2+j         Next j       Next i       ReDim Preserve arr(3,4)       For j＝3 To 4         arr(3,j)＝j+9       Next j       Print arr(3，2)；arr(3，4)    End Sub  程序运行后，单击窗体，输出结果为______。
选项 A、813
B、013
C、712
D、00
答案A
解析 ReDim语句的功能是为动态数组变量重新分配存储空间。而Preserve的功能是当改变原有数组最末维的大小时，使用此关键字可以保持数组中原来的数据。从题目可以看出，第一个For循环是为3行2列的数组赋值，而第二个For循环是为第3行的第3、4列赋值。而arr(3,2)＝i*2+j＝3*2+2＝8，arr(3,4)＝j+9＝4+9＝13，故输出结果为8、13。
转载请注明原文地址:https://www.kaotiyun.com/show/Tk1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)