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

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

admin2015-05-29  30
问题 窗体上有一个名称为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://kaotiyun.com/show/CRQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)