更多"在窗体上画两个滚动条,名称分别为Hscroll1、Hscroll2;六"的相关试题:
[单项选择]在窗体上画两个滚动条,名称分别为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()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[单项选择]在窗体上画两个滚动条,名称分别为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( )
B. Private Sub Command1_Click( )
C. Private Sub Command1_Click( )
D. Private Sub Command1_Chek( )
[单项选择]在窗体上画两个滚动条,名称分别为Hscro111、Hscro112;六个标签,名称分别为Labell、 Labe12、Labe13、Labe14、Labe15、Labe16,其中标签Labe14~Labe16分别显示“A”、“B”、 “A*B”等文字信息,标签Labe11、Labe12分别显示其右侧的滚动条的数值, Labe13.显示A*B的计算结果。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命令按钮“计算”时,对标签Labe11、Labe12中显示的两个值求积,并将结果显示在Labe13中。以下不能实现上述功能的事件过程是______。
A. Private Sub Commandl_Click() Labe13.Caption=Str(Val(LabelCaptio*Val(Labe12.Capfio) 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
[单项选择]在窗体上画两个滚动条,名称分别为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()
B. Private Sub Command1_Click()
C. Private Sub Commandl_click()
D. Private Sub Command1_Click()
[单项选择]在窗体上画两个标签和一个命令按钮,其名称分别为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. 1234和100
B. ABCD和100
C. 1234和10
[填空题]在窗体上画两个组合框,其名称分别为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
[填空题]在窗体上画两个组合框,其名称分别为Combo1、Comb02,然后画两个标签,名称分别为Label1、 Labe12。要求程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。
Private Sub Comb01_Click( )
Call ShowItem(Combo1,Labe11)
End Sub
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Labe12)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
______.Caption=______.Text
End Sub