首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form
admin
2017-11-23
63
问题
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码:
Dim r As Single,flag As Integer
Private Sub Form Load()
r=Shape1.Width
Timer1.Enabled=Tme
Timer1.Interval=500
End SUb
Private SUb Timer1_Timer()
Ifflag=0 Then
Shape1.Width=Shape1.Width-10
If Shape1.Width<=100 Then
flag=1
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;如果flag为1,让圆的宽度逐渐增大,一直到大于原来的宽度r则将flag置为0;则圆逐渐缩小,再逐渐增大,然后再逐渐缩小,依此往复。
转载请注明原文地址:https://kaotiyun.com/show/gAGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序执行后,在Ctrl和Alt这两个键都被按下的同时,再在文本框中输入“a”,输出结果为PrirateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfSh
假定有下列两个过程:PrivateSubPPP(aAsSingle,bAsSingle)a=a+bPrinta,bb=a+bPrinta,bEnd
下列程序段的执行结果为 a=1 b=2 ForI=1To3 f=a*b a=b b=f Printf NextI
下列不能打开工具箱窗口的操作是
以下关于窗体的描述中,错误的是______。
若已在窗体中加入一个通用对话框,要求在运行时,通过ShowOpen打开对话框时只显示扩展名为.doc的文件,则对通用对话框的Filter属性正确的设置是______。
对象可以识别和响应的某些操作行为称为______。
当执行以下过程时,在名为lblResult的标签框内将显示______。PrivateSubCommand1_Click()DimI,RR=0forI=1To5step1R=R+I
在窗体上画一个命令按钮和一个标签,其名称分别为Commandl和Labell,然后编写如下事件过程:PrivateSubCommand1_Click()Counter=0Fori=1T04Forj=6To1Step一2Counter=
随机试题
下列分布中又叫学生氏分布的是()
______是单侧喉返神经损伤的症状。喉上神经外支受损,病人可出现______。
以下不属于新时期德育发展的新主题的是()
具有镇静、催眠、抗惊厥作用:具有解热、镇痛、抗风湿作用:
可行性研究阶段的投资估算误差率应为()。
某高校孙老师先是因为住房问题与单位领导发生口角,后又在职称评定时,因未过三分之二多数票而被否决。孙老师非常气愤,认为是院领导有意整她,故到院办大吵大闹。因倍感委屈,上课时控制不住自己而声泪俱下,无法继续上课,中途回办公室休息。后又因心情不好,在家休息,只好
简述发现法教学的教学程序.
下列哪些行为应认定为抢劫罪一罪?()
米歇尔列出五个变量来说明我们行为中稳定的个体差异,它们是能力、译码和分类策略、预期、主观价值和()
A、Hewishedtobecomeagreatcollector.B、Hewishedtocollectsomeinterestingbooks.C、Hewishedtotravelaroundtheworld.
最新回复
(
0
)