首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
2016-09-19
58
问题
窗体上有Command1、Command2两个命令按钮。现编写以下程序:
Option Base 0 Dim Private Sub Command2_Click()
a()As Integer,m As Integer m=InputBox("请输入一个正整数")
Private Sub Command1_Click() ReDim a(m)
m=InputBox("请输入一个正整数")End Sub
ReDim a(m)
End Sub
运行程序时,单击Command1后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是
选项
A、5
B、6
C、10
D、11
答案
B
解析
本题考查的考点是有关动态数组的。动态数组以变量作为下标值,在程序运行过程中完成定义,通常分为两步:首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略),然后在过程中随时用ReDim语句可以重定义变量作为下标的数组,重定义后原数组的所有元素值被清空。本题中由于数组下标从0开始,所以单击Command1后输入10,数组被重定义成了11个元素;然后单击Command2输入5,数组又被重定义成了6个元素,所以最后数组中有6个元素。
转载请注明原文地址:https://kaotiyun.com/show/SpLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为______。
面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。PrivateSubForm_Click() DimiAsInteger,jAsInteger j=0 j=43
若要获得组合框中输入的数据,可使用的属性是
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构如图。要求程序执行时单击“保存”菜单项,则把其标题显示在Text1文本框中,下面可实现此功能的事件过程是()。
下列有关过程的叙述中错误的是()。
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为ComTest1。设窗体Form1标题为“MyForm1”,双击控件数组中的第3个按钮,打开代码编辑器,编写如下代码:PrivaeSubComTest1_Click(IndexAs
(1)在窗体上绘制一个名称为Textl的文本框,然后建立两个主菜单,标题分别为“系别”和“帮助”,名称分别为vbMenu和vbHelp,其中“系别”菜单包括“工商管理”、“信息科学与工程”、“机械工程与自动化”3个子菜单,名称分别为vbMenul、vbMe
随机试题
以下不属于新时期德育发展的新主题的是()。
北洋政府迫于五四运动的压力罢免的亲日派官僚是()
男,25岁,1年来牙龈逐渐肿大。检查发现:全口牙龈乳头及龈缘肿,上下前牙明显。龈乳头球状、突起,前牙龈呈分叶状质地坚硬,略有弹性,呈粉红色,不出血,无疼痛,龈沟加深,有菌斑,无分泌,上中切牙部分冠折断,已作根管治疗。在治疗中,首先采取的措施是(
肺炎球菌在肺泡内繁殖,通过哪一途径扩散而致肺段或肺叶实变
甲对于乙享有100万元的债权,乙对于丙享有100万元的债权。因到期乙无力偿还甲的债权,又不及时行使对于丙的债权,甲提起代位权诉讼。
《安全生产法》中“安全生产监督管理”的“监督”是广义的监督,其所构成的广义安全生产监督体制内容包括______。
卖方l~2月的交货能否安全收回货款()。根据《UCP500》规定。关于卖方4月的交货说法正确的是()。
市场类型划分的主要依据有()。
根据以下资料.回答下列问题。2011年1—8月份,全国规模以上工业企业实现利润32281亿元,同比增长28.2%。在规模以上工业企业中,国有及国有控股企业实现利润10175亿元,同比增长20.6%;集体企业实现利润519亿元,同比增长3
下列关于紧凑技术的叙述中,哪一个是不正确的?______。
最新回复
(
0
)