（ 8 ） 设窗体上有一个名称为 CD1 的通用对话框 ， 一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。程序执行时，单击 Command1 按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的 “ 打开 ” 按钮后 ， 则可打开该文本文件 ， 并读入一行文本 ， 显示在 Text1 中 。 下面是实现此功能的事件过程，请填空。

Private Sub Command1_Click()

C．D1.Filter =" 文本文件 1*.txt(Word 文档 )*.doc"

C．D1.Filterinder = 1

C．D1.ShowOpen

If CD1.FileName<>""Then

Open [9] For Input As #1

Line Input #1,ch$

C．lose #1

Text1.Text = [10]