当前位置:IT认证>BASIC题库

问题:[多项选择题]

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

  

参考答案: 第一步:启动VisualBasic程序,打开考生文件夹下的工程文件。第二步:双击窗体中的任何位置,进入代码编辑窗口,完善程序如下:APrivateSubCommandA_Click()BDimnAsInteger,kAsInteger,chAsString,aAsStringCn=Len(TextA.Text)Dch=EFork=ATonFa=Mid$(TextA.Text,k,A)GIfOptionA.Value=TrueThenHIfa>="a"Anda<="z"ThenIch=ch+UCase(a)A0ElseIfa>="A"Anda<="A"ThenAAch=ch+LChse(a)ABElseACch=ch+aADEndIfAEEndIfAFIfOptionB.Value=TrueThenAGch=UCase(TextA)AHEndIfAIIfOptionC.Value=TrueThenB0ch=LCase(TextA)BAEndIfBBNextkBCTextB=chBDEndSub第三步:单击启动键运行成功,按考试要求将文件保存在考生文件夹下。

  参考解析

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

微信端