在考生文件夹下有一个工程文件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
参考答案：第一步：启动Visual Basic程序，打开考生文件夹下的工程文件。
第二步：双击窗体中的任何位置，进入代码编辑窗口，完善程序如下：
A Private Sub CommandA_Click( )
B Dim n As Integer, k As Integer, ch As String, a As String
C n=Len(TextA.Text)
D ch=
E For k=A To n
F a=Mid $ (TextA.Text，k，A)
G If OptionA.Value=True Then
H If a＞="a" And a ＜="z" Then
I ch=ch+UCase(a)
A0 Else If a＞="A" And a＜="A" Then
AA ch=ch+LChse(a)
AB Else
AC ch=ch+a
AD End If
AE End If
AF If OptionB.Value=TrueThen
AG ch=UCase(TextA)
AH End If
AI If OptionC.Value=TrueThen
B0 ch=LCase(TextA)
BA End If
BB Next k
BC TextB=ch
BD End Sub
第三步：单击启动键运行成功，按考试要求将文件保存在考生文件夹下。
解析： ①本题通过选中不同的单选按钮来实现文本框中字母的大小写转换。以单选按钮的值作为条件，用一个条件语句即可实现。
②Mid$(字符串，p，n)中部截取函数，从第p个字符开始向后截取n个字符。n省略时，将从P开始截取到字符串的末尾。在for循环中，要判断字符串中的每一字符的大小写，所以要截收每一个字符，所以有a=Mid$(Text1.Text，k，1)来依次截取文本框中字符串的每一个字符。
③当选中大写换小写，小写换大写时，如果经判断原字符为大写，则将它改为小写，所以有：ch=ch+LCase(a)。LCase(字符串)函数把字符串中的大写字母改为小写字母。
④转换结果存放在文本框Text2中，所以结束循环后有Text2=ch。