您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >   [多项选择题] 在考生文件夹下有一个工程文件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)
问题:
发布时间:2022-07-01

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

可能感兴趣的题目: