2. 计算机
  3. 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序代码： Option Base 1 Dim arr()As Integer Private Sub Commandl_Click() Dim i As Inte

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序代码： Option Base 1 Dim arr()As Integer Private Sub Commandl_Click() Dim i As Inte

admin2019-06-20  70
问题 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序代码：
    Option Base 1
    Dim arr()As Integer
    Private Sub Commandl_Click()
    Dim i As Integer，j As Integer
    Dim S As Integer
    ReDim arr(4．2)
    S=0
    For i=1 To 3
    For j=1 To 2
    art(i，j)=i+j
    Next j
    Next i
    ReDim Preserve art(4，4)
    For j=3 To 4
    art(3，j)=j+10
    Next j
    For i=1 To 4
    S=S+arr(i，i)
    Next i
    Print s
    End Sub
    程序运行过程中，当单击Command1时，输出结果为(    )。
选项 A、0
B、18
C、19
D、程序出错
答案A
解析 动态数组的定义通常分为两步：首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略)，然后在过程中用ReDim语句定义带下标的数组。“Option Base 1”语句表示数组下标从1开始，程序开头定义一个数组arr，在Commandl_Click过程中，使用ReDim重新定义数组的大小，双重For循环为数组元素赋值，arr(1，1)=2；arr(1，2)=3；arr(2，1)=3；arr(2，2)=4；arr(3，1)=4；arr(3，2)=5。语句“ReDim Preserve arr(4，4)”表示重新分配数组时，不清除数组中原来的数据。接下来的For语句中，循环变量j从3执行到4，arr(3，3)=3+10=13;arr(3，4)=4+10=14。最后一个For循环，循环变量i从1开始执行到4结束，每次累加数组元素的值，即s=arr(1，1)+arr(2，2)+arr(3，3)+arr(4，4)=2+4+13+0=19。故C选项正确。
转载请注明原文地址:https://kaotiyun.com/show/W5Up777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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