填空题

设窗体上有一个名称为CD1的通用对话框、一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click() CD1.Filter="文本文件|*.txt|Word文档|*.doc" CD1.FilterIndex=1 CD1.ShowOpen If CD1.FileName＜＞"" Then Open For Input As #1 Line Input #1, Ch$ Close #1 Text1.Text= End If End Sub