2. 计算机
  3. 在考生文件夹下有一个工程文件sj5．vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5．txt文件(如图30—5所示)，单击“打开”按钮，则把文件中的内容读

在考生文件夹下有一个工程文件sj5．vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5．txt文件(如图30—5所示)，单击“打开”按钮，则把文件中的内容读

admin2010-07-13  33
问题 在考生文件夹下有一个工程文件sj5．vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5．txt文件(如图30—5所示)，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Textl)中；单击“修改内容”按钮，则将Textl中的大写字母“E”、“N”、“T’’改为小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，则弹出“另存为”对话框，默认文件类型为“文本文件”，默认文件夹为考生文件夹，默认文件为“out5．txt”(如图30—6所示)，单击“保存”按钮，则将Textl中修改后的内容存到out5．txt文件中。

    注意：窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符(即“’”号)，把程序中的“?”改为正确的内容，并编写“修改内容”按钮的Click事件过程。考生不得修改已经存在的程序。必须把Textl中修改后的内容用“保存文件”按钮存储结果，否则无成绩。最后，按照文件名将程序存盘。
选项
答案 本题主要考查文件操作，通用对话框的InitDir、Filterlndex、Filter和Action，通用对话框的ShowOpen方法，For循环语句，If判断选择语句，App．Path相对路径，Mid()函数，Len()函数，Ucase()函数以及Lease()函数。根据题意，编写如下代码： Option Explicit Private Sub Commandl_Click() Dim S As String CommonDialogl．Filter="所有文件|*．*|文本文件|*．txt" CommonDialogl．FilterIndex=2 On Error GoTo openerr CommonDialogl．InitDir=App．Path CommonDialogl．ShowOpen Open CommonDialogl．FileName For Input As#1 Input#1，S Close#1 Textl．Text=s openerr； End Sub Private Sub Command2 Click() 考生需要编写的程序 Dim ch As String Dim S As String Dim n As Long s=Textl．Text Textl．Text="" For n=1 To Len(s) ch=Mid(s，n，1) If eh="E"Or ch="N"Or ch="T"Then ch=LCase(ch) Elself ch="e"Or ch="n"Or ch="t"Then ch=UCase(ch) End If Textl．Text=Textl&ch Next n End Sub Private Sub Command3 Click() CommonDialogl．Filter="文本文件|*．txtl所有文件|*．*" CommonDialogl．FilterIndex=1 On Error GoTo openerr CommonDialogl．FileName="out5．txt" CommonDialogl．InitDir=App．Path CommonDialogl．Action=2 Open CommonDialogl．FileName For Output As#l Print#1，Textl Close#1 openerr： End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/pLmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)