问题
填空题
窗体上有一个名称为CD1的通用对话框,通过菜单编辑器建立如下图左图所示的菜单。程序运行时,如果单击“文件”菜单项,则执行打开文件的操作,当选定了文件(例如G:\VB\2010-9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如下图右图所示,各菜单项的名称和标题等定义如下表所示。
各菜单项的名称和标题 | ||||
标题 | 名称 | 内缩 | 索引 | 可见 |
文件 | File | 无 | 无 | True |
打开 | mnuOpen | … | 无 | True |
关闭 | mnuClose | … | 无 | True |
mnu | … | 无 | True | |
(空) | FName | … | 0 | False |
Dim mnuCounter As Integer
Pivate Sub mnuOpen_Click()
CDl ShowOpen
If CD1.FileName<>" "Then
Open______For Input As#1
mnuCounter=mnuCounter+1
Load FName(mnuCounter)
FName(mnuCounter).Caption=CD1.FileName
FName(mnuCounter).______=True
Close#1
End If
End Sub
答案
参考答案:Cd1.FileName Visible
解析: 语句Open Cd1.FileName For Input As # 1的作用是读取文件的内容,而Cd1.FileName属性就是打开文件操作时用户选中的in.txt文件的名字(包含文件的绝对路径),所以第一空填Cd1.FileName。由于菜单FName的Visible属性是False,为了要将其显示,第二空须填Visible。