首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim Private Sub Command2_Click() a()As Integer,m As Integer m=InputBox(“请输入一个
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim Private Sub Command2_Click() a()As Integer,m As Integer m=InputBox(“请输入一个
admin
2019-03-08
28
问题
窗体上有Command1、Command2两个命令按钮。现编写以下程序:
Option Base 0 Dim Private Sub Command2_Click()
a()As Integer,m As Integer m=InputBox(“请输入一个正整数”)
Private Sub Commandl_lick()ReDim a(m)
m=InputBox(“请输入一个正整数”)End Sub
ReDim a(m)
End Sub
运行程序时,单击Command1后输入整数10,再单击Command
选项
A、5
B、6
C、10
D、1 1
答案
B
解析
本题考查的考点是有关动态数组的。动态数组以变量作为下标值,在程序运行过程中完成定义,通常分为两步:首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略),然后在过程中随时用ReDim语句可以重定义变量作为下标的数组,重定义后原数组的所有元素值被清空。本题中由于数组下标从0开始,所以单击Commandl后输入lO,数组被重定义成了11个元素;然后单击Command2输入5,数组又被重定义成了6个元素,所以最后数组中有6个元素。
转载请注明原文地址:https://kaotiyun.com/show/cYFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框,然后编写以下事件过程:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If_________________Then
有如下程序代码:PrivateSubForm_Click()DimiAsInteger,nAsIntegerFori=0To30i=i+3n=n+1
把一个名称为mnuStyle的菜单项设置为不可用的语句是
设二叉树如下:则后序序列为
面向对象方法中,实现对象的数据和操作结合于统一体中的是
有如下事件过程:PrivateSubForm_Load()ShowDimArr()AsVariantArr=Array(1,3,5,7,9,11,13,15)Callconverse(
设有函数下面不能正确计算y值的是
在窗体上画一个名称为Command1的命令按钮,一个名称为Text1的文本框数组(含4个文本框,下标从0开始),然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntege
在数据库设计中,将E-R图转换成关系数据模型的过程属于
随机试题
土地规划通过对区域内国民经济各部门、各行业用地量的合理分配,解决各部门、各行业土地需求的矛盾,这体现了土地规划的控制作用。()
已知,最强的氧化剂和最强的还原剂分别是()。
建设项目财务预算分三个主要部分:单位工程预算、()、建设项目总预算。
个人贷款的特征有()。[2015年10月真题]
下列属于药膳的有()
机关文书部门对那些必须办理答复的文件,根据承办时限的要求,及时地对文件承办的情况进行督促和检查的环节称()。
甲工厂每天生产的零件数比乙工厂的1.5倍还多40个,乙工厂每天生产的零件数比甲工厂的一半多20个。则两个工厂每天共能生产多少个零件?
20世纪80年代第五代导演崛起之时,导演编剧为剧本反复推敲修改,演员为塑造好形象深入生活实地采风的故事________,《红高粱》《黄土地》《霸王别姬》等在中国乃至世界电影史上留下印记的杰作,就是在创作者殚精竭虑、心无旁骛的努力中诞生的。填入画横线部分最
Everymanisaphilosopher.Everymanhashisownphilosophyoflifeandhisspecialviewoftheuniverse.Moreover,hisphiloso
ThemostcommonlegendaboutthediscoveryofcoffeeisthatithappenedintheninthcenturyA.D.AgoatherderinEthiopiana
最新回复
(
0
)