在窗体上有一个计时器控件Timer1和一个标签控件Labe11，在程序运行的时候，可通过每隔30ms让Labe11左移100缇，从而产生文字移动动画效果。文字从右向左移动，当移动到接近窗体左边界时停止移动，如图20-9所示。空格处应填( )。 Private Sub Form_Load() Labell．Left=Form1．Width Timer1．Interval=30 Timer1．Enabled=True End Sub Private Sub Timer1_Timer() Labell．Left

题目

在窗体上有一个计时器控件Timer1和一个标签控件Labe11，在程序运行的时候，可通过每隔30ms让Labe11左移100缇，从而产生文字移动动画效果。文字从右向左移动，当移动到接近窗体左边界时停止移动，如图20-9所示。

空格处应填( )。 Private Sub Form_Load() Labell．Left=Form1．Width Timer1．Interval=30 Timer1．Enabled=True End Sub Private Sub Timer1_Timer() Labell．Left=Labell．Left-100 If Labell．Left＜100 Then _____________ End If End Sub

A．Timer1．Enabled=False

B．Timer1．Interval=30

C．Labell．Enabled=True

D．Labell．Left=0

相似考题

1.设计表单bd2，表单中有一个标签和一个汁时器控件，运行时标签“欢迎您!”为从右向左移动的字幕，移动时间间隔为20毫秒。

2.在窗体上画一个名称为Labe11、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timerl的计时器控件，并把其Interval属性设置为500，如下图所示。编写如下程序： Private Sub Form_Load() Timer1.Ena bled=False End Sub Private Sub Commandl_ChCk() Timer1.EnaA．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另一端出现，重新移动D．标签按指定的时间间隔移动

3.在窗体上有一个计时器控件Timer1和一个标签控件Label1，在程序运行时可通过每隔30毫秒让Lable1左移100缇，从而产生文字移动动画效果。文字从右向左移动，当移动到接近窗体左边界时停止移动。空格处应填 ______。 Private Sub Form1_Load() LabelLeft=FormWidth TimerInterval=30 ______ End Sub Private Sub Timer1_Timer() Lable1.Left=LableLeft -100 If Lablel. Left＜100 Then TimerEnable=False End If End SubA．Timer1. Enable=TrueB．Label1.Enable=TrueC．Timer1. Enable=FalseD．Label1. Enable=False

4.在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。编写如下程序：Private Sub Form_Load（）Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click（）Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click（）Timer1.Enabled=FalseEnd SubPrivate Sub Timer1_Timer（）If Label1.LeftLabel1.Left = Label1.Left + 20ElseLabel1.Left=0End IfEnd Sub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是（ ）。A．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动D．标签按指定的时间间隔移动

更多“ 在窗体上有一个计时器控件Timer1和一个标签控件Labe11，在程序运行的时候，可通过每隔30ms让Labe11左移100缇，从而产生文字移动动画效果。文字从右向左移动，当移动到接近窗体左边界时停止移动，如图2”相关问题

  • 第1题：

    在窗体上画一个名称为Label1、标题为“Visual Basic考试”的标签，两个名称分别为Conmmnd1和Com— mand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。

    编写如下程序： Private Sub Form_Load( ) Timer1.Enabled=False End Sub Private Sub Command1_Click( ) Timer1.Enabled=True End Sub PrivateSubCommand2_Click( ) Fimerl.Enabled=False End Sub Private SubTimer1_Timer( ) If Label1.Left＜Width Then Label1.Left=Label1.1eft+20 Else Label1.Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是

    A．标签的移动方向为自右向左

    B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

    C．当标签全部移出窗体后，将从窗体的另—端出现并重新移动

    D．标签按指定的时间间隔移动


    正确答案：A
    解析：本题通过Timer1的Enabled属性控制计时器工作与否。计时器一旦运行，将每隔半秒(Interval设为500)触发一次Timer事件，在该文件中，Label1的Left属性每次增加(每就是每半秒)20，当Label1移出窗体时(即Label1.left＞=width)Label1的Left值回归为0。Left属性确定控件与窗体左端的距离，单位为twip。故本题选项A表述错误，标签的移动方向自左向右。

  • 第2题：

    在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Conlmand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图16-7所示。 编写如下程序： Private Sub Form_Load() Timer1. Enabled=False End Sub Private Sub Command1_Click() Timer1. Enabled=True End Sub Private Sub Command2_Click() Timer1. Enabled=False End Sub Private Sub Timer1_Timer() If Label1. Left＜Width Then Label1. Left=Label1. Left+20 Else Label1. Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是______。

    A．标签的移动方向为自右向左

    B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

    C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动

    D．标签按指定的时间间隔移动


    正确答案：A
    解析：当计时器控件的属性Enabled为True时，每经过一段由属性Interval指定的时间(毫秒)间隔，就产生一个Timer事件。Enabled为False时，将停止执行Timer事件。在Timer事件中，通过改变Label1控件的Left属性，来改变控件的位置。

  • 第3题：

    窗体中有图片框（Picture1）和计时器（Timer1）两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向左、向右移动100单位。请在[ ]填空：
    load；Interval；move
    略

  • 第4题：

    在窗体上画一个名称为Labell、标题为“ViSBalBasic考试”的标签，两个名称分别为 Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。

    编写如下程序： Private Sub Form Load() Timerl.Enabled = False End Sub Private Sub Command1 Click() Timer1.Enabled = True End Sub Private Sub Command2 Click() Timerl.Enabled = False End Sub Private Sub Timerl Timer() If Labell．Left＜Width Then Labell.Left = Labell.Left+20 Else Labell.Left = 0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是

    A．标签的移动方向为自右向左

    B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

    C．当标签全部移出窗体后，将从窗体的另一端出现，重新移动

    D．标签按指定的时间间隔移动


    正确答案：A
    解析：本题综合考查了标签、计时器的相关属性以及考生对程序代码的理解能力。本题通过Timer1的Enabled属性控制计时器工作与否。计时器一旦运行，将每隔半秒(Interval设为500)触发一次Timer事件，在该文件中，Label1的Left属性每次增加(也就是每半秒)20，当Labell移出窗体时(即Label1.left＞=width)Labell的Left值回归为0。Left属性确定控件与窗体左端的距离，单位为twip。故本题选项A表述错误，标签的移动方向自左向右。

  • 第5题：

    在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。

    编写如下程序： Private Sub Form_Load( ) Timer1．Enabled=false End Sub Private Sub Command1 Click( ) Timer1．Enabled=True End Sub Private Sub Timer1_Timer( ) If Label1．Left＜Width Then Label1．Left=label1．Left+20 Else Label1．Left=0 End If End Sub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是

    A．标签的移动方向为自右向左

    B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

    C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动

    D．标签按指定的时间间隔移动


    正确答案：A
    解析：单击开始按钮后时钟事件开始执行，Label1.Left=Lebel1. Left+ 20是指标签框向右运动，If判断语句是说当标签框的左端大于窗体宽度时标签框的Left属性将为0，也就是将从窗体的最左端重新移动；选项 B)、选项C)和选项D)都正确，只有选项A)描述错误。

相关内容