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

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

admin2015-09-23  58
问题 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：
Option Base 1
Dim arr() As Integer
Private Sub Command1_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
        arr(i, j) = i + j
    Next j
  Next i
  ReDim Preserve arr(4, 4)
  For j = 3 To 4
      arr(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、程序出错
答案C
解析 动态数组的定义通常分为两步：首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组（括号不能省略），然后在过程中用ReDim语句定义带下标的数组。"Option Base 1"语句表示数组下标从1开始，程序开头定义一个数组arr，在Command1_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/uQLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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