首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
26
问题
窗体上有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://jikaoti.com/ti/Qpm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下叙述中错误的是()。
有以下程序代码:PrivateSubCommand1_Click()Printfun(10),fun(5)EndSubPrivateFunctionfun(nAsInteger)AsIntegerStati
把一个名称为mnuStyle的菜单项设置为不可用的语句是
当窗体上有多个控件时,为了在程序运行后使得焦点位于某个控件上,应对该控件进行的设置是
设二叉树如下:则后序序列为
以下叙述中,错误的是()。
设窗体上有一个List1列表框,其中的列表项如图所示。又编写了下面的程序代码:PrivateSubList1_Click()n=List1.ListIndexList1.RemoveItemnm=nIfn=List1.ListCoun
在窗体上画2个名称分别为Label1和Label2的标签,然后编写如下程序代码:SubS(LAsLabel,ByValaAsInteger)L.Caption="1234"a=a*aEndSubPriv
(1)在名称为Form1、标题为“菜单”的窗体上,设计满足如卜要求的菜单。程序运行后的窗体如图所示,存盘时,将文件保存至考生文件央下,且工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。(2)在名称为Form1的窗
下面不属于需求分析阶段任务的是( )。
随机试题
企业创新的主要内容是_____。
致龋能力最强的是
一般来说,认知风格中场依存性者更感兴趣的学科是()。
世界上现存最早的敞肩拱桥是()。
下列有关安全知识的叙述中,错误的是()。
简述金融中介机构存在的经济学理由。[对外经济贸易大学2017研]
随着生产日渐得到恢复并且迅速发展,出现了多年未有的稳定富裕的景象。史称:“京师之钱累巨万,贯朽而不可校。太仓之粟陈陈相因,充溢露积于外,至腐败不可食。”(《汉书.食货志》)人民的生活水平得到了很大程度的提高,汉王朝的物质基础大大增强。文景之治为后来汉武帝征
阅读以下说明,回答问题1至问题4,将解答填入答题纸对应的解答栏内。【说明】某公司网络拓扑结构图如图4-1所示。公司内部的用户使用私有地址段192.168.1.0/24。【问题1】为节省IP地址,在接口地址上均使用30位地址掩码,请补充下表中的空
WearesorrytosaythatMaryisnottheverypersonwhocanbe______witheithermoneyorsecretinformation.
Whichofthefollowingstatementsistrueaccordingtowhatyouhear?
最新回复
(
0
)