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

admin2019-03-14  29

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

最新回复(0)