首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
2016-08-24
35
问题
窗体上有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/dpJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果在一新建的工程中使用其他工程已设计好的窗体,可以采用()步骤将其添加到当前工程中。
下列程序运行时输出的结果是()。OptionBase1PrivateSubForm_Click() Consta=6 Dimx(a)AsInteger ForI=1toa x
下列程序的执行结果为()。n=0j=1DoUntiln>2 n=n+1 j=j+n*(n+1)LoopPrintn;j
当文本框ScrollBars属性设置了非零值,却没有效果,原因是
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load0ShowText1.Text=""Text2.Text=""Te
在窗体上添加一个文本框,名为text1,然后编写如下的load事件过程,则程序的运行结果是()。PrivateSubForm_Load Text1.Text="" Text1.SetFocus Fork
设Y是整形变量,能判断Y为奇数的表达式是
下列叙述中正确的是()。
表达式Right("Beijing",4)的值是
下列表达式的值为2123的是()。
随机试题
病人蒸蒸汗出,汗液易黏或衣服黄染,面赤烘热,烦躁,口苦,小便色黄,舌苔薄黄,脉象弦数,宜用
下列符合“木曰曲直”生理特点的是
可经垂直感染导致胎儿畸形的病毒
A.大孔吸附树脂B.凝胶过滤法C.硅胶色谱法D.液一液萃取法E.聚酰胺根据分子大小进行分离的是
白云公司如想通过诉讼解决与东风公司之间的纠纷,应如何提出诉讼请求?白云公司如想实现股权质权,需要证明哪些事实?
背景某省重点水利工程项目计划于2009年12月28日开工,由于工程复杂,技术难度高,一般施工队伍难以胜任,业主自行决定采取邀请招标方式。于2009年9月8日向通过资格预审的A、B、C、D、E五家施工企业发出投标邀请书。该五家施工企业均接受了邀请,
有一种病人对新学习的知识能够保存很短的时间,但是对以前的经验却记忆很好,这种知识不能向长时记忆转化的现象可能是哪部分受损引起的?()
StudyAboutDyslexics1.Havingalearningdisorder,dyslexicsare■unableto【T1】_________words【T1】_________
Itisnaturalthatatreewouldgrowbestinaclimatewithplentyofsunlightandrainfall.Itisalsoexpectedthatlittlesun
Menaremuch"smarter"thanwomenwhenitcomestoshopping,accordingtoasurveyof1,000peoplewhichfoundthat42%ofmena
最新回复
(
0
)