首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
33
问题
窗体上有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/iELp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某二叉树中度为2的结点有18个,则该二叉树中有______个叶子结点。
下列关于文件的叙述中,错误的是()。
在窗体画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为______。FunctionFun(ByValnumAsLong)AsLongDimkAsLongk=1
执行以下语句后,输出结果为______。s$="ABCDEFG"PrintInStr(s$,"efg")PrintLCase$(s$)
在面向对象方法中,类的实例称为【】。
以下关于变量作用域的叙述中,正确的是______。
在设计程序时,应采纳的原则之一是______。
设当前日期为2007年12月27日,星期四,则执行下面语句后的输出结果为______。PrintDay(Now)PrintMonth(Now)PrintYear(Now)PrintWeekday(Now)
在深度为5的满二叉树中,叶子结点的个数为______。
随机试题
患儿,女,3岁,因发热2天,咳嗽伴腹痛1天而就诊。查体:T38℃,神志清,咽充血,扁桃体Ⅱ°大,颈软,颈部可触及黄豆大淋巴结3~4枚,活动,有压痛。心肺无异常,腹部稍胀,质软,满腹痛,以脐周为主,无腹肌紧张及固定压痛点。血常规:白细胞11.2×109/L
提出“创造一兼东西文明特质、欧亚民族天才之世界的新文明”之预言的是()
甲乙丙三人共同设立一家从事运输业的普通合伙企业,甲对其在该合伙企业中的财产份额,依法可从事的行为是:()
起重作业中平衡梁型式的选用根据有()。
按照我国法律规定,下列具有独立的法人资格的是()。
个人经营贷款的信用风险主要包括()。
下列说法不正确的是()。
A公司长期以来一直是某总装厂的主要配件供货单位,最近该总装厂向供应商提出了提供过程监控证据的要求,A公司为了满足顾客要求,准备在全公司开始推行统计过程控制。试对下列题目进行分析。[2007年真题]控制图由()组成。
Thelawyer______allaboutthecasebeforehedecidedtotakeitover.
A、Touching.B、Talking.C、Smiling.D、Giftgiving.A讲座中间讲到在美国和西方国家,见面打招呼都会有一些身体的接触,因此A项“接触”为正确答案。B项“聊天”、C项“微笑”和D项“送礼”都不是“西方国家见面打招呼
最新回复
(
0
)