首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为CD1的通用对话框,通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的操作,当选定了文件(例如:G:WBk2010 9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示,各菜单项的
窗体上有一个名称为CD1的通用对话框,通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的操作,当选定了文件(例如:G:WBk2010 9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示,各菜单项的
admin
2010-11-02
53
问题
窗体上有一个名称为CD1的通用对话框,通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的操作,当选定了文件(例如:G:WBk2010 9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示,各菜单项的名称和标题等定义如下表。
以下是单击“打开”菜单项的事件过程,请填空。
Dim mnuCounter As Integer
Pivate Sub mnuopen_Click()
CD 1 ShowOpen
If CD1.FileName<>””Then
Open ________For InputAs#1
mnuCounter=mnuCounter+1
Load FName(mnuCounter)
FName(mnuCounter).Caption=CD 1.FileName
FName(mnuCotInter)._______:True
Close#1
End If
End Sub
选项
答案
Cdl.FileName Visible
解析
语句Open Cd1.FileName For Input As≠1的作用是读取文件的内容,而Cd1.FileName属性就是打开文件操作时用户选中的in.txt文件的名字(包含文件的绝对路径),所以第一空填Cd1.FileName。由于菜单FName的visible属性是false,为了要将其显示,第二空须填Visible。
转载请注明原文地址:https://kaotiyun.com/show/iMmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
______类在定义数组时,不必限定数组的大小。
下列叙述中,正确的是
线性表L=(a1,a2,a3,…ai,…an),下列说法正确的是()。
关于线性表L=(a1,a2,a3,…,ai,…,an),下列说法中正确的是( )。
下列组件不能添加进Frame主窗口的是()。
文件操作中,用于移动文件指针到指定的位置的是
下列哪个选项是创建一个标识有“关闭”按钮的语句?
向容器添加新构件的方法是()。
Java开发环境设置包括【】设置和calsspa出设置。
随机试题
治疗快速房颤,减慢心室率应首选
能够准确检测子宫内膜癌肌层浸润深度的检查方法是
患者,男,74岁,肺炎,在输液时突然呼吸困难、咳嗽、咳粉红色泡沫样痰,听诊肺部布满湿啰音。出现上述症状,应该立即采取的措施不包括
企业选择银行时,除了要选用适宜的借款种类、借款成本和借款条件外,还应考虑的因素有()。
阅读《一个小官吏之死》这篇小说的片断,完成下列4题。一个极好的傍晚,一个同样极好的名叫伊万•德米特里奇•切尔维亚科夫的庶务官坐在剧院大厅第二排的围椅上,架上望远镜观看《哥纳维勒的钟》。他凝神注目,飘然欲仙。突然……在小说里经常遇到“突然”这两个字。
LosingamphibiansmeanslosingCoalminersonceusedthecanarybirdtodetect
Accordingtothepassage,acountry’seconomyisprobablydecidedby______.Whichofthefollowingstatementsaboutsmallbusi
A、Itispartoftheirlocalheritage.B、Itisanattractionoftourists.C、Itistherevivalofmorals.D、ItisthemiracleofG
A、DoctorThomas.B、DoctorThomas’wife.C、DoctorThomas’assistant.D、Themanagerofahotel.C此题为推断题。男士打电话到Thomas医生的办公室,女士接的电话
Abreakthrough(突破)intheprovisionofenergyfromthesunfortheEuropeanEconomicCommunity(EEC)couldbebroughtforwardb
最新回复
(
0
)