更多"窗体上有名称为Command 1的命令按钮，名称分别为List 1、L"的相关试题:
[单项选择]窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中Listl的MultiSelect属性设置为1(Simple)，并有如下事件过程：
Private Sub Command1_Click（ ）
For i=0 To List1.ListCount-1
If List1.Selected(i)=True Then
List2.AddItem Text
End If
Next
End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是______。
A. 将For循环的终值改为List1.ListCount
B. 将List1.Selected(i)=True改为List1.List(i).Selected=True
C. 将List2.AddItem Text改为List2.Addltem List1.List(i)
D. 将List2.AddItem Text改为List2.AddItem List1.ListIndex
[填空题]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。为了使它们同步操作，必须触发Drive1_Change( )事件和Dir1_Change( )事件，在这两个事件中执行的语句分别是 (8) 和 (9) 。
[填空题]窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有一个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。请填空。
Private Sub Form_Load（ ）
File1.Pattern= (13)
End Sub
Private Sub Drive1_Change（ ）
Dir1.Path=Drive1.Drive
End Sub
Private Sub Dir1_Change（ ）
File1.Path=Dir1.Path
End Sub
Private Sub File1_DblClick（ ）
Dim S As String*1
If Right(File1.Path,1)="/"Then
f_name=File1.Path+Filel.FileName
Else
f_name=Filel.Path+"/"+Filel.FileName
End If
Open f_name (14) As#1
Text1.Text=" "
Do While (15)
s=Input(1，#1)
Text1, Text=Text1.Text+S
Loop
Close#1
End Sub
[单项选择]在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：
Private Sub Form Load（ ）
List1.AddItem "Item 1"
List1.Addltem "Item 2"
Listl.Addltem "Item 3"
End Sub
Private Sub Command1 Click（ ）
Listl.List(Listl.ListCount)="AAAA"
End Sub
程序运行后，单击命令按钮，其结果为
A. 把字符串“AAAA”添加到列表框中，但位置不能确定
B. 把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)
C. 把列表框中原有的最后一项改为“AAAA”
D. 把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)
[单项选择]窗体上有名称为List 1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是
A. List 1．AddItem"Basic"
B. List 1．List(List 1．ListIndex)="Basic"
C. List 1．Text="Basic"
D. 以上都可以
[单项选择]窗体上有名称为List1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是______。
A. List1.AddItem "Basic"
B. List1.List(List1.Listlndex)="Basic"
C. List1.Text="Basic"
D. 以上都可以
[单项选择]窗体上有一个命令按钮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
[单项选择]窗体上有一个列表框控件List1。以下叙述中错误的是
A. List1中有ListCount-1个列表项
B. 当List1.Selected(i)=True，表明第i项被选中
C. 设置某些属性，可以使列表框显示多列数据
D. List1.Text的值是最后一次被选中的列表项文本
[填空题]窗体中有一组文件系统控件，分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1，在它们下面有一个图片框pic1。要求选择一个bmp文件，即单击文件列表框中的某个文件时，将该文件显示在图片框中。请在空白处填入适当的内容，将程序补充完整。
Option Explicit
Private Sub File1_Click（ ）
Dim fn As String
If Len(Dir1.Path)=3 Then
Fn=Dir1.Pach+File1.FileName
Else
Fn=Dir1.Path & "/"&______
End if
Pic1.AutoSize=True:Pic1.ScaleMode=vbPixels
Pic1.Picture=______
End Sub
Private Sub Form Load（ ）
File1.FileName="*.bmp"
End Sub
Private Sub Dir1_Change（ ）
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change（ ）
Dir1.Path=Drive1.Drive
End Sub
[单项选择]设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是______。
A. List1.List
B. List1.ListIndex
C. List1.Text
D. List1.Index
[单项选择]在窗体上画一个名称为List1的列表框，然后编写如下程序：
Private Sub Form_Click（ ）
For i=1 To 10
Item="Item" &i
List1.Addltem Item
Next i
End Sub
程序运行时，单击窗体，所完成的功能是______。
A. 向列表框中添加10个项目
B. 向列表框中添加11个项目
C. 向列表框中添加10个数字
D. 向歹0表框中添加1～10的和
[单项选择]窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序：
Private Sub Command1_Click（ ）
Dim i，s
For i=0 To List1．ListCount
s=s+List1．List(i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，则窗体上显示的是
A. 0
B. 10
C. 01234
D. 程序出错
