首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag=True
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag=True
admin
2018-10-18
32
问题
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:
Dim flag As Boolean
Private Sub Form_Load()
flag=True
Timer1.Enabled=True
Timer1.Interval=1000
End Sub
Private Sub Timer 1_Timer()
If flag Then
Shape1.Height=Shape1.Height*2
Shape1.Width=Shape1.Width*2
Else
Shape 1.Height=Shape 1.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
解析
在计时器事件中会判断窗体级变量flag的值,如果为真则形状尺寸扩大一倍,否则缩小到一半。由于第一次开始计时器事件的时候flag的值为True,所以首先会将形状扩大一倍,然后第二次计时器事件将形状恢复原状。
转载请注明原文地址:https://kaotiyun.com/show/uPFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:PrivateTypexaAsIntegerbAsIntegerEndTypeP
现有如下语句:x=IIf(a>50,Int(a\3),aNod2)当a=52时,x的值是()。
以下合法的VB变量名是()。
支持子程序调用的数据结构是()。
以下关系表达式中,其值为True的是( )。
若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是( )。
以下说法中正确的是( )。
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
随机试题
组织变革的过程包括()
多钩瓷绝缘子型式分为()、()和()三种。
利用生活情景这种技术没有用于个别治疗,但被作为一种治疗的是()
高中阶段“统计”一章的学习中,学习了“简单随机抽样”“系统抽样”“分层抽样”三大抽样方法。某教师想要对此设计一堂习题课,以帮助学生进一步区分这三种抽样方法。请据此回答下列问题:分别设计三道习题以帮助学生巩固这三种抽样方法;
土家语在大多数情况下把原来的“主语一宾语一谓语”的语序改变为与汉语相同的“主语一谓语一宾语”的语序,这属于()。
“临、勤、近、宾、音、信”的韵母都是相同的。()
落地签证
“克隆”、“转基因”等生命科学的重大突破
设则在x=a处()
CatastrophicvolcaniceruptionsinEuropemayhaveculledNeanderthalstothepointwheretheycouldn’tbounceback,accordingt
最新回复
(
0
)