首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并
在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并
admin
2019-05-14
60
问题
在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并显示在文本框(Text1)中;单击“修改内容”按钮,则将Text1中的大写字母“E”、“N”、“T,’改为小写,把小写字母“e”、“n”、“t”改为大写;单击“保存文件”按钮,则弹出“另存为”对话框,默认文件类型为“文本文件”,默认文件夹为考生文件夹,默认文件为“out5.txt”(如图2所示),单击“保存”按钮,则将Text1中修改后的内容存到out5.txt文件中。
窗体中已经给出了所有控件和程序,但程序不完整,去掉程序中的注释符,把程序中的?改为正确的内容,并编写“修改内容”按钮的Click事件过程。
注意:考生不得修改已经存在的程序。必须把Text1中修改后的内容用“保存文件”按钮存储结果,否则无成绩。最后,按照原文件名将程序存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”。将问号改为正确的内容。 参考答案 Private Sub Commandl C1ick() Dim s As String CommonDialogl.Filter="所有文件|*.*|文本文件|*.txt"’设置过滤条件,过滤文件类型 CommonDialogl.FiIrerIndex=2’指定文件类型列表框中的值为所有文件 On Error GoTo openerr’如果出错则转回openerr CommonDialogl.InJ tDir=App.Path’指定打开对话框中的初始目录为App.Path CommonDialogl.ShowOpen’显示打开对话框 Open CommonDialog1.FileName For Input As #1’打开指定文件 Input #1,s’读取文件到s Close #1’关闭文件 Text1.Text=s’s中记录了读取内容 openerr: End Sub Private Sub Command2 C1ick() ’考生需要编写的程序 Dim ch As String Dim s As String Dim n As Long s=Text1.Text Text1.Text="" For n=1 To Len(s)’查找文本中的"E"、"N"、"T"、"e"、"n"、"t"并做相应的改变 ch=Mid(s,n,1) If ch="E"Or ch="N"Or ch="T"Then ch=Lease(ch)’将大写字母转换为小写 ElseIf ch="e"Or ch="n’Or ch="t"Then ch=UCase(ch)’将小写字母转换为大写 End If Text1.Text=Text1&ch Next n End Sub Private Sub Command3 C1ick() CommonDialogl.Filter="丈本文件|*.txt|所有文件|*.*" CommonDialog1.FilterIndex=1。指定文件类型列表框中的值为文本文件 On Error GoTo openerr CommonDialog1.FileName="out5.txt"’所选文件默认名 CommonDialog1.InitDir=App.Path CommonDialog1.Action=2’显示另存为对话框 Open CommonDialog1.FileName For OutputAs #1 Print #1,Text1 Close #1 OPenerr: End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘,如图3.30所示。 [*]
解析
转载请注明原文地址:https://kaotiyun.com/show/CUUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的输出结果为()。S1=“1”:S2=“2”:S1=Val(S1)+VaI(S2):S2=Val(“12”)IfS1◇S2ThenPrintS1-S2ElsePrintS2一S1
设计窗体时双击窗体的任何位置,将打开()。
窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndType
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为ComTestl。设窗体Forml标题为“MyForml”,双击控件数组中的第3个按钮,打开代码编辑器,编写如下代码:PrivaeSubComTestl——Click(Index
下列各种窗体事件中,不能由用户触发的事件是()。
设在工程中有一个标准模块,并定义了如下类型:TypeStutypeinoAsIntegerstmameAsString*20strsexAsString*2smarkAsSingle
假定有如下的Sub过程:SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程:Priv
随机试题
工作转速为1500r/min的转子,其振动频率为( )Hz。
Nothingsays"HappyBirthday!"likehavingacoinreleasedinyourhonorbytheUnitedStatesMint(铸币局),and2009hasbecomean
乳腺向外引流的淋巴管路线有
下面不会出现窦性心动过缓的是
与脐同一平面的椎体是
A.疼痛如针刺,痛处固定B.气短,倦怠乏力,伴有出血,脉软弱细微、舌淡等C.胸胁胀满,窜痛,兼见痞块刺痛拒按,舌紫暗或有瘀斑等D.大出血的同时见四肢厥冷,大汗淋漓,脉微细欲绝等E.少气懒言,乏力自汗,面色苍白或萎黄,心悸失眠,舌淡气血两虚证可见
“老童家腊羊肉”是()的名菜。
技能性的特点是学前儿童音乐教育区别于其他学科教育的明显特征之一。()
Didyouexamineyourpapermoneyclosely?Seeifyoucanlocatea$5,$10,or$20billprintedbefore1964andmarked"FederalR
•Lookatthestatementsbelowandthe5passagesabouttheEuropeanMonetarySystem.•Whichpassage(A,B,C,DorE)doeseac
最新回复
(
0
)