2. 计算机
  3. 在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl，可以多行显示；还有3个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“打开文件”、“大写”和“保存”。程序运行时的窗体界面如图24—5

在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl，可以多行显示；还有3个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“打开文件”、“大写”和“保存”。程序运行时的窗体界面如图24—5

admin2012-10-09  33
问题 在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl，可以多行显示；还有3个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“打开文件”、“大写”和“保存”。程序运行时的窗体界面如图24—5所示。

    命令按钮的功能是：单击“打开文件”按钮，弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的in5．txt文件后，该文件中的内容显示Textl中；单击“大写”按钮，程序将把Text1中的所有小写英文字母转换成大写；单击“保存”按钮，把Text1中的内容存入考生文件夹下的out5．txt文件中。在窗体中已经给出了部分程序。
    注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in5．txt文件进行转换，并把转换结果通过“存盘”按钮存入考生文件夹下的out5．txt文件中，否则会影响成绩。   
选项
答案 本题主要考查通用对话框使用、顺序文件的打开和Ucase()函数的使用。 通用对话框(CommonDialog)提供打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。其Action属性用于设置被打开对话的类型，Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。例如，过滤器为*．txt表示显示所有的文本文件。语法为“对象名．Filter=“描述|文件扩展名””。 首先要根据ASCII码来判断是否为小写字母，然后再用Ucase函数将小写字母转换为大写字母，补充后的具体代码如下： Dim str AS String Private Sub Commandl_Click() Dim tmp As String str="" Commonl．Filter="文本文件(*．txt)|*．txt" Commonl．ShowOpen If Commonl．FileName◇""Then Open Commonl．FileName For Input As#1 ’如果文件存在则进行读取 While EOF(1)=False’判断是否读取完成 Input#1，trap str=str+tmp’将读取的字符串放入str Wend End If Close#1 Textl．Text=str’在Textl中显示读取的字符串 End Sub Private Sub Command2_Click() Textl．Text=UCase(Textl．Text) End Sub Private Sub Command3_Click() Open"App．Path&＼out5．txt"For Output As#1 Print#1，Textl．Text’将修改后的字符串写入文件中 Close#1 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/o3hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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