设窗体上有_个名为Listl的列表框,并编写下面的事件过程:
Private Sub Listl_Click()
Dim ch As String
ch=Listl.List(Listl.Listlndex)
Listl,RemoveItem Listl.ListIndex
Listl.Addltem ch
End Sub
程序运行时,单击一个列表项,则产生的结果是
A.该列表项被移到列表的最前面
B.该列表项被删除
C.该列表项被移到列表的最后面
D.该列表项被删除后又在原位置插入
第1题:
窗体上有一个列表框和一个文本框,编写如下两个事件过程: Private Sub Form_Load() List1.Addltem"Beijing" List1.Addltem"Tianjin" List1.Addltem"Shanghai", Text1.Text=" End Sub Private Sub Listl_Dbl Click() x=Listl.Text Printx+Textl.Text End Sub 程序运行后,在文本
A.China Beejing
B.China Tianjin
C.China Shanghai
D.Shanghai China
第2题:
设在窗体Forml上有一个列表框Listl,其中有若干个项目。要求单击列表框中某一项时,把该项显示在窗体上,正确的事件过程是。 A.Private Sub Listl_Click B.Private Sub Forml_Click Print Listl.Text Print Listl.Text End Sub End Sub C.Private Sub Listl_Click D.Private Sub Forml_Click Print Forml.Text Listl.Print Listl.Text End Sub End Sub
第3题:
(32)设窗体上有一个名为List 1的列表框,并编写下面的事件过程:
Private Sub Listl_C1ick()
Dim ch As String
Ch=Listl.List(List l .ListIndex)
Listl.RemoveItem Listl.ListIndex
Listl.AddItem ch
End Sub
程序运行时,单击一个列表项,则产生的结果是
A)该列表项被移到列表的最前面
B)该列表项被删除
C)该列表项被移到列表的最后面
D)该列表项被删除后又在原位置插入
第4题:
在窗体上画一个列表框和一个命令按钮,其名称分别为Listl和Commandl,然后编写如下事件过程 Private Sub Form_Load() Listl.Addltem"Iteml" Listl.Addltem"Item2" Listl.Addltem"Item3" End Sub Private Sub Commandl_Click() Listl.List(Listl.ListCount)="AAAA" End Sub 程序运行后,单击命令按钮,其结果为______。
A. 把字符串“AAAA”添加到列表框中,但位置不能确定
B.把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)
C.把列表框中原有的最后一项改为“A从A”
D.把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)
第5题:
在名称为Form1的窗体上建立一个名称为Listl的列表框。在程序运行后,通过Form. _Load事件过程加载窗体时,执行语句Listl.AddItem“Item1”和List1.Addltem“Item2”,每当单击列表项时,就将执行语句List1.AddItem List1.Text一次,如图6-2所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。
Private Sub List1_Click
List1.AddItem List1.Text
End Sub
单击按钮运行程序,并按要求保存。