在考生文件夹下有一个工程文件sjt4.vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放在Text2中(如下图所示)。
在给出的文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的部分改为正确的内容。


试题源程序：
1 Private Sub Command1 Click( )
2 Dim n As Integer, k As Integer, ch As String, aAs String
3 n=Len(Text1.Text)
4 ch=""
5 For k=1 To n
6 ’a=Mid $ (Text1.Text，，1)
7 If Option1.Value=True Then
8 If a＞="a" And a＜="z" Then
9 ch=ch+UCase(a)
10 Else If a＞="A" And a＜="Z" Then
11 ’ch=ch+
12 Else
13 ch=ch+a
14 End If
15 End If
16 If Option2.Value=True Then
17 ch=UCase(Text1)
18 End If
19 If Option3.Value=True Then
20 ch=LCase(Text1)
21 End If
22 Next k
23 ’Text2=
24 End Sub

在考生文件夹下有一个工程文件sjt4.vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放在Text2中(如下图所示)。
在给出的文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的部分改为正确的内容。


试题源程序：
1 Private Sub Command1 Click( )
2 Dim n As Integer, k As Integer, ch As String, aAs String
3 n=Len(Text1.Text)
4 ch=""
5 For k=1 To n
6 ’a=Mid $ (Text1.Text，，1)
7 If Option1.Value=True Then
8 If a＞="a" And a＜="z" Then
9 ch=ch+UCase(a)
10 Else If a＞="A" And a＜="Z" Then
11 ’ch=ch+
12 Else
13 ch=ch+a
14 End If
15 End If
16 If Option2.Value=True Then
17 ch=UCase(Text1)
18 End If
19 If Option3.Value=True Then
20 ch=LCase(Text1)
21 End If
22 Next k
23 ’Text2=
24 End Sub