[填空題] 在窗體form1上有一個驅動器列表控件Drivel，一個目錄列表控件Dirl，一個文件列表控件File1，一個富文本控件Richtexbox1。要求程序運行以后，用戶可以利用。Drivel選擇不同驅動器，同時Dirl中顯示當前選中的驅動器的目錄，用戶利用Dirl選擇文件所在的文件夾，在Filel控件中將顯示當前選中的文件夾下的文件，用戶選中其中某個文件(假設為文本文件)，則該文件的內容顯示在控件Richtexboxl中。補充相應的語句，使之完成所述的功能。 Private Sub Dirl_Change() 【8】 End Sub Private Sub Drive1_Change() 【9】 End Sub Private Sub Filel _Click() Dim fname AS String If 【10】 Then fname=Filel．Path & Filel．FileName Else fname=Filel．Path& "" & Filel．FileName End If RichTextBox1．LoadFile(fname) End Sub

[8]File1.Path＝Dir1.Path [9]Dirl.Path＝Drive1.Drive [10]Right $(Dir1．Path，1)＝"")

先看空【8】處，要使得文件列表控件與目錄列表控件同步(也就是當目錄列表控件中目錄改變時，文件列表控件中應該始終顯示當前選中的目錄下的文件)，應該使用語句File1.Path=Dir1.Path；接下來，在空【9】處為了使得目錄列表控件與驅動器列表控件保持同步，應該使用的語句為Dirl.Path＝Drive1.Drive；在空【10】處，是要使當前選中的文件的內容顯示在富文本控件中，需要注意的是，在使用富文本控件 Rich TextBox1 的LoadFile方法時，參數(shù)應該是包括路徑和文件名的filename值。