第2题
A.驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器
B.目录列表框DirListBox显示当前驱动器分层目录树
C.文件列表框FileListBox显示选定目录中的所有文件
D.文件列表框FileName属性是设定允许显示文件名的文件类型
第4题
A.Drive1_Change
B.Drive1_Click
C.Dir1_Click
D.Dir1_KeyPress
第6题
A.显示该路径下的文件
B.显示根目录下的文件名
C.显示当前驱动器或指定驱动器上的目录结构
D.显示当前驱动器或指定驱动器上的某目录下的文件名
第7题
A.直接退出
B. 关闭当前窗体,程序并不退出
C. 关闭当前窗体并显示消息框后,程序退出
D. 显示相息框,程序并不退出
第8题
如图16-10所示.在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”。请填空。 Private Sub Conmlandl_Click() Dim k As Integer, n As Integer, found As Boolean found=False n=Len(【 】) k=0 While k<List1. ListCount And Not found If Text1=Left $(List1. List(k), n)Then Text2=【 】 found=True End If k=k+1 Wend If Not found Then Text2="查无此人" End If End Sub
第9题
第10题
Private Sub Form_Load() List1.AddItem“北京” List1.AddItem“上海” List1.AddItem“河北” End Sub Private Sub List1_Dblclick() Label.Caption=【 】 End Sub
第11题
请在【 】和【 】处填入适当内容,将程序补充完整。 Private Sub Form_load() List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河北" End Sub Private Sub【 】() Label1.Caption=【 】 End Sub