在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2,标题分别为空白和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同

admin2009-01-15  50

问题 在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2,标题分别为空白和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签kabel1中显示当前文件夹中文件的数量,如图所示。     

能够正确实现上述功能的程序是  

选项 A、Private Sub Dir1_Change(   )         Filc1.Path=Dir1.Path                 End Sub                           Private Sub Drive1_Change(    )         Dir1.Path=Drive1.Drive               Label1.Caption=File1.ListCount         End Sub
B、Private Sub Dir1_Change(    )      File1.Path=Dir1.Path  End Sub Private Sub Drive1_Change(  )    Dir1.Path=Drive1.Drive    Label1.Caption=File1.List     End Sub
C、Private Sub Dir1_Change(  )            File1.Path=Dir1.Path                 Label1.Caption=File1.ListCount         End Sub                               Private Sub Drive1_Change(  )               Dir1.Path=Drive1.Drive                   Label1.Caption=File1.ListCount         End Sub
D、Private Sub Dir1_Change(   )      File1.Path=Dir1.Path      Label1.Caption=File1.List      End Sub         Private Sub Drive1_Change(   )         Dir1.Path=Drive1.Drive      Label1.Caption=File1.List        End Sub

答案4

解析 List属性用来列出表项的内容,可以加下标用“( )”括起来配合使用。根据题意,应选择文件列表框的ListCount属性,该属性用于返回文件的数量值。故B、D项错误。A项缺少“Label1.Caption=File1.ListCount”这一语句,从而使得在仅触动Dir1的Change事件时,Label1l没有反应。
转载请注明原文地址:https://jikaoti.com/ti/5R80FFFM
0

最新回复(0)