2. 计算机
  3. 考生文件夹下有一个工程文件sjt5.vbp，装入该工程文件。窗体上有一个名称为Text1 的文本框，三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读文件”、“删除”和“计算/保存”。程序运行后，单击“读文件”命令

考生文件夹下有一个工程文件sjt5.vbp，装入该工程文件。窗体上有一个名称为Text1 的文本框，三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读文件”、“删除”和“计算/保存”。程序运行后，单击“读文件”命令

admin2019-05-14  54
问题 考生文件夹下有一个工程文件sjt5.vbp，装入该工程文件。窗体上有一个名称为Text1 的文本框，三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“读文件”、“删除”和“计算/保存”。程序运行后，单击“读文件”命令按钮，将in5.txt 文件中的内容显示在Text1 中，如图1－302（a）所示；单击“删除”命令按钮，删除Text1中的字母“A”、“D”、“R”和“S”（小写字母也删），并将删除后的文本显示在Text1中，如图1－302（b）所示；单击“计算/保存”命令按钮，则计算当前Text1中显示的所有字符（删除后）的ASCII 码之和，并把结果保存到考生文件夹下的out5.txt 文件中。

    要求：
    1）要删除的字母不区分大小写。
    2）不要改变窗体中各控件的属性设置及事件过程。
    3）编写“计算/保存”按钮的事件过程。
    4）“删除”按钮的事件过程不完整，去掉程序中的注释符，把程序中的?改为正确的内容，使程序能正常运行。最后把修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： ch = Mid(Form1.Text1.Text, i, 1) tmpStr = tmpStr + ch 步骤2：按指定位置编写“计算/保存”按钮的单击事件过程。 参考代码： Private Sub Command3_Click() Dim i, j As Long Dim s As String s = Trim(Text1.Text) j = 0 For i = 1 To Len(s) j = j + Asc(Mid(s, i, 1)) Next Open "out5.txt" For Output As #1 Print #1, j Close #1 End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按＜F5＞键运行程序，先单击“读文件”按钮，接着单击“删除”按钮，最后单击“计算/保存”按钮。
解析
转载请注明原文地址:https://kaotiyun.com/show/VHUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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