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

21 查阅

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

①本题通过选中不同的单选按钮来实现文本框中字母的大小写转换。以单选按钮的值作为条件，用一个条件语句即可实现。 ②Mid$(字符串，p，n)中部截取函数，从第p个字符开始向后截取n个字符。n省略时，将从P开始截取到字符串的末尾。在for循环中，要判断字符串中的每一字符的大小写，所以要截收每一个字符，所以有a=Mid$(Text1.Text，k，1)来依次截取文本框中字符串的每一个字符。 ③当选中大写换小写，小写换大写时，如果经判断原字符为大写，则将它改为小写，所以有：ch=ch+LCase(a)。LCase(字符串)函数把字符串中的大写字母改为小写字母。 ④转换结果存放在文本框Text2中，所以结束循环后有Text2=ch。

计算机考试