(9) 在窗體上加上一個(gè)文本控件PCSTextBox，畫(huà)一個(gè)命令按鈕，當(dāng)單擊命令按鈕的時(shí)候?qū)�顯示"打開(kāi)文件"對(duì)話(huà)框，設(shè)置該對(duì)話(huà)框只用于打開(kāi)文本文件，然后在文本控件中顯示打開(kāi)的文件名。請(qǐng)?zhí)羁铡?/P>

　　Private Sub Command1_Click()

　　CommonDialog1.Filter= 【12】

　　CommonDialog1.ShowOpen

　　PCSTextBox.Text= 【13】

　　End Sub

　　正確答案: 1.("Text Files(*.txt) |*.txt") 2.(CommonDialog1.FileName)

　　(10) 隨機(jī)文件使用Put語(yǔ)句寫(xiě)數(shù)據(jù)，使用 【14】 語(yǔ)句讀數(shù)據(jù)。

　　正確答案: 1.(Get)

　　(11) 下列程序的功能是：將數(shù)據(jù)1，2，…，8寫(xiě)入順序文件Num.txt中，請(qǐng)補(bǔ)充完整。

　　Private Sub Form_Click()

　　Dim i As Integer

　　Open "Num.txt"For Output As #1

　　For i=1 To 8

　　【15】

　　Next i

　　Close #1

　　End Sub

　　正確答案: 1.(Print #1, i)