2. 计算机
  3. 在名称为Forml的窗体上画一个文本框，名称为Textl，允许多行显示；再画三个命令按钮，名称分别为Cl、C2、C3，标题分别为“输入”、“转换”、“存盘”(如图1-104所示)。请编写适当的事件过程，使得在运行时，单击“输入”按钮，则从考生文件夹中读入i

在名称为Forml的窗体上画一个文本框，名称为Textl，允许多行显示；再画三个命令按钮，名称分别为Cl、C2、C3，标题分别为“输入”、“转换”、“存盘”(如图1-104所示)。请编写适当的事件过程，使得在运行时，单击“输入”按钮，则从考生文件夹中读入i

admin2010-09-02  62
问题 在名称为Forml的窗体上画一个文本框，名称为Textl，允许多行显示；再画三个命令按钮，名称分别为Cl、C2、C3，标题分别为“输入”、“转换”、“存盘”(如图1-104所示)。请编写适当的事件过程，使得在运行时，单击“输入”按钮，则从考生文件夹中读入in5．僦文件(文件中只有字母和空格)，放入Textl中；单击“转换”按钮，则把Textl中的所有小写字母转换为大写字母；单击“存盘”按钮，则把Textl中的内容存入out5．txt文件中。
注意：考生必须把转换后的内容用“存盘”按钮存入out5．txt文件，否则无成绩。考生的工程文件以文件名sjt5．vbp存盘，窗体文件以文件名sjt5．frm存盘。
选项
答案 【操作步骤】 步骤l：新建一个“标准EXE”工程，如表2-58在窗体中画出控件并设置其相关属性。 [*] 步骤2：打开代码编辑窗口，编写相应事件过程。 参考代码： Private Sub Cl_Click() Open"in5．txt"For Input As#1 Input#1，a$ Textl．Text=a$ Close#1 End Sub Private Sub C2_Click() aS=Textl．Text b$="" n=Len(aS) For i=1 To n b$=b$+UCase$(Mid$(aS，i，1)) Next Textl．Text=b$ End Sub Private Sub C3_Click() Open”out5．txt”For Output As#1 Print#1，Textl．Text Close#1 End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按键键运行程序，先单击“输入”按钮，接着单击“转换”按钮，然后单击“存盘”按钮保存转换后的数据。
解析 程序设计思路：在“读数”按钮的单击事件过程中，用Open语句以Input方式打开数据文件in5．txt，并用Input()函数读出所有字符后显示在文本框中；在“转换”按钮的单击事件过程中，通过For循环用Mid函数逐一取出文本框中的字符并转换成大写并且重新拼接在一起。
    在“保存”按钮的单击事件过程中，用Open语句以Output方式打开数据文件out5．txt，并通过For循环用Print#方法逐一将数组中的元素存入该文件。
转载请注明原文地址:https://www.kaotiyun.com/show/FUmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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