问题 填空题

窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的操作,当选定了文件(例如: G:\VB\2010-9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示。各菜单项的名称和标题等定义如下表。

以一下是单击“打开”菜单项的事件过程,请填空。

Dim mnuCounter As Integer

Private Sub tnnuOpen_Click()

CD1.Show0pen

If CD1.FileName<>""Then

Open (1) For Input As#1

mnuCounter=mnuCounter+1

Load FName(mnuCounter)

FName(mnuCounter).Caption=CD1.FileName

FName(mnuCounter). (2) =True

Close#1

End If

End Sub

答案

参考答案:(1) CD1.FileName(2) Visible

解答题
单项选择题