1、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确的程序代码，然后删除？及所有注释符号（即 '号），但不能修改其它部分。修改后的程序文件都保存，存盘时不得修改文件夹和文件名。
本题描述如下：
在窗体上有一个名为Text1的文本框，有三个命令按钮，名称分别是C1、C2和C3，标题分别是"读入"、"加密"和"存盘"。要求程序运行后，点击"读入"按钮，将文本文件in7.txt（该文件在考生文件夹下）中的文本信息读入文本框Text1中；点击"加密"按钮将Text1中的英文字母加密转换，并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如，转换前的字母是"a"，则转换后的是"c"，转换前是"E"，转换后是"G"；点击"存盘"按钮，则将转换后的文本框中的文本保存到out7.txt文件中（该文件保存到考生文件夹下）。
Private Sub C1_Click()
Dim strinfo As String
Open "in7.txt" For Input As 1
Input #1, strinfo
Close #1
Text1.Text = strinfo
End Sub
Private Sub C2_Click()
Dim strchange As String
Dim i As Integer
For i = 1 To Len(Text1.Text)
strchange = strchange + Chr(Asc(Mid(Text1.Text, i, 1)) + 2)
Next
Text1.Text = strchange
End Sub
Private Sub C3_Click()
Open "out7.txt" For Output As 1
Print #1, Text1.Text
Close #1
End Sub
2、（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：
在窗口中有一个RichText文本框控件（名称为rtx1）和一个文本框控件（名称为Text1），两个命令按钮，名
称分别为Command1和Command2，标题分别为"加入WY01.TXT"、"统计字符个数"。要求程序运行后，单击command1将考生文件夹下的wy01.txt的内容显示到rtx1中；单击"统计字符个数"按钮统计Text1中有多少个字符，将结果显示在Text1中。
Option Explicit
Private Sub Command1_Click()
rtx1.LoadFile App.Path + "\wy01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text <> "" Then
Text1.Text = Len(rtx1.Text)
End If
End Sub
\
3、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。
本题描述如下：
在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件prog8a.dat存放一些字符。
1）按"开始"按钮后,能从考生文件夹下的prog8a.dat中读出数据并分别统计出其中数字、大写字母、小写字母和其它类型字符的个数，将结果写入考生文件夹下的prog8b.dat文件中（以标准格式在一行中输出）；2）执行完毕，"开始"按钮变成"完成"，且无效（变灰）
Private Sub COMSTART_Click()
Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer
myfile1 = App.Path & "\" & "prog8a.dat"
myfile2 = App.Path & "\" & "prog8b.dat"
Open myfile1 For Input As #1
Open myfile2 For Output As #2
While Not EOF(1)
Input #1, Ch$
If Asc(Ch$) >= 48 And Asc(Ch$) <= 57 Then
Number = Number + 1
ElseIf Asc(Ch$) >= 65 And Asc(Ch$) <= 90 Then
Cp = Cp + 1
ElseIf Asc(Ch$) >= 97 And Asc(Ch$) <= 122 Then
Lp = Lp + 1
Else
Others = Others + 1
End If
Wend
Print #2, Number, Cp, Lp, Others
Close
COMSTART.Caption = "完成"
COMSTART.Enabled = False
End Sub
4、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。
本题描述如下：
在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件grade.dat存放一些成绩。
1）按"开始"按钮后，从考生文件夹下的grade.dat中读出数据并求出它们的平均数，将结果写入考生文件夹下的average.dat文件中；
2）执行完毕，"开始"按钮变成"完成"，且无效（变灰）
