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

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

B.Private Sub Commandl_Click() Labe13.Caption=HScro111.Value*HScro112.Value End Sub

C.Private Sub Commandl_Cliek() Labe13.Caption=HScrolll*HScro112 End Sub

D.Private Sub Commandl_Click() Labe13.Caption=HScro111.Text*HScro112.Text End Sub


相关考题:

在窗体上画一个名称为Listl酌列表框,一个名称为Labell的标签,列表框中显示若干个项目。当单击列表框中的某个项目时,在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是:______。A. Private Sub Listl_Click() Labell.Caption=Listl.ListIndex End SubB.Private Sub Listl_Click() Labell.Name=Listl.ListIndex End SubC.Private Sub Listl_click() Labell.Name=Listl.Text End SubD.Private Sub Listl_Click() Labell.Caption=Listl.Text End Sub

在窗体上画一个名称为Listl的列表框,一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。A.Private Sub Listl_Click() Labell.Capfion=Listl.Listlndex End SubB.PrivateSubLial click() Labell.Name=Listl.Listlndex End SubC.PrivateSubListl click() Labell.Name=Listl.Text End SubD.Private Sub Listl_Click() Labell.Caption=Listl.Text End Sub

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

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

使用下图,窗体的名称为frnTest,窗体中有一个标签和一个命令按钮,名称分别为Label1和bChange 。在“窗体视图”显示该窗体时,要求在单击命令按钮后标签上显示的文字颜色变为红色,以下能实现该操作的语句是( )。A.label1.Fore(iolor=255)B.bCihange.ForeColor=255C.labell.ForeColor="255"D.bChange.ForeColor="255"

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

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

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

在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Labe11、Labe12的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1_C1ick() X=5:Y=3 Call proc(X,Y) LabeCaption=X LabeCaption=Y End Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是______。A.5和3B.25和3C.25和6D.5和6