niusouti.com

在窗体上画一个名称为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 Pr

题目

在窗体上画一个名称为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．标签按指定的时间间隔移动

相似考题

1.在窗体上画一个名称为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．标签按指定的时间间隔移动

2.在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Labell的标签。程序如下： Private Sub Command1_Click() Timer1．Enabled=True Timer1．Interval=1000 End Sub Private Sub Timerl_timer() Labell．Caption=Time End Sub 当运行程序后，单击命令按钮，将在标签中显示的内容为A．TimeB．TrueC．1000D．10：06：55

3.在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成．名称为Labell的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空：标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。下列为“计算”按钮的事件过程，请为下划线处选择合适的语句( )。Private Sub Commandl_Click() Sum=0 For i=0 To 4 Sum=Sum+______ Next ______ =Sum End SubA．Labell(i).Caption Label2.CaptionB．Labell(i).Caption Label3.CaptionC．Labell.Caption Label2.CaptionD．Labell.Caption Label3.Caption

4.在窗体上画一个名称为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．标签按指定的时间间隔移动

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

  • 第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和Label2的标签，再画一个名称为Command1的命令按钮，然后编写如下事件过程：

    运行上面的程序，单击命令按钮．其输出结果是

    A．8 9

    B．8 18

    C．64 9

    D．64 18


    正确答案：C
    解题的关键是窗体变量X和局部变量Y的作用域及过程调用时的参数传递方式。窗体变量X的作用域是该窗体内的所有过程，所以虽然是传值，但在过程Subl中可见，因此在该过程中使用了窗体变量X，这个“x＝a*a”直接将该窗体变量X的值改变为64。而y则是过程Command1_Click的内部变量，与过程Sunl中的变量y没有关系，标签Label2显示的是本过程的Y值，即9。正确答案为c。

  • 第3题：

    在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。

    注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。


    正确答案：

    【考点分析】本题考点有：标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“＆”和“+”运算符以及Print方法。
    【解题思路】通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“＆”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
    【操作步骤】
    步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。


    步骤2：打开代码编辑窗口，在指定位置编写如下代码。
    参考答案
    Private Sub Command1_Click()
    Form1．Print Text1．Text＆"，现年"＆
    Text2．Text＆"岁"
    End Sub
    步骤3：调试并运行程序，关闭程序后按题目要求存盘。

  • 第4题：

    在窗体上画一个名称为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属性，来改变控件的位置。

  • 第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)描述错误。

相关内容