首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为CD1的通用对话框,通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的操作,当选定了文件(例如:G:WBk2010 9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示,各菜单项的
窗体上有一个名称为CD1的通用对话框,通过菜单编辑器建立如图1所示的菜单。程序运行时,如果单击“打开”菜单项,则执行打开文件的操作,当选定了文件(例如:G:WBk2010 9\in.txt)并打开后,该文件的文件名会被添加到菜单中,如图2所示,各菜单项的
admin
2010-11-02
76
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
下列对队列的叙述正确的是自
______的任务是诊断和改正程序中的错误。
C语言是面向过程的语言,Java语言是面向______的语言。
采用链接方式存储线性表的优点是______。
下列代表十六进制整数的是
在访问数据库时,为建立实际的网络连接,把URL、数据库用户名和密码传给Driver-Manager的方法是()。
一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为
对于一个两位的十进制正整数x,求它的十位数字Y(Y为整型)的表达式是( )。
Java开发环境设置包括【】设置和calsspa出设置。
下列JApplet对鼠标单击事件进行处理,当鼠标在JPanel中单击时,在JLabel中显示单击次数。请在横线处填写正确的代码【】。importjava.awt.event.*;importjavax.swing.*;imp
随机试题
2001年5月5日,甲拒绝向乙支付到期租金,乙忙于事务一直未向甲主张权利。2001年8月,乙因出差遇险无法行使请求权的时间为20天。根据《民法通则》的规定,乙请求人民法院保护其权利的诉讼时效期间是()。(2002年)
(2009年4月)不受1989年《死者遗产继承法律适用公约》所确定的准据法支配的有:_____;_____;_____;_____。
属于波特-劳勒综合激励过程模型中的内在回报是【】
患儿女,4岁。急诊入院,半小时前突然意识不清,瞳孔缩小,流涎,心(-),两肺痰鸣音,不发热,血压正常。此患儿如果做血液净化,最适合做
某男性患者,29岁。因车祸发生腹股沟处大量出血,现场医务工作者应该采取的止血方法是()
阴虚风动的病因是
背景我国北方某机场地处黄河岸边,飞行区等级为4C。2016年3月~2017年5月,该机场飞行区进行了改扩建。改扩建的基本内容为:(1)机场跑道向东南延长300m,道面加宽至45m;(2)在现有跑道上加盖沥青混凝土,沥青混凝土厚度为15cm,跑道延长部分也
有位家长抱怨“别的孩子聪明伶俐,能说会道,自己的孩子却口齿不清,笨手笨脚”。这位家长的说法与当代儿童观相违背的观点是()。
设A,B为3阶矩阵且A不可逆,又AB+2B=O且r(B)=2,则|A+4E|=()。
______thatsomeguestswerecoming,sheshoppedallmorninginthatsupermarket.
最新回复
(
0
)