问答题

在考生文件夹下有一个工程文件djks024.vbp，其窗体上有一个文本框，名称为Text1，可以多行显示；有一个名称为ComDia的通用对话框；还有三个命令按钮，名称分别为Cmd1、Cmd2、Cmd3，标题分别为“打开”、“转换”、“存盘”。如下图所示。
命令按钮的功能是：单击“打开”按钮，弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的in024.txt文件后，该文件中的内容显示在Text1中；单击“转换”按钮，程序将把Text1中的所有小写英文字母转换成大写，所有大写字母转换为小写；单击“存盘”按钮，把Text1中的内容存入考生文件夹下的out024.txt文件中。窗体模块中的程序是不完整的。请去掉程序中的注释符，把程序中的改为正确的内容。但不能修改程序的其他部分，也不能修改控件的属性。
注意：
考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in024.txt文件进行转换，并把转换结果通过“存盘”按钮存入考生文件夹下的out024.txt文件中，否则无成绩。
程序运行时的窗体界面如下图所示。

[试题源程序]
1 Private Sub Cmd1_Click()
2 Dim a As String
3 ComDia.Filter=“所有文件｜**｜文本文件｜*.txt｜word文件｜*.doc”
4 ’ComDia.FilterIndex=（1）
5 ’ComDia.Action=（2）
6 ’Open ComDia.（3）For Input As #1
7 Input #1，a
8 Close #1
9 Text1.Text=a
a)End Sub
10 Private Sub Cmd2_Click()
11 Dim a As String
12 Dim b As String
13 Dim C As String
14 Dim i As Integer
15 Dim n As Integer
16 a=Text1.Text
17 b="’"
18 n=Asc("a")-Asc("A")
19 For i=1 To Len(a)
20 C=Mid$(a，i，1)
21 If C＞="a"And C＜="z"Then
22 C=（4）(1，Asc(c)-n)
23 ElseIf c＞="A"And C＜="Z"Then
24 c=String(1，Asc(c)十n)
25 End If
26 b=b+c
27 Next i
28 Text1.Text=b
29 End Sub
30 Private Sub Cmd3_Click()
31 ComDia.FileName="out024.txt"
32 ’ComDia.Action=（5）
33 Open ComDia.FileName For Output As #1
34 Print # 1，Text1.Text
35 Close # 1
36 End Sub