给程序的空白行选择适当的语句。程序段的功能是:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。( ) Do While List2.List Count ______ List2.Removeltem0 Loop
A.List1.AddltemList2.List(0)
B.List1.Addltem List2.Text
C.List2.AddltemList1.List(0)
D.List2.AddltemList1.Text
第1题:
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目,然后单击命令按钮,将该项目从列表框删除。程序如下:
Private Sub Command1_Click()
Dim In As Integer
In=______
List.Remove Ind
End Sub
则在程序的空白行的语句是( )。
A.List1.Index
B.List1.ListIndex
C.List1.Text
D.List1.ListCount
第2题:
在窗体上画一个名称为Labell的标签和一个名称为Listl的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Label中显示所选中的项目,如下图所示。请在______和______处填入适当的内容,将程序补充完整。
Private Sub Form_Load()
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub List ______()
LabeCaption = ______
End Sub
第3题:
窗体上有一个命令按钮Commalld1和一个列表框List1。先选择列表框中的某一个项目,然后单击命令按钮,将该项目从列表框删除。程序如下: Private Sub Command1_Click() Dim In As Integer In=______ List.Removc Ind End Sub 则在程序的空白行的语句是( )。
A.List1.Index
B.List1.ListIndex
C.List1.Text
D.List1.ListCount
第4题:
在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Labell中显示所选中的项目,如图所示。请在______处填入适当的内容,将程序补充完整。
Private Sub Form. load()
Listl.AddItem “北京”
List1.AddItem “上海”
List1.AddItem “河北”
End Sub
Private Sub ______()
Labell.Caption=______
End Sub
第5题:
在窗体中添加一个列表框(ListBox1)和一个命令按钮,并编写如下代码: Private Sub Commandl_Click() Dim a, i, msg msg="Choose OK to add 100 items to your listbox." MsgBox msg For i=l To 100 a="a:" &i ListAddltem a Next i End Sub 程序完成的功能是 ( )
A.本程序使用Addltem方法增加100项给一个列表框
B.本程序使用Addltem方法向一个列表框中添加100项,其内容是数字1~100
C.本程序使用Addltem方法向一个列表框中添加的内容是1~100的和
D.本程序使用Addhem方法增加100个列表框