[试题]在窗体上画一个名称为 Combo1 的组合框,然后画两个名称分别为 Label1 、 Label2 ,标题分别为 /" 城市名称 /" 和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在 Label2 中给出提示 /" 已成功添加新输入页。 /" ,如图所示。如果输入的项目已存在,则在 Label2 中给出提示 /" 输入项已在组合框中。 /" 。请填空。Private Sub Combol_KeyP
[试题](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
[试题]在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2,如图所示,程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。请填空。Private Sub Combo1_Click()C.all ShowItem(Combo1, Label1)E.nd SubPrivate Sub Combo2_Click()C.all ShowItem(Combo2, Label2)E.nd SubPublic Sub Sh
[单选题]在窗体上画一个组合框Combo1和一个命令按钮Command1,然后编写如下两个事件工程:Private Sub form. Activate( a = Combo1. List (1) Print aEnd SubPrivate Sub form_ Load () Combo1. AddItem "11" Combo1. AddItem "22" Combo1. Addltem "33"End Sub窗体上打印出来的结果是______。A.11B.22C.33D.0
[单选题]( 17 )设在窗体上有 1 个名称为 Combo1 的组合框 , 含有 5 个项目 , 要删除最后一项 ,正确的语句( )A. ) Combo1.RemoveItem Combo1.TextB. ) Combo1.RemoveItem4C. ) Combo1.RemoveItem Combo1.ListCountD. ) Combo1.RemoveItem5
[单选题]在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个名称为Command1的命令按钮,并编写如下事件过程:Private Sub Command1_ Click()C.ommonDialogFlags = cd10FNHideReadOnlyC.ommonDialogFilter= "All Files (*.*) |*.* |Text Files" &"(*.txt |*.txt|Batch Files (*.bat)|*.bat)"C.ommonDialo
[单选题]在窗体上画一个名称为Text1的文体框,然后画一个名称为HScrolll的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示。以下能实现上述操作的程序段是A.Private Sub Hscroll1_Change( ) Text1.Text=Hscroll1.Value End SubB.Private Sub Hscroll1_Click( ) Text1.Text=Hscroll1.Value End SubC.Private
[单选题]在窗体上画一一个名称为Text1的文本框,然后画一个名称为Hscroll1的滚动条,其Min和Max属性分别为0和1 000。程序运行后,如果移动滑块,则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。
[单选题]在窗体上画一个名称为Combo1的组合框,名称为Text1的文本框,以及名称为Command1的命令按钮,如图运行程序,单击命令按钮,将文本框中被选中
[单选题]在窗体上画一个名称为Commandl的命令按钮,再画两个名称分别为Labell、Lubd2的标签,然后编写如下程序代码:Private X As IntegerPrivate Sub Commandl_Click()X=5:Y=3C.all proc(X,Y)Labell.Caption=XLabel2.Caption=YE.nd SubPrivate Sub proc(a As Integer,ByVal b As Integer)X=a*aY=b+bE.nd Sub程序运行后,单击命令按钮,