窗体上有一个名称为Timer1的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下: Private Sub Form_Load() Shapel.Top=0 Timer1.Interva

admin2019-03-14  37

问题 窗体上有一个名称为Timer1的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下:
  Private Sub Form_Load()
    Shapel.Top=0
    Timer1.Interval=10D
    End Sub
    Prirate Sub Timer1_Timer()
    Static X As Integer
    Shapel.Top=Shapel.Top+100
    x=x+1
    If x Mod 10=0 Then
    Shapel.Top=0
    End If
    End Sub
    以下关于上述程序的叙述中,错误的是(    )。

选项 A、每执行一次Timer1 Timer事件过程,x的值都在原有基础上增加1
B、Shapel每移动10次回到起点,重新开始
C、窗体上的Shapel由下而上移动
D、Shapel每次移动100

答案C

解析 题目变量x定义Static,即每次进入Timer事件过程时,x都会保留上次的值,从而实现每执行一次Timer1_Timer事件过程x的值都在原有基础上增加1。程序中判断调用Timer事件过程10次后,重置Shapel的top值为0,即回到起点。控件Shapel的Top属性是距离窗体顶的位置,数值越大距离越远,因此Shapel会由上向下移动。
转载请注明原文地址:https://jikaoti.com/ti/oXN0FFFM
0

随机试题
最新回复(0)