首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click()
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click()
admin
2020-04-18
39
问题
窗体上有Command1、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
运行程序时,单击Command1后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是( )。
选项
A、5
B、6
C、10
D、11
答案
B
解析
程序中Option Base 0表示指定数组的下标默认下界为0。BeDim语句用来重新定义动态数组,按定义的上下界重新分配存储单元。在一个程序中,可以多次用ReDim语句定义同一个数组,随时修改数组中元素的个数。程序中先执行BeDim a(10),然后执行了BeDim a(5),因此数组a的下界为0,上界为5,共有6个元素。
转载请注明原文地址:https://kaotiyun.com/show/FSTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是( )。
设有下面程序代码:OptionBase1PrivateSubCommand1_Click()Dimx(6)a=Array(4,2,5,1,6,3)b=Array(64,24,98,27,
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("请输入一个整数")) fun(x)EndSubPrivate
已知变量x、y为整数型,且x=4,y=12,s为字符串型,且s=a,LblOk为标签控件,下列赋值语句不合法的是()。
下面有关标准模块的叙述中,错误的是()。
以下关于列表框控件的叙述中,错误的是
窗体上有一个名称为Command1的命令按钮,其事件过程如下:PrivateSubCommand1_Click()x="VisualBasicProgramming"a=Right(x,11)b=Mid(x,7,
设有如下的用户定义类型:TypeStudentNumberAsString:NameAsString:AgeAsIntegerEndType则以下正确引用该类型成员的代码是
假定建立了一个名为Commandl的命令按钮数组,则以下说法中错误的是
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是( )。
随机试题
武汉市人民政府办公厅转发市政府信息公开联席会议办公室关于武汉市政府机关公文类信息公开审核办法的通知武办
[A]Payeveryonefairly[B]Raisepart-timers’pay[C]Stopignoringpart-timers[D]Starttolookatyourstaff
在微机中,应用最普遍的字符编码是________________。
在轻度感染的肉芽创面上也能成活的是
A.体外冲击波碎石B.膀胱切开取石C.膀胱镜机械碎石D.中药排石E.自行排石男性,67岁,B超发现膀胱内结石(直径1.5cm),合并膀胱憩室。适用何种治疗
某男,60岁,咳喘胸满,但坐不得卧,喉间痰鸣如拽锯,咯痰黏腻难出,舌苔厚浊,脉象滑实。治疗方剂宜首选()
根据《建设工程安全生产条例》,施工单位的主要负责人、项目负责人有前款违法行为,自刑罚执行完毕或者受处分之日起(),不得担任任何施工单位的主要负责人、项目负责人。
文物的出境入境管理规定是怎样的?
2014年,中国进出口增速比全球贸易增速高出2.7个百分点,出口占全球份额为12.7%,比2013年提高0.6个百分点。全球第一货物贸易大国地位进一步巩固。进出口市场结构更趋平衡。对发达国家进出口保持稳定,2014年对欧盟和美国进出口分别增长9.9%和6
WhatDoesYourSecondIdentityTellaboutYou?Weliveinthedigitalage,moreandmorepeoplehaveinternetaccess,million
最新回复
(
0
)