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

admin2015-09-23  30

问题 在窗体上画一个名称为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
0

最新回复(0)