首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
31
问题
窗体上有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
解析
本题考查的考点是有关动态数组的。动态数组以变量作为下标值,在程序运行过程中完成定义,通常分为两步:首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略),然后在过程中随时用ReDim语句可以重定义变量作为下标的数组,重定义后原数组的所有元素值被清空。本题中由于数组下标从0开始,所以单击Command1后输入10,数组被重定义成了11个元素;然后单击Command2输入5,数组又被重定义成了6个元素,所以最后数组中有6个元素。
转载请注明原文地址:https://kaotiyun.com/show/8YTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下程序:PrivateSubForm_Click()Dam=InputBox(”请输入一个实数”):P=InStr(num,".")Ifp>0ThenPrintMid(num,P+1
窗体上有名称分别为Text1、Text2的文本框,名称为Commandl的命令按钮。运行程序,在Textl中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommandl_Click()Tex
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString.strLAsIntegertStr=""strL=Len(xStr)i=1
设有如下函数:FunctionDelSpace(chAsString)AsIntegerDimn%,st$,c$st="":n=0Fork=lT0Len(ch)c=Mid
窗体上有一个名称为CDl的通用对话框,一个名称为Commandl的命令按钮,相应的事件过程如下:PrivateSubCommand1_Click()CD1.Filter=”AllFilel*.*|TextFile|*.tx
设程序中有如下数组定义和过程调用语句:Dima(10)AsIntegerCallp(a)如下过程定义中,正确的是
要计算x的平方根并放入变量y,正确的语句是
列表框中被选中的数据项的位置可以通过一个属性获得,这个属性是
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为( )。
随机试题
江泽民指出,加强文化建设,必须()
简述风对植物生长的影响及植物对风的适应。
必需脂肪酸的食物最好来源是
在炸药的爆炸变化过程中,炸药的化学能转变成热能。爆炸变化过程所放出的热量称爆炸热,常用炸药的爆炸热在()kJ/kg。
根据我国《价格法》的规定,应当建立听证会制度,以便在制定价格时征求消费者、经营者和有关方面意见的情形包括( )。
中央银行调控货币供应量的一般性政策工具是()。
某产品滞销或者是因为质量不好,或者是因为价格太高,或者是因为广告促销没有做好;经分析该产品质量很好。那么()。
阅读下面的文言文,完成后面各题。人非上智,其孰无过。过而能知,可以为明;知而能改,可以歧圣①。小过不改,大恶形焉;小善能迁,大善成焉。夫人之过无他,惰慢也,嫉妒也,邪僻也。惰慢则骄,孝敬衰焉;嫉妒则刻,灾害兴焉;邪僻则佚,节义颓焉。是数
根据我国法律关于公民基本权利的规定,下列哪一说法是正确的?()
情感陶冶法(杭州师范大学2013年研)
最新回复
(
0
)