窗体上有Commandl、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Commandl_Click() m=Input

admin2013-11-29  20

问题 窗体上有Commandl、Command2两个命令按钮。现编写以下程序:
  Option Base 0
  Dim a()As Integer,m As Integer
  Private Sub Commandl_Click()
    m=InputBox(“请输入一个正整数”)
    ReDim a(m)
    End Sub
    Private Sub Command2_Click()
    m:InputBox(“请输入一个正整数”)
    ReDim a(m)
    End Sub
    运行程序时,单击Commandl后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是(     )。

选项 A、5
B、6
C、10
D、11

答案B

解析 程序中Option Base 0表示指定数组的下标默认下界为0。ReDim语句用来重新定义动态数组,按定义的上下界重新分配存储单元。在一个程序中,可以多次用Re-Dim语句定义同一个数组,随时修改数组中元素的个数。程序中先执行ReDim a(10),然后执行了ReDim a(5),因此数组a的下界为0,上界为5,共有6个元索。
转载请注明原文地址:https://kaotiyun.com/show/UPQp777K
0

最新回复(0)