首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有3个Label控件和2个命令按钮,命令按钮的名称为Commandl与Command2,标题为“读取”与“保存并退出”。考生文件夹下的数据文件in5
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有3个Label控件和2个命令按钮,命令按钮的名称为Commandl与Command2,标题为“读取”与“保存并退出”。考生文件夹下的数据文件in5
admin
2012-10-09
26
问题
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有3个Label控件和2个命令按钮,命令按钮的名称为Commandl与Command2,标题为“读取”与“保存并退出”。考生文件夹下的数据文件in5.txt存放一些字符。要求程序运行时,按“读取”按钮后,从考生文件夹下的in5.txt中读出数据并识别出其中的非字母元素,按“保存并退出”按钮后,将非字母元素写入考生文件夹下的out5.txt文件中(以标准格式在一行中输出);执行完毕,“读取”按钮变成“完成”,且无效(变灰),单击“保存并退出”按钮,程序结束,如图29—5所示。
注意:请将程序代码补充完整,但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的txt文件也保存到考生文件夹下,否则没有成绩。
选项
答案
本题主要考查文件的读入,根据一定的条件筛选后再输出到另一个文件中。其中用到了判断是否读到文件尾函数EOF()、将字符转换成ASCII码函数Ase()和求字符串长度函数Len()。补充后的代码如下: Dim str As String Private Sub Commandl_Click() Dim tmp As String str="" Open"App.Path&\in5.txt"For Input As#1 ’打开文件准备读取 While EOF(1)=
False
’读取文件知道文件尾 Input#l,trap ’将读取的文本放人trap中 str=str+trap’将tmp放入字符串中 Wend Commandl.Enabled=False’Commandl不可用 Commandl.
Caption
="完成" ’Commandl的Caption属性变为完成 End Sub Private Sub Command2_Click() Dim rel As String Dim tmp As String Dim i As Integer rel="" For i=1 To
Len
(str) ’利用for循环遍历字符串 tmp=Mid(str,i,1) ’逐个取出用来判断 If Asc(tmp)
Asc("z")Then rel=rel+trap’如果不是字母,则放人输出字符串中 End If Next i Open"App.Path &\out5.txt"For Output As#2 Print#2,rel’将得到的字符串写入文件 Close#2 Unload Me End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/QGO0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请填写下列空白,以实现运行后形成一个主对角线上元素值为1,其他元素为0的6×6阶矩阵。 PrivateSubCommand1Click() Dims(6,6) Fori=1To6 Forj=1To6
在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮,要求单击命令按钮时,打开一个保存文件的对话框,该窗口的标题为“Save”,缺省文件名称为“SaveFile”,在“文件类型”栏中显示*txt,则能够满足上述要
以下关于VisualBasic数据类型的说法,不恰当的是
单击窗体上的关闭按钮时,触发的事件是
表示滚动条控件取值范围最大值的属性是
在数据库管理系统提供的数据语言中,负责数据的模式定义与数据的物理存取构建的是
下列关系模型中,能使经运算后得到的新关系中属性个数多于原来关系中属性个数的是
下列说法错误的是
以下说法错误的是______。
算法执行过程中所需要的存储空间称为算法的
随机试题
新托马斯主义法学的主要代表人物是
InEngland,peopleoftentalkabouttheweatherbecausetheycanexperiencefourseasonsinoneday.Inthemorningtheweather
在医院感染控制委员会领导下建立的三级护理管理体系中,二级管理的执行者是
下列关于X射线透视的说法,正确的是
患者外感风邪,头痛较甚,伴恶寒发热,目眩鼻塞,舌苔薄白,脉浮。治疗宜选用
10岁女孩,左小腿轻微外伤后发热3天,左小腿上端肿胀,剧痛,局部皮温高,肤色正常,白细胞计数30×109/L,X线片未见明显变化,局部穿刺,针达骨膜下时抽出黄色脓液,首先应考虑为()
(2014年司考试题)因公司章程所规定的营业期限届满,蒙玛有限公司进入清算程序。关于该公司的清算,下列哪些选项是错误的?()
胰岛素(非制剂)()
在学前教育课程中,学科课程的优势是()。
WhatistheweatherlikeinthenorthernandeasternEnglandtoday?
最新回复
(
0
)