更多"设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击"的相关试题:
[单项选择]设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是______。
A. Private Sub Form1_Click()
B. Private Sub Forml_Click()
C. Private Sub List1_Click()
D. Private Sub List1_Click()
[简答题]在名称为Form1的窗体上建立一个名称为List1的列表框。要求：在程序运行后，通过Form_Load（ ）事件过程加载窗体时，执行语句List1.AddItem”AAA，每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次，如图11-20所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sit2.vbp。
[单项选择]在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是______。
A. Private Sub List1_Click()
B. Private Sub List1_Click()
C. Private Sub List1_Click()
D. Private Sub List1_Click()
[单项选择]
窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序：
Private Sub Command1_Click（ ）
Dim str As String,s As String,k As Integer
s=Text1
str=""
For k=List1.ListCount-1 To 0 Step-1
IfInStr(List1.List(k),s)＞0 Then
str=str&List1.List(k)&" "
End If
Next k
If str="" Then
Text2="没有匹配项目"
Else
Text2=str
End If
End Sub
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（）。
A. 京
B. 北京 南京
C. 南京 北京
D. 没有匹配的项目
[填空题]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change（ ）事件和Dir1_Change（ ）事件，在这两个事件中执行的语句分别是 【8】 和 【9】 。
[单项选择]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_ Change事件过程中应使用的语句是______ 。
A. Dirve1.Drive=Dir1.Path
B. Dir1.Path=Drive1.Drive
C. Dir1.Path=File1.Path
D. File1.Path=Dir1.Path
[单项选择]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是______。
A. Dirve1. Drive=Dir1. Path
B. Dit1. Path=Drive1. Drive
C. Dir1. Path=File1. Path
D. File1. Path=Dir1. Path
[单项选择]窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框中删除。程序如下：
Privat Sub Command1_Click（ ）
Dim In As Intger
In=______
List.Remove In
End Sub
则在程序的空白处的语句是( )
A. List1.Index
B. List1.ListIndex
C. List1.Text
D. List1.ListCount
[填空题]假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl，如图20-10所示。当改变了驱动器列表框中的驱动器时，希望在目录列表框中显示相应驱动器的目录结构，可在Drive1_Change事件中输入语句 【7】 。
[单项选择]在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是
A. Drivel change B) Drive1_Click C) Dirl_Click D) Dirl_Change
[单项选择]在窗体上画一个名称为List1的列表框、一个名称为Labell的标签，列表框中显示若干城市名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是( )。
A. Private Sub List1_Click()
B. Private Sub List1_Click()
C. Private Sub List1_Click()
D. Private Sub List1_Click()
[填空题]在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。
下面是实现上述功能的程序，请填空。
Private Sub Form_Load（ ）
List1.AddItem "AAAAA"
List1.AddItem "BBBBB"
List1.AddItem "CCCCC"
List1.AddItem "DDDDD"
End Sub
Private Sub Command1_Click（ ）
Dim L1 As Integer
L1= 【12】
If L1 ＞=0 Then
List1.RemoveItem 【13】
Labell.Caption= 【14】
Else
MsgBox("请选择要删除的项目")
End If
End Sub
[单项选择]在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干国家的名称，当单击列表中的某个国家名时，在标签中显示选中国家的名称。下列正确实现上述功能的程序是( )。
A) Private Sub List1_Click（ ）
Labe11. Camion=List1. ListIndex
End Sub
B) Private Sub List1_Click（ ）
Labe11. Name=List1. ListIndex
End Sub
C) Private Sub List1_Click（ ）
Labe11.Name=List1. Text
End Sub
D) Private Sub List1_Click（ ）
Labe11. Caption=List1. Text
End Sub
[单项选择]在窗体上画一个名称为List1的列表框、一个名称为Label1的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从该列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是
A. Private Sub List1_Click()
B. Private Sub List1_Click()
C. Private Sub List1_Click()
D. Private Sub List1_Click()
