首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Timer1_Timer() Private Sub Form_Load()
窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Timer1_Timer() Private Sub Form_Load()
admin
2017-04-25
50
问题
窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码:
Dim flag As Boolean Private Sub Timer1_Timer()
Private Sub Form_Load() If flag Then
flag=True Shapel.Height=Shapel.Height*2
Timer1.Enabled=True Shapel.Width=Shapel.Width*2
Timer1.Interval=1000 Else
End Sub Shapel.Height=Shapel.Height*0.5
Shapel.Width=Shapel.Width*0.5
End If
flag=Not flag
End Sub
执行程序所产生的效果是
选项
A、Shapel的尺寸在缩小到原来一半和恢复原状这2种状态间切换,每秒切换一次
B、Shapel的尺寸在扩大到原来2倍和恢复原状这2种状态间切换,每秒切换一次
C、Shapel的尺寸在缩小到原来一半和扩大到原来2倍这2种状态间切换,每秒切换一次
D、Shapel的尺寸会不断扩大
答案
B
解析
在计时器事件中会判断窗体级变量flag的值,如果为真则形状尺寸扩大一倍,否则缩小到一半。由于第一次开始计时器事件的时候flag的值为True,所以首先会将形状扩大一倍,然后第二次计时器事件将形状恢复原状。
转载请注明原文地址:https://kaotiyun.com/show/VFGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定在图片框控件Picturel中装入了一个图形,为了在程序运行时清除该图形,则应使用下列哪种方法()。
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
设已经在窗体上添加了一个通用对话框控件CommonDialog1,以下正确的语句是()。
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充
为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是()。
在程序代码中将图片文件mypic.jpg装入图片框Pictruel的语句是()。
下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数,打印其中是7的倍数的数,并求它们的总和,请填空。SubTOF()RandomizeDimSAsDoubleDima(10
数据库设计分为以下6个设计阶段:需求分析阶段、【】、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
下面数组说明语句错误的是______。
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为a1,且取消其“可见”属性。运行时,哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
随机试题
5个月小儿一直以牛乳喂养,体检时发现血清铁蛋白下降,有贫血的倾向。另一名同龄小儿一直母乳喂养则无此改变,原因是
将混合生物碱溶于氯仿中,用pH由高到低的酸性缓冲溶液顺次萃取,生物碱则可按下列顺序依次萃取出来
一患者Ⅲ°深覆牙合,上颌左126右56缺失,义齿密合,但左上12腭侧塑料基托反复折断。处理方法是
决定肿瘤性质的主要理论依据是
按低于票面金额的价格发行,到期时按票面金额兑付,而不另付利息的国债是()。
某联合铁矿山单位外出到甲地收购铁矿石,铁矿石适用()。
用SQL语言描述"在学生表中查找男学生的全部信息",以下描述正确的是()。
Thespeakerthinksthat
Inafewmonths’timeyouaregoingtograduatefromuniversityandmostwillhavetofindjobs.Youcaneitherchoosetoworka
Forwhatoccasionhasthecakebeenmade?
最新回复
(
0
)