首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码: Private Sub Command1_Cliek() Dim n()As integer Dim a,bAs Integer a=InputBox(“Enter the f
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码: Private Sub Command1_Cliek() Dim n()As integer Dim a,bAs Integer a=InputBox(“Enter the f
admin
2015-12-09
82
问题
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:
Private Sub Command1_Cliek()
Dim n()As integer
Dim a,bAs Integer
a=InputBox(“Enter the first number”)
b=InputBox(“Enter the second number”)
ReDim n(a Tobor k=LBound(n)To UBound(n)
n(k)=k
Print n(k);
Next k
End Sub
程
选项
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,即输出23。
转载请注明原文地址:https://kaotiyun.com/show/HALp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若在Shape控件内以FillStyle属性所指定的图案填充区域,而填充图案的线条颜色由FillColor属性指定,非线条的区域由BackColor属性填充,则应()。
启动VisualBasic后,就意味着要建立一个新()。
表达式"12345"<>"12345"&"ABC"的值是______。
设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为
窗体文件的扩展名是
在窗体上画一个文本框(其Name属性为Text1),编写下列事件过程,运行结果是______。PrivateSubForm_Load()ShowText1.Text="你好!"Text1.SetFocusFori=1To15Sum=S
表达式(7\3+1)*(18\-1)的值是______。
假定在图片框控件Picturel中装入了一个图形,为了在程序运行时清除该图形,则应使用下列哪种方法()。
图像框的()属性,可以自动调整图形的大小以适应图像的尺寸。
一名学生只能住一间宿舍,一间宿舍可住多名学生,则实体“宿舍”与实体“学生”的联系属于______________的联系。
随机试题
A.湿法制粒压片法B.干法制粒压片法C.半干式颗粒压片法D.粉末直接压片法E.结晶直接压片法将药物和辅料的粉末混合均匀、压缩成大片状或板状后,粉碎成所需大小颗粒后压片。该方法是
下列选项中,只有实质细胞而没有间质的恶性肿瘤是
充分发挥工程价格作用的主要障碍是()。
乙公司于2011年末购入一台设备并投入企业管理部门使用,入账价值为463500元,预计使用年限为5年,预计净残值为13500元.自2012年1月1日起按年限平均法计提折旧。2013年初,由于技术进步等原因,公司将该设备的折旧方法改为年数总和法,预计剩
企业对于其拥有或控制的无形资产,均应当在每期期末对其进行减值测试。()
根据下列资料。回答下列问题。2015年2月,我国快递业务量完成8.2亿件,同比增长18.7%;业务收入完成136.0亿元,同比增长22.5%。消费者对快递业务进行的申诉中,有效申诉(确定企业责任的)占总申诉量的97.6%,为消费者挽回经济损失229.8万
1913,1616,1319,1022,()
我国公安机关工作的宗旨的具体体现是全心全意为人民服务。()
下图是Posner(1990)的一个经典实验的结果,纵坐标为反应时(毫秒),横坐标为字母间隔(秒),请读图并说明:字母间隔(秒)反应时间是字母间隔的函数该研究结果证明或修正了什么理论?
Decidewhichofthechoicesgivenbelowwouldbestcompletethepassageifinsertedinthecorrespondingblanks.Itisallv
最新回复
(
0
)