在窗体上画两个滚动条，名称分别为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
在窗体上画两个滚动条，名称分别为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
相关考题：
在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。Private Sub Command1_Click（）Sum = 0For i = 0 To 4Sum = Sum + ________Next________ = SumEnd Sub
（ 10 ） 在窗体上画一个名称为 Combo1 的组合框 ， 然后画两个名称分别为 Label1 、 Label2 ， 标题分别为 “ 城市名称 ” 和空白的标签 。 程序运行后 ， 在组合框中输入一个新项目并按回车键 ， 如果输入的项目在组合框的列表中不存在 ， 则自动将其添加到组合框的列表中 ， 并在 Label2 中给出提示 “ 已成功添加新输入项，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 “ 输入项已在组合中。请填空。
在窗体上画两个标签和一个命令按钮，其名称分别为Labell、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(Labell，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是 ______。A．ABCD和10B．1234和100C．ABCD和100D．1234和10
在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter＝0 For i=1 To 4 For j＝6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是______。A．11B．12C．16D．20
（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
在窗体上画两个滚动条，名称分别为Hscro111、Hscro112；六个标签，名称分别为Labell、 Labe12、Labe13、Labe14、Labe15、Labe16，其中标签Labe14～Labe16分别显示“A”、“B”、 “A*B”等文字信息，标签Labe11、Labe12分别显示其右侧的滚动条的数值， Labe显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Labe11、Labe12中显示的两个值求积，并将结果显示在Labe13中。以下不能实现上述功能的事件过程是______。A．Private Sub Commandl_Click() Labe13.Caption=Str(Val(Labell.Caption)*Val(Labe12.Capfion)) End SubB．Private Sub Commandl_Click() Labe13.Caption=HScro111.Value*HScro112.Value End SubC．Private Sub Commandl_Cliek() Labe13.Caption=HScrolll*HScro112 End SubD．Private Sub Commandl_Click() Labe13.Caption=HScro111.Text*HScro112.Text End 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
在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Lubd2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Commandl_Click()X=5：Y=3Call proc(X，Y)Labell．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
使用下图，窗体的名称为frnTest，窗体中有一个标签和一个命令按钮，名称分别为Label1和bChange 。在“窗体视图”显示该窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色，以下能实现该操作的语句是( )。A．label1.Fore(iolor=255)B．bCihange.ForeColor=255C．labell.ForeColor="255"D．bChange.ForeColor="255"
在窗体上画两个滚动条，名称分别为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个标签组成．名称为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
在窗体上画一个名称为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．标签按指定的时间间隔移动
在窗体上画一一个名称为Text1的文本框，然后画一个名称为Hscroll1的滚动条，其Min和Max属性分别为0和1 000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是（ ）。
在窗体上画两个名称分别为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中。以下不能实现求积功能的事件过程是（ ）。
在考生文件夹下有一个工程文件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．
新建一个工程。在窗体中画三个标签，名称分别为Label1、Label2和Label3，标题分别为“加数1”、“加数2”和“和”。在三个标签下分别有三个文本框(名称分别为Textl、TexQ和Text3)用来输入数字。要求编写一个事件过程，程序运行后在文本框Text1和Text2中输入数字，单击文本框删后其中输出两个数的和。如图14所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc2.vbp，窗体丈件名为ylc2.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。
在窗体上画一个名称为Commandl的命令按钮和3个名称为Labell、Label2、Label3的标签，然后编写如下程序段： Private x As Integer Private Sub Commandl Click() Static y As Integer Dim z As Integer n=10 Z=n＋z y=y＋z x=x＋z Labell．Captlon=x Label2．Caption=y Label3．Caption=z End Sub 运行程序，连续3次单击命令按钮后，则3个标签中显示的内容是( )。A．10 10 10B．30 30 30C．30 30 10D．10 30 30
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml、标题为“标签”的窗体上画一个名称为Labell的标签，并设置适当属性以满足以下要求： ①标签的内容为“计算机等级考试”； ②标签可根据显示内容自动调整其大小； ③标签带有边框，且标签内容显示为三号字。 运行后的窗体如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图2所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．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
在窗体上画一个名称为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
在窗体上画两个滚动条，名称分别为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
在窗体上画两个组合框，其名称分别为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