首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m
窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m
admin
2016-08-24
44
问题
窗体上有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。ReDim语句用来重新定义动态数组,按定义的上下界重新分配存储单元。在一个程序中,町以多次用ReDim语句定义同一个数组,随时修改数组中元素的个数。程序中先执行ReDim a(10),然后执行了ReDim a(5),因此数组a的下界为0,上界为5,共有6个元素。
转载请注明原文地址:https://kaotiyun.com/show/kYLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Detetime是Data类型的变量,以下赋值语句中错误的是()。
下面程序运行结果是()。PrivateSubForm_Click() DimxAsSingle,yAsSingle x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
在VisualBasic的立即窗口内输入以下语句:X=97<CR>?Chr$(X)<CR>在窗口中显示的结果是______。
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() CommonDialog1.Flags=vbOFNHideReadOnly
假定在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNuinAsString*20EndType要求在执行事件过程Command1_Click时,在顺序文
下面程序运行后,窗体中显示______。PrivateSubCommand1_Click)() a$="*":b$="$" Fork=1To3 X$=String$(Len(a$)+k,b$)
表达式Str(Len"123’))+Str(77.7)的值是()。
对变量名说法不正确的是()。
在运行阶段,要在文本框Text1获得焦点时选中文本框中的所有内容,则对应的事件过程是()。
随机试题
InordertoholdanoutstandingOlympicGames,theBeijingOrganizingCommitteeissuesthisCallforExpressionofInterestin
某网络综艺节目供应商根据受众每天上网观看和收听节日的时间进行市场细分。这种细分市场的变量是()
某男,24岁。头痛身痛1天,鼻塞,喷嚏时作,恶寒重,发热轻,舌淡红,苔薄白,脉浮。为
已知某项目现金流量表见表,若ic=10%,则该项目净现值为()万元。
()是指采用一种或多种传播手段,使大量主机感染bot程序,从而在控制者和被感染主机之间形成一个可进行一对多控制的网络。
教师要崇尚科学精神,树立终身学习理念,拓宽知识视野,更新知识结构。潜心钻研业务,用于探索创新,不断提高专业素养和教育教学水平。这说明教师要树立()职业道德。
与依从相比,认同更深入一层,它不受外界压力控制,行为具有一定的()。
下列关于关系数据库语言SQL的说法不正确的是()。
下列有关Internet的叙述中,错误的是_________。
Withtheprospectofcoalandpetroleumsuppliesbeingdepletedandwithairpollutionbecominganincreasingconcern,themajor
最新回复
(
0
)