首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Commandl、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m
窗体上有Commandl、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m
admin
2019-08-21
43
问题
窗体上有Commandl、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
运行程序时,单击Commandl后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是( )。
选项
A、5
B、6
C、10
D、11
答案
B
解析
程序中Option Base 0表示指定数组的下标默认下界为0。ReDim语句用来重新定义动态数组,按定义的上下界重新分配存储单元。在一个程序中,可以多次用Re.Dim语句定义同一个数组,随时修改数组中元素的个数。程序中先执行ReDim a(10),然后执行了ReDim a(5),因此数组a的下界为0,上界为5,共有6个元素。
转载请注明原文地址:https://kaotiyun.com/show/KOUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为CD1的通用对话框,一个名称为Text1的文本框,窗体的单击事件过程如下:PrivateSubForm_Click()CD1.DialogTitle="改变颜色":CD1.Color=Form1.BackColorC
下列关于通用对话框CommonDialog1的叙述中,错误的是
窗体上有1个名称为CD1的通用对话框,1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommandl_C1ick()CD1.FileName=""CD1.Filter="AllFiles|*.*|(*
设菜单编辑器中各菜单项的属性设置如下表所示针对上述属性设置,以下叙述中错误的是
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimYAsIntegerEndSub在该工程的标准模块的声明部分有代码:PublicaAsInteger:Priv
定时器的Interval属性的值是一个整数,它表示的是()。
数据库设计中反映用户对数据要求的模式是()。
某图书集团数据库中有关系模式R(书店编号,书籍编号,库存数量,部门编号,部门负责人),其中要求(1)每个书店的每种书籍只在该书店的一个部门销售;(2)每个书店的每个部门只有一个负责人;(3)每个书店的每种书籍只有一个库存数量。则关系模式R最高是()
数据结构主要研究的是数据的逻辑结构、数据的运算和()。
随机试题
无限环境下,细菌种群的增长曲线呈
患者,男,65岁。慢性肺源性心脏病史5年。近日受凉后发热,咳喘加重,面色暗,口唇发绀,呼吸急促,舌红苔黄腻,脉弦滑数。其证型是
下列交易和事项中,不影响“筹资活动产生的现金流量”的有()。
当代教育家苏霍姆林斯基在他曾担任校长的帕夫雷什中学创立了几十个课外兴趣小组供学生选择。这反映了教育必须适应人身心发展的()特点。
(2017·湖北)()是学生在学校获得系统的基础知识、循序渐进地进行学习的主要资源和工具。(易混)
二战后,英国工党政府以《贝弗里奇报告》为蓝本建立了福利国家,随后很多欧美国家纷纷效仿。其中以瑞典为首的北欧四国更是将福利国家的概念演绎到极致。欧洲福利社会的目标之一是普享性,“从摇篮到坟墓”的福利基础建立在企业和个人的高税收之上,给很多企业造成较大的经营压
根据《物权法》的规定,下列表述正确的有
“时术功虽细,年深祸亦成。功穿漏江海,蚕食困蛟鲸。”元稹《蚁》诗的这句话蕴含的辩证法思想是
A、No,thanks.B、Ilikeit.C、No,Iwouldn’t.A
△RSTliesintheXY-planeandpointsRandThave(x,y)coordinates(0,0)and(6,0),respectively.Theareaof△RSTis12.Co
最新回复
(
0
)