问题 多项选择题

在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个文本框,名称分别为Text1和Text2,Text2可以多行显示;有一个名称为Command1的通用对话框;还有3个命令按钮,名称分别为Command1、Command2和Command3,标题分别为“打开文件”、“删除”和“保存”。程序运行时窗体界面如下图所示。


命令按钮的功能是:单击“打开文件”按钮,弹出打开文件对话框,默认打开文件的类型为“Text Files(*.txt)”。选择考生文件夹下的in5.txt文件后,该文件中的内容显示在Text1中;单击“删除”按钮,程序将把Text1中的所有与Text2中相同的字符串删除,并将结果显示在Text1中;单击“保存”按钮,把Text1中的内容存入考生文件夹下的out5.txt文件中。在窗体中已经给出了部分程序。
要求:请去掉程序中的注释符,把程序中的改为正确的内容。但不能修改程序中的其他部分,也不能修改控件的属性。编写“删除”按钮的Click事件过程,最后把修改后的文件按原文件名存盘。
注意:考生不得修改已有的程序和控件的属性,必须对考生文件夹下的in5.txt文件进行转换,并把转换结果通过“保存”按钮存入考生文件夹下的out5.txt文件中,否则无成绩。

答案

参考答案:第一步:启动Visual Basic,打开考生文件夹下的工程文件sjtE.vbp。
第二步:将B个Text控件、C个Command控件和A个CommonDialog控件添加到窗体上。Text的名称分别为TextA和TextB,Text属性为空;Command的名称分别为CommandA、CommandB和CommandC,Caption属性分别为“打开文件”、“删除”和“保存”;ComrnonDialog控件需要选择“工程”→“部件”命令,或在左侧工具箱中单击鼠标右键,选择“部件”菜单,打开“部件”对话框,将Microsoft CommonDialog Control F.0前面的复选按钮勾上,单击“确定”按钮,则添加成功,再与其他控件一样添加到窗体上,其名称为CommonA。双击窗体中的任何位置,进入程序编辑窗口,填写代码如下:
A Dim str As String
B Private Sub CommandA_Click( )
C Dim tmp As String
D str=""
E CommonA. DialogTitle="打开" ’设置CommonDialog对话框标题
E CommonA. InitDir=".\" ’设置起始目录
G CommonA.Filter="Text Files(*.txt)|*.txt" ’设置选取的文件类型
H CommonA. FileName="" ’文件名为空
I CommonA. ShowOpen ’打开CommonDialog
A0 If CommonA. FileName<>""Then
AA Open CommonA. FileName For Input As#A ’如果文件存在则进行读取
AB While EOF(A)=False
AC Input#A, tmp ’判断是否读取完成
AD str=str+tmp ’将读取的字符串放入str
AE Wend
AF End If
AG Close #A
AH TextA. Text=str ’在TextA中显示读取的字符串
AI End Sub
B0
BA Private Sub CommandB_Click( )
BB Dim tmp As String
BC Dim rel As String
BD Dim i As Integer
BE rel=""
BF For i=A To Len(str)-Len(TextB. Text)
BG tmp=Mid(str, i,Len(TextB.Text)) ’读取其中的字符串
BH If TextB. Text=tmp Then ’如果该段字符串与TextB输入的相同
BI tmp="" ’则将该段置为""
C0 rel=tel+tmp
CA i=i+Len(TextB. Text)-A ’并向后移动TextB的长度减A位
CB Else
CC rel=rel+Mid(tmp,A,A)
CD End If
CE Next i
CF TextA. Text=rel ’在TextA中显示修改后的字符串字符串
CG End Sub
CH
CI Private Sub CommandC_Click( )
D0 Open". \outE. txt" For Output As#A
DA Print #A. TextA. Text \将修改后的字符串写入文件中文件中
DB Close#A
DC End Sub
第三步:程序编写完毕,调试正确后,运行并将结果保存,最后以原文件名保存到考生文件夹下。

解析: 本题主要考查数据的输入输出。

解答题
问答题 简答题