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

admin2016-06-30  33

问题 窗体上有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
    运行程序时,单击Command1后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是  (    )。

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

答案B

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

最新回复(0)