在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实

题目

在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是______。

A．Private Sub Command1_Click() Label3. Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub

B．Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub

C．Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub

D．Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub

相似考题

1.（13）在窗体上画两个组合框，其名称分别为Combo1、Combo2,然后画两个标签，名称分别为Label1、Label2.要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下的标签中显示出来，请填空使程序完整。Private Sub Combo1_Click() Call ShowItem(Combo1,Label1) End SubPrivate Sub Combo2_Click() Call ShowItem(Combo2,Label2)End SubPrivate Sub ShowItem(tmpCombo As ComboBox,tmpLabel As Label) Caption=_____.TextEnd Sub

2.在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件；6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签，其中，Label4～Label6分别显示“A”、“B”、“A*B’ 等文字信息，标签Label1、Label2分别显示其右侧的滚动条Value属性值，Label3显示A*B的计算结果，如图1所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现求积功能的事件过程是（ ）。

3.在窗体上画两个名称分别为Label1和Label2的标签，再画一个名称为Command1的命令按钮，然后编写如下事件过程：运行上面的程序，单击命令按钮．其输出结果是A．8 9B．8 18C．64 9D．64 18

4.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2：六个标签，名称分别为Label1、Label2、 Latel3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 ______。A．Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End SubB．Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End SubC．Private Sub Command1_Click() Label3.Caption=HScrolll*HScroll2 End SubD．Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub

更多“在窗体上画两个滚动条,名称分别为Hscroll1、Hscroll2;六个标签,名称分别为Label1、Label2、Label3、L ”相关问题

  • 第1题：

    在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；6个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Labe16分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条Value属性值，Label3显示A*B的计算结果，如下图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现求积功能的事件过程是（ ）。

    A．

    B．

    C．

    D．


    正确答案：D
    本题中要求显示两个滚动条Value属性值的变化过程，并对两值求积，因为Labell和Label2分别存了两个滚动条的数值，所以可以通过标签的Caption属性取到值进行计算：也可以通过滚动条的Vlaue当前值来进行计算。注意：选项C中，没有写Value属性，而是使用滚动条的默认属性，因为滚动条的默认属性就是Value属性，所以也可以正确计算。选项D中，使用滚动条的Text属性是错误的，因为滚动条没有Text属性。

  • 第2题：

    在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Labell、Label2、 Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签 Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是______。

    A．Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub

    B．Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub

    C．Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub

    D．Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub


    正确答案：D
    解析：HScroll控件缺省属性为Value，即HScroll1与HScroll1.Value相等，而其属性中没有Text属性。

  • 第3题：

    在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。

    Private Sub Combo1_Click（）

    Call ShowItem（Combo1, Label1）

    End Sub

    Private Sub Combo2_Click（）

    Call ShowItem（Combo2, Label2）

    End Sub

    Public Sub ShowItem（tmpCombo As ComboBox, tmpLabel As Label）

    ______.Caption =______.Text

    End Sub


    正确答案：

    tmplabel　tmpCombo

  • 第4题：

    在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2;六个标签，名称分别为Label1、Label2、 Label3、Label4、Label5、Label6，其中标签Label4-Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 ______。

    A．Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub

    B．Private Sub Command1_Click() Label3.Caption=HScrolll.Value*HScroll2.Value End Sub

    C．Private Sub Commandl_click() Label3.Caption=HScrolll*HScroll2 End Sub

    D．Private Sub Command1_Click() Label3.Caption=HScrolll.Text*HScroll2.Text End Sub


    正确答案：D
    解析：HScroll控件缺省属性为Value，即HScrolll与HScrolll.Value相等，而其属性中没有Text属性。

  • 第5题：

    在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3，La- bel4、Label5、Label6，其中标签Label4～Label6分别显示“A”；“B”、“A*B”等文字信息，标签Label1、La- bel2分别显示其右侧的滚动条的数值，LabeB显示A*B的计算结果。如图所示。

    当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是

    A．Private Sub Command1_Click( ) Labe3.Caption=Str(Vs1(Label1.Caption)*Val(Label2.Caption)) End Sub

    B．Private Sub Command1_Click( ) Labe3.Caption=Hscroll1.Value*HscrolValue End Sub

    C．Private Sub Command1_Click( ) Labe3.Caption=Hscrol11*Hscrol12 End Sub

    D．Private Sub Command1＿Chek( ) Labe13.Caption=HscrolText*HscrolText End Sub


    正确答案：D
    解析：为实现题目中的功能，可以把Label1与LabeL2的Caption属性值变为数值之后相乘，然后赋给kabel3的Caption属性，也可以把Hscroll2与Hscroll2的Value值相乘，把结果赋给Label3的Caption属性。所以A、B项都是可行的。由于Value属性是滚动条的默认属性，故可以省略不写，所以C项也是正确的。Text并非滚动条的属性，故D项错误。

相关内容