首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
2015-08-28
52
问题
窗体上有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/jmLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
用Close语句可以关闭一个已经用完不再使用的文件,当该语句不带任何参数时,它的功能是
编写如下事件过程:PrivateSubFormKeyDown(KeyCodeAsInteger,ShiftAsInteger)If(ButtonAnd3)=3ThenPrint"AAAA"
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox("请输入a的值")a=Val(A)b
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:PrivateSubCommand1_Click()strText=InputBox("请输入")
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAngKAsInteger
诊断和改正程序中错误的工作通常称为______。
按文件的内容划分有()。
下列程序段的输出结果为()。DimM(5,5),S(5)Fori=1To5S(i)=0Forj=1To5M(i,j)=i+j
下面不属于软件工程的3个要素的是______。
随机试题
淬火是使钢材获得马氏体组织的热处理方法。()
下列辅料在软膏中的作用 A.单硬脂酸甘油酯 B.甘油 C.白凡士林 D.十二烷基硫酸钠 E.对羟基苯甲酸乙酯油性基质
某工程双代号网络计划中,工作N两端节点的最早时间和最迟时间如下图所示,则工作N的自由时差为()。
13,22,33,46,61,()。
Accordingtothedictionarydefinitionof"create",ordinarypeoplearecreativeeveryday.Tocreatemeans"tobringintobein
在兴起于20世纪70年代的世界新闻新秩序之争中。发展中国家有哪些基本主张?(南开大学2010年研)
若x1、x2是方程x2一3x+1=0的两个根,则|x1一x2|=()。
已知α=[1,k,1]T是A-1的特征向量,其中求k及α所对应的A的特征值.
有如下类定义:ClassTest{chara;constcharb;public:Test(charc){a=c;b=c;)//第1行voidf(chara)const{this->a=a;}//第2行voidg(charb){
A、Thecarswerefoundtogiveoutgaseshigherthanstandardlevel.B、Thecompanywascreatingcarswhichwerefriendlytoenvir
最新回复
(
0
)