首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并
在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并
admin
2016-06-23
35
问题
在考生文件夹下有一个工程文件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 Command1_Click() Dim s As String CommonDialog1.Filter="所有文件|*.*|文本文件|*.txt"’设置过滤条件,过滤文件类型 CommonDialog1.FilterIndex=
2
’指定文件类型列表框中的值为所有文件 On Error GoTo openerr’如果出错则转回openerr CommonDialog1.InitDir=App.Path’指定打开对话框中的初始目录为App.Path CommonDialog1.ShowOpen’显示打开对话框 Open
CommonDialog1.FileName
For InputAs#1’打开指定文件 Input#1,s’读取文件到S Close#1’关闭文件 Text1.Text=
s
’s中记录了读取内容 OPenemr: End Sub Private Sub Command2 Click() ’考生需要编写的程序 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=LCase(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 Click() CommonDialog1.Filter="文本文件|*.txt|所有文件|*.*" CommonDialog1.FilterIndex=1’指定文件类型列表框中的值为文本文件 On Error GoTo openemr 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/ZcLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
给定年份,下列程序用来判断该年是否为闰年,请填空。提示:闰年的条件是年份可以被4整除但不能被100整除,或者能被400整除。PrivateSubComand6_Click()DimyAsIntegery=Input
在长度为64的有序线性表中进行顺序查找,最坏情况下需要比较的次数为
通过对话框中能打开“颜色对话框”的方法是
以下程序段执行后整型变量n的值为()。n=0Fori=1to20Step5n=n+1Nexti
已知变量X、Y为整型,且x=4,y=12,S为字符串型,且s=a,1blok为标签控件,下列赋值语句合法的是()。
下列叙述中错误的是
以下说法不正确的是
双击窗体中的对象后,VisualBasic将显示的窗口是
设Y是整形变量,能判断Y为奇数的表达式是
下列运算符中,优先级别最高的是
随机试题
患者,女性,40岁。有发热、全身关节酸痛、紫癜样皮疹1年,既往有反复支气管哮喘、过敏性鼻炎发作史2年。血常规检查:WBC10.1×109/L,中性粒细胞68%.,嗜酸性粒细胞16%.。IgE升高。p-ANCA阳性。该患者最可能的诊断是
在治疗心功能不全时,应用洋地黄的临床意义在于
男,55岁,左侧颈肩痛两年多,时轻时重,近一月疼痛加重,向左上肢放射痛,查体:左颈椎5~6棘突旁压痛,颈僵硬,左颈肩部活动受限,肩关节外展幅度减小,其周围皮肤感觉减退,压头试验阳性。
发音训练中,属于构音点相同的组合训练是
为避免关键工作延误对工期影响所采取的措施,不合理的是()。
甲公司适用的所得税税率为25%,所得税采用资产负债表债务法核算。甲公司申报2016年年度企业所得税时,涉及以下事项:(1)2016年,甲公司应收账款年初余额为3000万元,坏账准备年初余额为零;应收账款年末余额为24000万元,坏账准备年末余额为20
根据外商投资企业法律制度的规定,下列关于合营企业场地使用权的表述中,正确的有()。
甲集团是ABC会计师事务所的常年审计客户。A注册会计师负责审计甲集团2014年度财务报表,确定财务报表整体的重要性为200万元。资料一:A注册会计师在审计工作底稿中记录了审计计划,其内容摘录如下:(1)乙公司负责甲集团公司主要原材料的进口业务,通过外
Manhasbeenstoringupusefulknowledgeabouthimselfandtheuniverseattheratewhichhasbeenspiralingupwardfor10,00
A、Sheattendedoneoftheirmeetings.B、Herroommateisamember.C、Shereadabouttheminthenewspaper.D、Shesawthemprotest
最新回复
(
0
)