首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag = True Timer1.En
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag = True Timer1.En
admin
2015-08-28
46
问题
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:
Dim flag As Boolean
Private Sub Form_Load()
flag = True
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If flag Then
Shape1.Height = Shape1.Height * 2
Shape1.Width = Shape1.Width * 2
Else
Shape1.Height = Shape1.Height * 0.5
Shape1.Width = Shape1.Width * 0.5
End If
flag = Not flag
End Sub
执行程序所产生的效果是
选项
A、Shape1形状的尺寸在缩小到原来一半和恢复原状这2种状态间切换,每秒切换一次
B、Shape1形状的尺寸在扩大到原来2倍和恢复原状这2种状态间切换,每秒切换一次
C、Shape1形状的尺寸在缩小到原来一半和扩大到原来2倍这2种状态间切换,每秒切换一次
D、Shape1形状的尺寸会不断扩大
答案
B
解析
Form_Load 过程中设定timer事件定时触发,定时时间为1秒;在Timer1_Timer过程中,Shape1形状的尺寸在扩大到原来2倍和恢复原状,然后退出。下一次timer事件触发时继续这个过程。因此,选B)。
转载请注明原文地址:https://kaotiyun.com/show/A9Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
程序流程图(PFD)中的箭头代表的是______。
信息隐蔽的概念与下述哪一种概念直接相关______。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0n=InputBox("")Fori=1Ton
数据是信息的符号表示,又称载体;信息是数据的【】。
在文本框中,要使键入的所有字符都显示“*”号,这时应该设置______属性为“*”号。
用Write和Print语句向文件中写入多个数据的差别在于______。
数据的独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时,其逻辑结构可以不变,因此,基于逻辑结构的应用程序不必修改,这称为______。
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),如图16-11所示,然后编写如下几个事件过程:PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=【
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
设有如下程序:PrivateSubCommand1_Click()DimCAsInteger,dAsIntegerc=4d=InputBox("请输入一个整数")Do
随机试题
患者,男性,12岁,无明显诱因出现头晕,卧床休息不能缓解,后出现昏迷,意识丧失,牙关紧闭,四肢抽动,口唇青紫,小便失禁,口吐白沫,此过程约4分钟。此后患者四肢松弛,逐渐清醒。清醒后患者感觉头痛,对抽搐的过程无记忆。该患者所患病情属于
大剂量碘制剂可用于治疗
定期X线检查属于牙周病预防的
湿邪最易困阻的是
属于井底车场主要运输线路的是()。
蒸汽:动力:火车
把下面的六个图形分为两类,使每一类图形都有各自的共同特征或规律,分类正确的一项是:
如果破产成本为0,破产本身不会必然降低公司价值。[中国人民大学2011研]
Yoursalarybarelycoverschildcare,butyourcoworkersgiveyouside-eyewhenyouleaveatfive.Evenifyou’reluckyenoughto
EnglandandFranceareseparatedby22milesofopenoceanattheirclosestpoint.AttemptstoswimtheEnglishChannelhavebee
最新回复
(
0
)