(8 ) 设窗体上有一个名称为 CD1 的通用对话框 , 一个名称为 Text1 的文本框和一个名称为 Comman
Private Sub Command1_Click()
CD1.Filter =" 文本文件 1*.txt(Word 文档 )*.doc"
CD1.Filterinder = 1
CD1.ShowOpen
If CD1.FileName<>""Then
Open [9] For Input As #1
Line Input #1,ch$
Close #1
Text1.Text = [10]
End If
End Sub