首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer, m As Integer Private Sub Command1_Click() m=InputBox("请
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer, m As Integer Private Sub Command1_Click() m=InputBox("请
admin
2018-07-11
46
问题
窗体上有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://kaotiyun.com/show/LKGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimyAsIntegerEndSub在该工程的标准模块的声明部分有代码:PublicaAsInteger
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
设窗体上有一个名称为Timerl的计时器控件,其Interval属性被设置为500,Enabled属性被设置为True;还有一个名称为Text1的文本框和下面的事件过程:PrivateSubTimer1—Timer()StaticxAsL
命令按钮Command1的MouseUp事件过程结构如下:PrivateSubCommand1-MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub
能够将组合框Combol中最后一个数据项删除的语句为
要计算x的平方根并放入变量y,正确的语句是( )。
下面不属于软件需求分析阶段工作的是
设循环队列为Q(1:m),其初始状态为front=rear=m。经过一系列入队与退队运算后,front=30,rear=10。现要在该循环队列中作顺序查找,最坏情况下需要比较的次数为
算法的有穷性是指( )。
随机试题
为了从拉伸截面线串移去对象,当你选择对象时你将需要在按下MB1同时按下:
输出小管和附睾管的上皮均为假复层纤毛柱状上皮。
环糊精包合物制备可采用脂质体制备可采用
甲、乙订立合同,买卖大米50袋、面粉50袋、大豆50袋。后甲交付后,乙发现50袋面粉乙明显受潮霉变,下列说法错误的是()
银行经营管理实践中所探索的目标是在不同经济环境下,探寻影响商业银行价值的主要因素,进而起到改善商业银行在不同历史时期经营管理的作用。()
《学记》提出“学不躐等”“杂施而不孙,则坏乱而不修”,揭示教学中应贯彻()。
领导信箱回应不及时、反映问题得不到解决,请分析原因及解决对策。
世界是丰富多彩的,在社会主义现代化建设新时期,所有制结构的多样性,决定了指导思想必然是多元的。
NoticeofRegularWindowCleaningDate:May10To:AllEmployeesAlloftheoutsidewindowswillbewashedandcleanedduringt
Nowlistentopartofalectureinabiologyclass.Theprofessorisdiscussingthetypesofhabitatsforwildlifefoundinciti
最新回复
(
0
)