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

admin2020-08-10  22

问题 窗体上有Command1、Command2两个命令按钮。现编写以下程序:
    Option Base 0
    Dim a(  )As Integer,m As Integer
    Private Sub Command1 Chek(  )
        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。ReDim语句用来重新定义动态数组,按定义的上下界重新分配存储单元。在一个程序中,可以多次用ReDim语句定义同一个数组,随时修改数组中元素的个数。程序中先执行ReDim a(10),然后执行了ReDim a(5),因此数组a的下界为0,上界为5,共有6个元素。
转载请注明原文地址:https://jikaoti.com/ti/l3S0FFFM
0

最新回复(0)