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

admin2015-05-29  25

问题 窗体上有一个名称为Shapel并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timerl的计时器,并有下面程序代码:
Dim r As Single.flag As Integer            Private Sub Timerl_Timer()
Private Sub Form_Load()                        Ifflag=0 Then
     r=Shapel.Width                                Shapel.Width=Shapel.Width-10
     Timerl.Enabled=True                           If Shape 1.Width<=1 00 Then
     Timerl.Interval=500                               flag=1
End Sub                                        End If
                                            Else
                                                Shapel.Width:Shapel.Width+10
                                                If Shapel.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://jikaoti.com/ti/Gf60FFFM
0

最新回复(0)