[多項選擇題] 在考生文件夾下有一個工程文件sjt4.vbp，窗體上有兩個文本框、三個單選按鈕和一個命令按鈕。運行時，在Text1中輸入若干個大寫和小寫字母，并選中一個單選按鈕，再單擊“轉(zhuǎn)換”按鈕，則按選中的單選按鈕的標(biāo)題進行轉(zhuǎn)換，結(jié)果放在Text2中(如下圖所示)。

在給出的文件中已經(jīng)給出了全部控件，但程序不完整，要求：去掉程序中的注釋符，把程序中的部分改為正確的內(nèi)容。

試題源程序：

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

①本題通過選中不同的單選按鈕來實現(xiàn)文本框中字母的大小寫轉(zhuǎn)換。以單選按鈕的值作為條件，用一個條件語句即可實現(xiàn)。 ②Mid$(字符串，p，n)中部截取函數(shù)，從第p個字符開始向后截取n個字符。n省略時，將從P開始截取到字符串的末尾。在for循環(huán)中，要判斷字符串中的每一字符的大小寫，所以要截收每一個字符，所以有a=Mid$(Text1.Text，k，1)來依次截取文本框中字符串的每一個字符。 ③當(dāng)選中大寫換小寫，小寫換大寫時，如果經(jīng)判斷原字符為大寫，則將它改為小寫，所以有：ch=ch+LCase(a)。LCase(字符串)函數(shù)把字符串中的大寫字母改為小寫字母。 ④轉(zhuǎn)換結(jié)果存放在文本框Text2中，所以結(jié)束循環(huán)后有Text2=ch。