首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m
admin
2017-07-28
59
问题
窗体上有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语句用来重新定义动态数组,按定义的上下界重新分配存储单元。在一个程序中,可以多次用Re—Dim语句定义同一个数组,随时修改数组中元素的个数。程序中先执行ReDim a(10),然后执行了ReDim a(5),因此数组a的下界为0,上界为5,共有6个元素。
转载请注明原文地址:https://kaotiyun.com/show/dRGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了使列表框中的项目分为多列显示,需要设置的属性为()。
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)
在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是__
为了在按下Esc键时执行某个命令按钮的Click事件过过程,需要把该命令按钮的一个属性设置为True,这个属性是
编写如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTypeTemScoreAsIntegerStrNameAsStringEndTypeDimStuden
如果要通过程序代码来一次性删除列表框中所有项目,则应使用的方法是______。
随机试题
患者,女,32岁。反复腰痛、尿频、尿痛3天。尿常规:白细胞30~40个/HP,红细胞20~30个/HP。中段尿培养有细菌生长。肾B超:双侧肾可见与肾锥体分布一致的强回声团,呈放射状排列,见多个小结石。1年前IVP示:双侧肾见多数囊肿和扩张的小管,肾锥体被造
女,48岁,月经不规律1年,现阴道淋漓出血20多天,伴乏力。患者下列哪种情况绝对不能激素替代治疗
下列()不符合汽车库安全疏散规定。
截面尺寸为370mm×740mm的砖柱,计算高度为5m,采用MU10黏土实心砖、M7.5水泥砂浆砌筑。配筋砖砌体的抗压强度设计值fn=3.20N/mm2,体积配筋率ρ=0.250%,则该砖柱的轴心受压承载力与()项数值最为接近。
影响资金等值的因素有()。
企业价格的制定应主要从()来考虑。
Sofarwehavedonealottobuildalow-carboneconomy,butitis________ideal.Wehavetoworkstillharder.
函数f(χ)=χ3-3χ+k只有一个零点,则k的范围为().
Questions8-13Answerthequestionsbelow.ChooseNOMORETHANTWOWORDSfromthepassageforeachanswer.Writeyouranswersin
Mostparents,Isuppose,havehadtheexperienceofreadingabedtimestorytotheirchildren.Andtheymusthave【B1】______howd
最新回复
(
0
)