首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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-10-23
47
问题
窗体上有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/uDLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果将PassWordChar属性设置为一个字符,如星号(*),运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是()。
新建一个窗体,其BorderStyle属性设置为FixedSingle,但运行时却没有最大化和最小化按钮,可能的原因是
下列选项中不符合良好程序设计风格的是
已知变量boolVar是一个布尔型的变量,如果要给其赋值为True,则正确的赋值语句就是______。
某程序列表框中有许多项,现在用Timer控件控制时间,0.1秒删除一项,直到删完为止,用一滚动条来显示删除的项目,请选择合适的语句,完成此程序()。PrivateSubCommand2_Click()HSeroll1.Min=0HScro
在随机文件中使用用户自定义数据类型时,要注意它的成员的要求,它的成员不能是()。
下列对于软件测试的描述正确的是()。
下列特征中不是面向对象方法的主要特征的是()。
关于结构化程序设计原则和方法的描述错误的是()。
双击窗体中的对象后,VisualBasic显示的窗口是()。
随机试题
A.神疲乏力,皮下紫斑B.气短懒言,面色紫暗C.面色苍白,冷汗淋漓D.情志抑郁,胸胁胀痛E.头昏目眩,少气自汗气不摄血证的辨证要点是()
如果A对C提起诉讼,法院应当受理的情形是()在代位权诉讼中,关于债权人、债务人、次债务人三方的关系,下列说法正确的是()
根据《工程造价咨询企业管理办法》,甲级工程造价咨询企业的资质标准有()。
根据我国《刑事诉讼法》的规定,下列人员中,不属于我国刑事诉讼中当事人的是()。
在巴甫洛夫的高级神经活动类型说中,强、平衡、不灵活的神经活动类型与下列哪种气质类型相对应()
图例:根据图例和数字裹回答下列各题:数字表中哪行数字对应的符号含有⊙?()
甲与乙订立货物买卖合同,约定甲于1月8日交货,乙在交货期后的一周内付款。交货期届满时,甲发现乙有转移资产以逃避债务的行为。对此甲可依法行使()。
"Thisisareallyexcitingtime—aneweraisstarting,"saysPeterBazalgette,thechiefcreativeofficerofEndemol,thetelev
RobotsMayAllowSurgeryinSpaceSmallrobotsdesignedbyUniversityofNebraskaresearchersmayallowdoctorsonEarthto
Thesocialeffectsofjob-sharingarelikelytobebeneficial,sinceitattemptstomatchworkopportunitiestoawidervariety
最新回复
(
0
)