首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上:有Commandl、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,mAs Integer Private Sub Cortmaandl Click() m=InputBo
窗体上:有Commandl、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,mAs Integer Private Sub Cortmaandl Click() m=InputBo
admin
2013-10-16
59
问题
窗体上:有Commandl、Command2两个命令按钮。现编写以下程序:
Option Base 0 Dim
a()As Integer,mAs Integer
Private Sub Cortmaandl Click()
m=InputBox(”请输入一个正整数”)
ReDim a(m)
End Sub
Private Sub Command2_Click()
m=InputBox(”请输入一个正整数”)
ReDim a(m)
End Sub
运行程序时,单击Commandl后输入整数10,再单击Command2后输入整数5,则数组a 中元素的个数是
选项
A、5
B、6
C、10
D、1 1
答案
B
解析
本题考查的考点是有关动态数组的。动态数组以变量作为下标值,在程序运行过程中完成定义,通常分为两步:首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略),然后在过程中随时用ReDim语句可以重定义变量作为下标的数组,重定义后原数组的所有元素值被清空。本题中由于数组下标从0开始,所以单击Commandl后输入10,数组被重定义成了11个元素;然后单击Command2输入5,数组又被重定义成了6个元素,所以最后数组中有6个元素。
转载请注明原文地址:https://kaotiyun.com/show/8FQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序用于判断一个整数是否为质数,试将程序补充完整。PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入")t=Int(Sqr(n))i=2flag=0Whi
假定一个文本框的Name属性为Text1,为了在该文本框中显示“Hello!”,所使用的语句为【】。
以下叙述中错误的是______。
下面关于标准模块的叙述不正确的是______。
在考生文件夹中有一个工程文件execise107.vbp及窗体文件execise107.frm。在名为Form1的窗体上已经绘制出所有控件,如下图所示。在运行时,如果单击Move按钮,则窗体上的汽车图标每0.1秒向右移动一次(初始状态下不移动);如果单击
在窗体上绘制两个文本框,名称分别为Text1和Text2。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,若在Text1中每输入一个字符,则显示输入的内容,同时在Text2中显示一个“*”。若在Text2中每输入一个字符,则显示—今“*”,如下图
在名为From1的窗体上绘制一个名为Drive1的DriveListBox控件,一个名为Dir1的DirListBox控件和一个名为File1的FileListBox控件。编写适当的事件过程,使程序运行时,可以对系统中的文件进行浏览;当双击File1中的
下列叙述中错误的是()。
为了在运行时把d:\pic文件夹下的图形文件a.JPg装入图片框Picturel,所使用的语句为【】。
随机试题
治疗原发性血小板减少性紫癜的有效方法是
患者,女性,73岁,上下颌牙列缺失15年。曾进行过3次全口义齿修复。牙槽嵴极度低平,黏膜松软,旧义齿固位差,黏膜压痛。为了减轻牙槽嵴负担,正确的措施是
支气管扩张患者一天中咳嗽、咳痰最重的时间是
给水预处理方法中化学氧化法预处理技术主要有()。
根据增值税法律制度的规定,下列各项中,属于增值税征税范围的有()。
人民警察离休、退休的,其警衔()。
以下各项中可能成为行政主体的是()。
手表定律指一个人拥有两只走时不一致的手表时反而会失去判定准确时间的信心,用以比喻同时面对几种不同的工作目标或价值观念等时,人的工作和生活可能会陷入混乱。下列不属于手表定律的是()。
在数据库的三级模式中,可以有任意多个
A、Thesenetworksdonothavehugepotential.B、Mostconnectionsbetweenpeoplecannotbeseen.C、Peopledonotknowhowsocialn
最新回复
(
0
)