首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件。程序运行时,单击”读入文件”按钮,将显示一个”打开”对话框,可以在该对话框中选择考生文件夹下的文本文件in4.txt,并把该文件的内容显示到Textl文本框中。 要求:请去掉程序中的注
在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件。程序运行时,单击”读入文件”按钮,将显示一个”打开”对话框,可以在该对话框中选择考生文件夹下的文本文件in4.txt,并把该文件的内容显示到Textl文本框中。 要求:请去掉程序中的注
admin
2019-06-11
32
问题
在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件。程序运行时,单击”读入文件”按钮,将显示一个”打开”对话框,可以在该对话框中选择考生文件夹下的文本文件in4.txt,并把该文件的内容显示到Textl文本框中。
要求:请去掉程序中的注释符,并把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
步骤1:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符”’“,将问号”?”改为正确的内容。 参考代码: Private Sub Commandl_Click( ) Dim n As Long CDl.FileName=““ CD1.Filter=“所有文件|*.*|文本文件 |*.txt | Word文档|*.doc” CD1.FilterIndex=2 CD1.ACtion=1 If CD1.FileName<> ““Then Open CD1.FileName For Input As#1 n=LOF(1) Textl=Input$(n,#1) ClOse #1 EndIf End Sub 步骤2,按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/z8Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面能够将某个变量声明为局部变量的是
如果要定义一个窗体级变量,定义变量语句的位置应该是
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:PrivateTypeRecordIDAsInteger:NameAsString*20EndTypePrivateSubCommand1_Click()DimM
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPfivateSubFor
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为“零点”)。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返回fix)
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:PrivateSubfune(LAsLabe1)PrivateSubCommand1_Click()L.Caption="1234
随机试题
国务院部、委员会制定的规章可以在法律、行政法规规定的给予行政处罚的行为、种类和幅度的范围内作出具体规定。
集成运放的传输特性分为两个区:线性区和______。
铜绿假单胞菌感染应选用
取乳香粉末少许,与水共研,能形成
由于市场机制解决不了公正的收入分配问题,所以市场经济需要()。
下列框架结构烧结多孔砖砌体填充墙的构造要求,错误的是:
古希腊古典时期的雕刻家波留克列特斯撰写了()一书,提出人的头与身体的比例为1:7。
在Word文档中有一个占用3页篇幅的表格,如需将这个表格的标题行都出现在各页面首行,最优的操作方法是
Apersonwithgoodmannersispopularwithothersbecause______.Ifyoureceivesomethingfromothers,youareexpectedtosay"
Anewbatchofyoungwomen—membersoftheso-calledMillennial(千禧的)generation—hasbeenenteringtheworkforceforthepastdec
最新回复
(
0
)