首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面的程序段: x=InputBox(“请输入一个整数”) ReDim a(x) For k=x To 0 Step-1 a(k)=k Next k 一般,在这段程序之前应先进行数组a的定义。下面定义语句中正确的是
设有下面的程序段: x=InputBox(“请输入一个整数”) ReDim a(x) For k=x To 0 Step-1 a(k)=k Next k 一般,在这段程序之前应先进行数组a的定义。下面定义语句中正确的是
admin
2019-06-11
51
问题
设有下面的程序段:
x=InputBox(“请输入一个整数”)
ReDim a(x)
For k=x To 0 Step-1
a(k)=k
Next k
一般,在这段程序之前应先进行数组a的定义。下面定义语句中正确的是
选项
A、Dim a(100)As Integer
B、Dim a() As Integer
C、Dim a As Integer
D、Dim a(0 To 100)As Integer
答案
B
解析
动态数组以变量作为下标值,在程序运行过程中完成定义,通,常分为两步;首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略),然后在过程中随时用ReDim语句可以重定义变量作为下标的数组,重定义后原数组的所有元素值被清空。
转载请注明原文地址:https://kaotiyun.com/show/jNUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()Fori=3To1Step-1Sum=0Fori=1ToiSum=Sum+i*iNextNextPrintSum
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10ThenExitDoElsex=x+3EndIfLoopU
为了实现对象的自动拖放,应该设置该对象的一个属性。下面设置中正确的是
有下面事件过程:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenForm1.PSet(X,Y)’
将窗体的KeyPreview属性设为True,然后编写如下程序:PrivateSubFormKeyDown(KeyCodePrivateSubForm_KeyPress(KeyAsciiAsInteger,ShiftAsIntege
设有如下声明语句OptionBase1Dimart(2,-1To5)AsInteger则数组art中数组元素的个数是
设有如下数组定义语句:Dima(-1To4,3)AsInteger以下叙述中正确的是
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是
产生100以内(不含100)2位随机整数的VisualBasic表达式是
设有以下定义语句:PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面语句中正确的是
随机试题
ThequestionofhowAmericansspentand,crucially,savedmoneyoverthepasttwoyearsloomslargeovertheeconomytoday.Ins
与前车发生追尾碰撞时,要将双手迅速置于脑后合并护住头后部。
任免制度是( )称。
乳牙患龋的好发牙位是
“寸幅之地具千里之势”描述的是()。
教育学史上第一个正式提出并把教育起源问题作为一个学术问题来认识的是()
某公司的网络地址为192.168.1.0,要划分成5个子网,每个子网最多20台主机,则适用的子网掩码是(27)。
Weoftenhearemployersandbusinessleaderslamenttheunfortunategapbetweenwhatstudentslearnincollegeandwhattheyar
DearGuests,Wewouldliketoreducetheimpactsthiseventhasontheenvironmenttoaminimum(最小值),thereforewewouldl
Itisallverywelltoblametrafficjams,thecostofpetrolandthequickpaceofmodernlife,butmannersontheroadsarebe
最新回复
(
0
)