首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Timer1_Time
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Timer1_Time
admin
2016-09-19
40
问题
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码:
Dim r As Single,flag As Integer Private Sub Timer1_Timer()
Private Sub Form_Load() If flag=0 Then
r=Shape1.Width Shape1.Width=Shape1.Width-10
Timer1.Enabled=True If Shape1.Width<=100 Then
Timer1.Interval=500 flag=1
End Sub End If
Else
Shape1.Width=Shape1.Width+10
If Shape1.Width>=r Then
flag=0
End If
End If
End Sub
运行程序后产生的结果是
选项
A、圆逐渐缩小,再逐渐增大,然后再逐渐缩小,依此往复
B、圆一直在缩小
C、圆每隔0.5秒向右移动一次
D、圆每隔1秒向下移动一次
答案
A
解析
本题在计时器的Timer事件中,如果flag为0,让圆的宽度逐渐减小,一直到100以下,将flag置为1;如果nag为1,让圆的宽度逐渐增大,一直到大于原来的宽度r则将flag置为0;则圆逐渐缩小,再逐渐增大,然后再逐渐缩小,依此往复。
转载请注明原文地址:https://kaotiyun.com/show/7pLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上绘制一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() c="ABCD" Forn=1To4 Print______ Next
新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮,Form1窗体消失,显示Form2窗体,程序如下,请填空。PrivateSubCommand1_Click() Form1.Hide F
鼠标移动经过控件时,将触发控件的()事件。
编写如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=6andButtonthe
将一个窗体设置为MDI子窗体的方法是
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后输写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsInteger x=5 y=7
下列有关过程的叙述中错误的是()。
下列控件属性中,属性值的类型不相同的一项是()。
下列关于控件焦点的叙述中正确的是()。
随机试题
动态监测系统要根据油藏地质特点和开发要求,确定监测内容、井数比例和取资料密度,确保动态监测资料的()。
蛔虫最常见并发症是
关于皮肤移植下列说法错误的是
与乳汁生成和分泌有直接关系的激素是()。
下列各项税金中,可能列入“主营业务税金及附加”科目核算的有()。
个人贷款与公司贷款是商业银行按照()划分的。
甲以个人名义向乙独资设立的腾飞公司借款8万元,借期2年,不久,甲与丙登记结婚,将借款8万元用于购买新房和家电,婚后1年,甲与丙协议离婚,未对债务的偿还作出约定。下列哪一项是正确的?()
以下人员,不得担任公司高级管理人员的是( )。
2,5,11,23,47,()
The19th-centuryBritishAristocracyTheBritisharistocracyhadalwaysbeeninvolvedinindustrialization,especiallyinth
最新回复
(
0
)