窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Hei出属性值相等),一个名称为Timed的计时器,并有下面程序代码: Dim r As Single,flag As Integer Private Sub Form_Load() r=S

admin2016-06-23  48

问题 窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Hei出属性值相等),一个名称为Timed的计时器,并有下面程序代码:
Dim r As Single,flag As Integer
Private Sub Form_Load()
r=Shape1.Width
Timer1.Enabled=True
Timer1.Interval=500
End Sub
Private Sub Timer1_Timer()
If flag=0 Then
Shape1.Width=Shape1.Width-10
If Shape1.Width<=100Then
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

解析 Form_Load过程中设定timer事件定时触发;在Timer1_Timer过程中,圆圈先变小后变大,然后退出。下一次timer事件触发时继续这个过程。因此,选A。
转载请注明原文地址:https://kaotiyun.com/show/8vLp777K
0

随机试题
最新回复(0)