首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个Timerl计时器,1个Shapel形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag=True Timer1.Enabled=True Tim
窗体上有1个Timerl计时器,1个Shapel形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag=True Timer1.Enabled=True Tim
admin
2018-10-15
73
问题
窗体上有1个Timerl计时器,1个Shapel形状控件,还有下面程序代码:
Dim flag As Boolean
Private Sub Form_Load()
flag=True
Timer1.Enabled=True
Timer1.Interval=1 000
End Sub
Private Sub Timerl_Timer()
If flag Then
Shape 1.Height=Shape 1.Height*2
Shapel.Width=Shapel.Width*2
Else
Shapel.Height=Shapel.Height*0.5
Shape 1.Width=Shape 1.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/0TFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) PrintText1.Text;EndSub运行程序,
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为( )。
通用对话框控件文件建立对话框时,可以通过一个属性指定对话框的标题,这个属性是
设有如下程序:PrivateSubForm_Click()DimmAsSingle,nAsStringDimflagAsIntegerm=InputBox("请输入一个单精度数")n=
下列打开"代码窗口"的操作中错误的是( )。
下列关于数据库设计的叙述中,正确的是()。
以下关系表达式中,其值为True的是( )。
下面对对象概念描述正确的是
下列说法中,错误的是( )。
随机试题
王老师在上《程式与意蕴——中国传统绘画》一课时,合适的做法是()。
初步设计文件根据已批准的_______和_______进行编制。
()分层开采井下工艺是由各种封隔器、配产器、配水器等工具组成的。
胎儿新生儿溶血病
关于综合布线工程,说法正确的有()。
一般来说,高息货币的远期汇率表现为贴水,低息货币的远期汇率表现为升水。
Hereismyideaabouthowafriendislike.Firstly,【M1】______afriendissomeoneyoucanshareyoursecrets.Ifyou【M2】_____
设f(x,y,z)=exyz2,其中z=z(x,y)是由x+y+z+xyz=0确定的隐函数,则fx’(0,1,一1)=________.
Caffeinatedcoffeemayhaveanundeservedbadrap.Anewstudyshowsthedecaffeinatedvarietymayhaveharmfulhearteffects.T
Increasingly,overthepasttenyears,people—especiallyyoungpeople—havebecomeawareoftheneedtochangetheireatinghabit
最新回复
(
0
)