首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某程序列表框中有许多项,现在用Timer控件控制时间,0.1秒删除一项,直到删完为止,用一滚动条来显示删除的项目,请选择合适的语句,完成此程序( )。 Private Sub Command2_Click() HSeroll1.Min=0 HScro
某程序列表框中有许多项,现在用Timer控件控制时间,0.1秒删除一项,直到删完为止,用一滚动条来显示删除的项目,请选择合适的语句,完成此程序( )。 Private Sub Command2_Click() HSeroll1.Min=0 HScro
admin
2010-11-20
52
问题
某程序列表框中有许多项,现在用Timer控件控制时间,0.1秒删除一项,直到删完为止,用一滚动条来显示删除的项目,请选择合适的语句,完成此程序( )。
Private Sub Command2_Click()
HSeroll1.Min=0
HScroll1.Max=List1.ListCount
HScroll1.Value=0
Timer1.Interval=______
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
If List1.ListCount>0 Then
List1.RemoveItem 0
HScroll1.Value=HSeroll1.Max-List1.ListCount
Else
Timer1.Enabled=______
MsgBox"全部删除!"
End If
End Sub
选项
A、100 False
B、0.1 True
C、100 True
D、0.1 False
答案
A
解析
本题的难点在于考生能从全局上读懂代码,在按钮的单击事件中,设置时钟控件的时间间隔,其单位是毫秒,所以0.1秒应设置为100毫秒;在Timer事件中,如果已经全部删除列表框中的内容,则应将Timer1关闭,不再执行删除操作,所以Enabled属性应该设置为False。
转载请注明原文地址:https://kaotiyun.com/show/1Ymp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于Applet的叙述中,正确的是()。
两个或两个以上的模块之间关联的紧密程度称为( )。
当查询一个压缩文件时,首先要建立压缩文件输入流的对象是______。
Java语言的字符变量以char类型表示,它在内存中占______位。()
结构化程序设计所规定的3种基本控制结构是顺序结构、选择结构和【】。
用来导入已定义好的类或包的语句是【】。
在Java语言的所有方法中,比较特殊的一类方法是抽象方法,它只有方法头,而没有【】。
ActionEvent事件相应的监听器接口是()。
设a=8,则表达式a>>>2的值是______。
如果要在菜单中添加一个分隔线,则应将其Caption属性设置为_________。
随机试题
有关建设单位的工程质量责任与义务,下列理解错误的是()。[2016年真题]
债券筹资的特点不包括( )。
据有关规定,我国开放式基金申购费的法定上限低于赎回费的法定上限。()
(2014年)甲公司拥有一项专利权,该专利权账面原价630万元,已累计摊销410万元,乙公司拥有一项长期股权投资,账面价值190万元,两项资产均未计提减值准备。甲公司决定以其专利权交换乙公司的长期股权投资,由于该专利权和长期股权投资的公允价值均不能可靠计量
A公司2016年12月31日购入价值200万元的设备,预计使用年限为5年,无残值,采用年限平均法计提折旧,税法允许采用双倍余额递减法计提折旧。A公司适用的所得税税率为25%。2017年12月31日递延所得税负债余额为()万元。
Inmanypartsoftheworldcarsplayanessentialroleindailylifeandmanysocietieswouldceasetofunctionwithoutthem.So
已知定义在R上的奇函数f(x)满足f(x-4)=-f(x),且在区间[0,2]上是增函数,若方程f(x)=m(m>0)在区间[-8,8]上有四个不同的根x1,x2,x3,x4,则x1+x2+x3+x4=_________.
陈某与陆某是邻居。陈某家建房挖地基,导致陆某房屋墙面出现裂缝。陆某遂找陈某要求修缮,遭到陈某拒绝。关于本案,下列说法正确的是:
在配有操作系统的计算机中,用户程序通过()向操作系统指出使用外部设备要求。
设窗体上有一个Text1文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时,当把滚动框移动
最新回复
(
0
)