首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim Private Sub Command2_Click() a()As Integer,m As Integer m=InputBox(“请输入一个
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim Private Sub Command2_Click() a()As Integer,m As Integer m=InputBox(“请输入一个
admin
2019-03-08
49
问题
窗体上有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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimsAsString,iAsIntegerDimnAsIntegers=InputB
如果窗体模块A中有一个过程:PrivateSubProc()……EndSub则下面叙述中错误的是()。
下列叙述中,正确的是()。
在运行时,如果按Tab键跳过了一个可以获得焦点的控件(如文本框),其原因可能是()。
为了改变单选按钮的选取状态,可以改变该控件一个属性的值,这个属性是
在窗体上画一个名称为Command1的命令按钮,一个名称为Text1的文本框数组(含4个文本框,下标从0开始),然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntege
在窗体上画2个名称分别为Label1和Label2的标签,然后编写如下程序代码:SubS(LAsLabel,ByValaAsInteger)L.Caption="1234"a=a*aEndSubPriv
在窗体上画2个文本框(名称分别为Text1和Text2),一个命令按钮(名称为Command1)。并定义以下记录类型和变量:PrivateTypeTeacherIDAsIntegerNameAsString*10En
(1)在名称为Form1,标题为“图片”的窗体上添加1个名称为Image1的图像框。其高为2500,宽为2000。请通过属性窗口设置适当属性,将考生文件夹下的图片文件pic1.jpg插入图像框,并使图片自动适应图像框的大小(如图所示)。注意:存盘
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是( )。
随机试题
路德维希咽峡炎疖
中医诊断的三大基本原则是
李某,女,27岁,有反复发作尿频、尿急、尿痛史,肾区叩击痛(+),下列保健指导对其不适合的是
下列哪一选项属于所有权的继受取得?()
根据《票据法》规定,票据的相对应记载事项可以记载,也可以不记载。()
下面说法正确的是()。
《宋刑统》在内容上沿袭()。
设有4阶方阵A满足条件|3E+A|=0,AAT=2E,|A|<0,其中E是4阶单位阵.求方阵A的伴随矩阵A*的一个特征值。
Whatdoesthemanwant?
Lookatthemessagebelow.YouwillhearawomancallingtoinformofdetailsofadeliveryDate:September3rdFrom:Mrs.Kevi
最新回复
(
0
)