Label2 Caption= Label2 Caption Str(aver) End sub 5. Private Sub Commandl Click DimiAs integer List. clear For i= 40 To 300 Ifi Mod 7=0 Then listladdltem i End sub 6.即:书上21l页例95的主要部分 Private Sub Dirl Changeo Filel Path= Dirl Path"设置文件列表框路径 End sub Private Sub Drivel Changeo) Dirl Path= drivel.Drive 使目录列表框中的路径与驱动器列表同步变化 End subLabel2.Caption = Label2.Caption + Str(aver) End Sub 5. Private Sub Command1_Click( ) Dim i As Integer List1.Clear For i = 40 To 300 If i Mod 7 = 0 Then List1.AddItem i Next i End Sub 6. 即：书上 211 页例 9.5 的主要部分 Private Sub Dir1_Change( ) File1.Path = Dir1.Path '设置文件列表框路径 End Sub Private Sub Drive1_Change( ) Dir1.Path = Drive1.Drive '使目录列表框中的路径与驱动器列表同步变化 End Sub