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

admin2019-03-08  28

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

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

答案B

解析 本题考查的考点是有关动态数组的。动态数组以变量作为下标值,在程序运行过程中完成定义,通常分为两步:首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略),然后在过程中随时用ReDim语句可以重定义变量作为下标的数组,重定义后原数组的所有元素值被清空。本题中由于数组下标从0开始,所以单击Commandl后输入lO,数组被重定义成了11个元素;然后单击Command2输入5,数组又被重定义成了6个元素,所以最后数组中有6个元素。
转载请注明原文地址:https://kaotiyun.com/show/cYFp777K
0

最新回复(0)