首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim n()As Integer:Dim a,b As Integer a=InputBox
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim n()As Integer:Dim a,b As Integer a=InputBox
admin
2017-04-25
38
问题
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
Private Sub Command1_Click()
Dim n()As Integer:Dim a,b As Integer
a=InputBox("Enter the first number")
b:InputBox("Enter the second number")
ReDim n(a To b)
For k=LBound(n)To UBound(n)
n(k)=k
Print n(k);
Next k
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2和3,输出结果为
选项
A、1 2
B、2 3
C、3 4
D、4 5
答案
B
解析
动态数组以变量作为下标值,在程序运行过程中完成定义,通常分为两步:首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略),然后在过程中随时用ReDim语句可以重定义变量作为下标的数组,重定义后原数组的所有元素值被清空。输入2、3之后数组被重新定义成了n(2 To 3),只有两个数组元素,并且n(k)=k,即输出2 3。
转载请注明原文地址:https://kaotiyun.com/show/yQGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果是______。optionbase1privateeommand1_c1ick()DimA(10)DimE(5)Fori
有如下程序:PrivateSubCommand1_Click()DimaAsSingleDimbAsSingle a=5:b=4 CallSub1(a,b)EndSubSub
为了使一个窗体从屏幕消失但仍在内存中,所使用的方法或语句为______。
若要添加CommonDialog控件,则应从“工程”菜单中选定“部件”,在“部件”对话框的“控件”选项卡中选择______,将控件添加到工具箱中。
编写如下程序:PrivateSubCommand1_Click()x="abcd"y="1234"Fori=1To4z=z+Mid(x,i,1)+Left(y,1)
设在窗体上有个文本框,然后编写如下的事件过程。PrivateSubText1_KeyDown(KeyCodeAsIntegef,ShiftAsInteger)ConstAlt=4ConstKey_F2=
以下语句用于打开一个顺序文件Open"C:\MyFile.txt"ForOutPut,但是该语句的一个重要错误是没有
计时器事件之间的间隔通过【】属性设置。
在设计阶段,当双击窗体上的某个控件时,所打开的窗口是
关于变量作用域,下列叙述中错误的是()。
随机试题
洞式渗沟施工时要求采取的措施有()。
下列选项中,用人单位可以单方解除合同的情形包括()。
根据《收购管理办法》的规定,收购要约的有效期一般不得超过的期限是()。
清真寺的教长称为()。
锡的熔点是232℃,那么232℃的锡()。
刑事案件证人出庭作证,应列入司法机关业务经费的有:
价格歧视实质上是一种价格差异,通常指商品或服务的提供者在向不同的接受者提供相同等级、相同质量的商品或服务时,在接受者之间实行不同的销售价格或收费标准。经营者没有正当理由,就同一种商品或者服务,对条件相同的若干买主实行不同的售价,则构成价格歧视行为。根据价格
有形磨损,是指设备在使用或闲置的过程中所发生的实体上的磨损或损失。根据上述定义,下列属于有形磨损的是:
ManypeoplewonderwhysomemenwanttoliveonthemoonItis【C1】______notthekindofplacewheremostmenwouldchoosetoliv
A、Gotosummerschool.B、Takeavacation.C、Stayathome.D、Earnsomemoney.D推断题。男士说他不能只是闲着(sitaround),但又没有现成的工作(jobsavailabl
最新回复
(
0
)