首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
27
问题
窗体上有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个名称为Command1的命令按钮,事件过程及函数过程如下:PrivateSubCommand1_Click() DimmAsString m=InputBox("请输入字符串") Printpick_str(m)En
用来设置文字字体是否为粗体的属性是( )。
执行以下程序段后,输出结果不为2的是
在窗体上画1个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() Dima(3,3) Form=1To3 Forn=1To3 Ifn=mOrn=4-mThen
(1)在名称为Form1的窗体上添加一个二级下拉菜单(菜单项见下表),程序运行时的窗体如图所示。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。(2)在名称为Form1的窗体上添加两个文本
窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:PrivateSubText1_Change(IndexAsInteger)SelectCaseIndexCase0
以下能对正实数的第3位小数四舍五入的表达式是()。
数据字典(DD)所定义的对象都包含于
以下关于VB对象属性的叙述中,错误的是
随机试题
在人的发展中起主导作用的教育是______。
以下属于无担保贷款条件中例行性条款内容的是( )。
下列关于上市公司比较法价值比率计算的时间区间的说法中,错误的是()。
下列选项中正确描述劳动力的边际产出收益的是()。
下列选项中两个IP地址都属于A类地址的是()。
师生关系融洽,配合默契,课堂气氛宽松而不涣散,严谨而不紧张。这样的课堂气氛属于()。
Thebrazenwomanlaughed______atthejudgewhosentencedher.
根据下列资料,回答下列题。根据资料下列说法正确的是:
下面关于友元的说法中错误的是()。
MilankovitchproposedintheearlytwentiethcenturythattheiceageswerecausedbyvariationsintheEarth’sorbitaroundthe
最新回复
(
0
)