考生文件夹下有一个工程文件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：打开考生文件中的本题工程文件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 >键运行程序，先单击“读文件”按钮，接着单击“删除”按钮，最后单击“计算/保存”按钮。
步骤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 >键运行程序，先单击“读文件”按钮，接着单击“删除”按钮，最后单击“计算/保存”按钮。
【答案解析】