[多项选择题] 在考生文件夹下有一个工程文件sjt4.vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则

[多项选择题] 在考生文件夹下有一个工程文件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)

参考答案：

第一步：启动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。