在窗体上画两个滚动条,名称分别为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 SubB.Private Sub Command1_Click( ) Labe3.Caption=Hscroll1.Value*HscrolValue End SubC.Private Sub Command1_Click( ) Labe3.Caption=Hscrol11*Hscrol12 End SubD.Private Sub Command1_Chek( ) Labe13.Caption=HscrolText*HscrolText End Sub

在窗体上画两个滚动条,名称分别为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


相关考题:

在窗体上画一个名称为“Command1”,标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数,分别显示在标签控件数组的各个标签中,如图所示。单击“计算”按钮,则将标签数组各元素的值累加,然后计算结果显示在Label2。请填空。Private Sub Command1_Click()Sum = 0For i = 0 To 4Sum = Sum + ________Next________ = SumEnd Sub

( 20 )在窗体上画一个命令按钮和两个标签,其名称分别为 Command1 、 Label1 和 Label2 ,然后编写如下事件过程:Private Sub Command1_Click()a = 0For i = 1 To 10a = a + 1b = 0For j = 1 To 10a = a + 1b = b + 2Next jNext iLabel1.Caption = Str(a )Label2.Caption = Str(b )End Sub程序运行后,单击命令按钮,在标签 Label1 和 Label2 中显示的内容分别是A ) 10 和 20B ) 20 和 110C ) 200 和 110D ) 11 0 和 20

( 10 ) 在窗体上画一个名称为 Combo1 的组合框 , 然后画两个名称分别为 Label1 、 Label2 , 标题分别为 “ 城市名称 ” 和空白的标签 。 程序运行后 , 在组合框中输入一个新项目并按回车键 , 如果输入的项目在组合框的列表中不存在 , 则自动将其添加到组合框的列表中 , 并在 Label2 中给出提示 “ 已成功添加新输入项,如图所示。如果输入的项目已存在,则在 Label2 中给出提示 “ 输入项已在组合中。请填空。

D)窗体(Form)可以作为过程的参数(25)在窗体上画一个名称为 Command1 的命令按钮,再画两个名称分别为 Label1、Label2 的标签,然后编写如下程序代码:Private X As IntegerPrivate Sub Command1_Click( )X=5: Y=3Call proc(X, Y)Label1.Caption=XLabel2.Caption=YEnd SubPrivate Sub proc(a As Integer, ByVal b As Integer)X=a*aY=b+bEnd Sub程序运行后,单击命令按钮,则两个标签中显示的内容分别是( )。A)25 和 3B)5 和 3C)25 和 6D)5 和 6

( 27 )在窗体上画两个标签和一个命令按钮,其名称分别为 Label1 、 Label2 和 Command1 ,然后编写如下程序:Private Sub func(L As Label)L.Caption= ” 1234 ”End subPrivate Sub Form_Load()Label2.Caption=10End subPrivate Sub Command1_Click()A=Val(Label2.Caption)Call func(Label1)Label2.Caption=aEnd sub程序运行后,单击命令按钮,则在两个标签中显示的内容分别为A ) ABCD 和 10B ) 1234 和 100C ) ABCD 和 100D ) 1234 和 10

在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码: Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z Label1.Caption=x Label2.Caption=y Label3.Caption=z End Sub 运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是( )。A.10 10 10B.30 30 30C.30 30 10D.10 30 30

