[多项选择题]在考生文件夹下有一个工程文件sjt4.vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放在Text2中(如下图所示)。
在给出的文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的部分改为正确的内容。

试题源程序：
1PrivateSubCommand1Click()
2DimnAsInteger,kAsInteger,chAsString,aAsString
3n=Len(Text1.Text)
4ch=""
5Fork=1Ton
6’a=Mid$(Text1.Text，，1)
7IfOption1.Value=TrueThen
8Ifa＞="a"Anda＜="z"Then
9ch=ch+UCase(a)
10ElseIfa＞="A"Anda＜="Z"Then
11’ch=ch+
12Else
13ch=ch+a
14EndIf
15EndIf
16IfOption2.Value=TrueThen
17ch=UCase(Text1)
18EndIf
19IfOption3.Value=TrueThen
20ch=LCase(Text1)

提示：未搜索到的试题可在搜索页快速提交，您可在会员中心"提交的题"快速查看答案。

答案

查看答案

搜题

相关试题

[填空题]如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。
PrivateSubCommand1_Click()
DimkAsInteger，nAsInteger，foundAsBoolean
found=False
n=Len(______)
k=0
Whilek＜List1.ListCountAndNotfound
IfText1=Lefts(List1.List(k)，n)Then
Text2＝______
found＝True
EndIf
k＝k+1
Wend
IfNotfoundThen
Text2＝“查无此人”
EndIf
EndSub