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

admin2017-12-14  22

问题 窗体上有Command1、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

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

最新回复(0)