(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

在窗体上画一个名称为Command1的命令按钮和3个名称分别为Label1, Label2, Label3的标签,然后编写如下代码: Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n= 10 z = n + z y = y + z x = x + z Label1.Caption = x LabelCaption = y LabelCaption = z End Sub 运行程序,连续三次单击命令按钮后,则3个标签中显示的内容分别是A.10 10 10B.30 30 30C.30 30 10D.10 30 30

在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写下列程序: Private Sub rune(L AS Labe1) Caption="1234" End Sub Private Sub Form. Load( ) Labe11.Caption="ABCDE" Labe12.Caption=10 End Sub Private Sub Command1Click( ) a=Va1(Label2.Caption) Call func(Label1) Label2.Caption a End Sub 程序运行后,单击命令按钮,则在两个标签中显示的内容分别为( )。A.ABCD和10B.1234和100C.ABCD和100D.1234和10

在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是: ______。A.ABCD和10B.1234和100C.ABCD和100D.1234和10

在窗体上画两个滚动条,名称分别为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

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

在窗体上画两个名称分别为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中。以下不能实现求积功能的事件过程是( )。

在窗体上有一个名称为Drivel的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是( )。

在考生文件夹下有一个工程文件sjt5.vbp,在Form1的窗体上画一个水平滚动条,名称为 Hscroll1,最大值和最小值分别为1000、0;再画两个标签,名称分别为Label1和Label2,标题分别为“1000”、“0”;再画两个命令按钮,名称分别为C1和C2,标题分别为“向右移动”、“向左移动”;再画一个计时器,名称为Timer1(如图3—1所示)。请设置控件适当的属性和编写适当的事件过程,使得在运行时,单击“向右移动”按钮,则水平滚动条的滚动框每秒向右移动100;单击“向左移动”按钮,则水平滚动条的滚动框每秒向左移动100;当滚动框到达两端时,它将改变移动的方向,但速度不变。注意:修改控件的适当属性,并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能。修改后的文件以原来的文件名存盘。

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

在窗体上画两个滚动条,名称分别为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.

在窗体上画一个名称为“Command1”,标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数,分别显示在标签控件数组的各个标签中。单击“计算”按钮,则将标签数组各元素的值累加,然后计算结果显示在Label2。下列为“计算”按钮的事件过程,请为横线处选择合适的语句( )。 Private Sub Command1_ClickA.Label1(i).Caption Label2.CaptionB.Label1(i).Caption Label3.CaptionC.Label1.Caption Label2.CaptionD.Label1.Caption Label3.Caption

新建一个工程。在窗体中画三个标签,名称分别为Label1、Label2和Label3,标题分别为“加数1”、“加数2”和“和”。在三个标签下分别有三个文本框(名称分别为Textl、TexQ和Text3)用来输入数字。要求编写一个事件过程,程序运行后在文本框Text1和Text2中输入数字,单击文本框删后其中输出两个数的和。如图14所示。程序中不得使用任何变量。注意:存盘时必须存放在考生文件夹下,工程文件名为ylc2.vbp,窗体丈件名为ylc2.frm。

在名称为Form1的窗体上创建两个名称分别为Option1和Option2,标签分别为“教授”和“研究员”的单选按钮,再建立一个名称为Label1的标签,实现如下功能: 当选中“教授”时,标签上显示“博士学位以上”,如果选中“研究员”,则标签上显示“硕士学位以上”,结果如图7-1所示。 注意:存盘时必须存放在考生文件夹下,工程文件名为Sj1.vbp,窗体文件名为Sj1.frm。

在窗体上画两个滚动条,名称分别为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 SubB.Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End SubC.Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End SubD.Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub

在窗体上画一个名称为C0mnmndl的命令按钮和3个名称分别为Label1、Label2、Label3的标签,然后编写如下代码: Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 : z=n+z y=y+z : x=x+z Label1 Caption=x Label2 Caption=y Label3 Caption=z End Sub 运行程序,连续3次单击命令按钮后,则3个标签中显示的内容分别是______。A.10 10 10B.30 30 30C.30 30 10D.10 30 30

在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Textl和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输人姓名和年龄,然后单击“显示”按钮,则在窗体上显示两个文本框中的内容,如图所示。要求程序中不得使用任何变量。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjtl.vbp,窗体文件名保存为sjtl.frm。

在窗体上画两个滚动条,名称分别为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 SubB.Private Sub Command1_Click() Label3.Caption=HScrolll.Value*HScroll2.Value End SubC.Private Sub Commandl_click() Label3.Caption=HScrolll*HScroll2 End SubD.Private Sub Command1_Click() Label3.Caption=HScrolll.Text*HScroll2.Text End Sub

在窗体上画两个滚动条,名称分别为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 SubB.Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End SubC.Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End SubD.Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub

在窗体上画一个名称为Label1的标签,然后画一个名称为HScroll1的滚动条,其Min和Max属性分别为0和100.程序运行后,如果移动滚动框,则在标签中显示滚动条的当前值.以下能实现上述操作的程序段是() A、PrivateSubHScroll_Change()Label1.Caption=HScroll1.ValueEndSubB、PrivateSubHScroll_Click()Label1.Caption=HScroll1.ValueEndSubC、PrivateSubHScroll_Change()Label1.Text=HScroll.CaptionEndSubD、PrivateSubHScroll_Click()Label1.Text=HScroll.CaptionEndSub

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