问题
填空题
设窗体上有一个名称为CD1的通用对话框,一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时,单击Command1按钮,则显示打开文件对话框,操作者从中选择一个文本文件,并单击对话框上的“打开”按钮后,则可打开该文本文件,并读入一行文本,显示在Text1中。下面是实现此功能的事件过程,请填空。
Private Sub Command1_Click()
CD1.Filter="文本文件1*.txt(Word文档)*.doc"
CD1.Filterinder=1
CD1.ShowOpen
If CD1.FileName<>" "Then
Open______For Input As # 1
Line Input #1,ch$
Close #1
Text1.Text=______
End If
End Sub
答案
参考答案:CD1.FileName ch
解析: FileName属性是用来设置或返回要打开的文件的路径及文件名,由if语句的判断当文件存在时,则打开该文件,以便从文件中读出记录。
语句Line Input#1,ch$是从文件1中读取一个完整的行,并把它赋给一个字符串变量ch,而本题要求该行文本要显示在Text.1中,故应该填ch。