2. 计算机
  3. 在考生文件夹下有一个工程文件sjt3．vbp，包含了所有控件和部分程序。程序运．行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标签labell．中；若是大写字母，则把它的小写形式显示在Iabell中，若是其他字符，则将该字

在考生文件夹下有一个工程文件sjt3．vbp，包含了所有控件和部分程序。程序运．行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标签labell．中；若是大写字母，则把它的小写形式显示在Iabell中，若是其他字符，则将该字

admin2020-04-08  38
问题 在考生文件夹下有一个工程文件sjt3．vbp，包含了所有控件和部分程序。程序运．行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标签labell．中；若是大写字母，则把它的小写形式显示在Iabell中，若是其他字符，则将该字符直接显示在Labell中。输入的字母总数则显示在标签LabeL2中，如图所示。
    要求：去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Dim n As Integer Private Sub Textl change() Dim ch As String ch=Right$(Text，1)’通过Right 函数从Textl中取l位 If ch＞=＂A＂And ch＜=＂Z＂Then′ 判断ch的范围是否在A～Z中 Labell．Caption=Lcase(ch)′将大写的ch转换为小写 n=n+1′累加大写字符个数 ElseIf ch＞=＂a＂And ch＜=＂ Z＂Then ′判断ch是否为小写字母 Labell．Caption=Ucase(ch) ′将ch转换为大写 n=n+1′累加小写字符个数 ElSe Labell．Caption=ch′当不在字母范围内，则直接赋值显示 End If Label2．Caption=n′Label2中显示满足条件的个数 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】Lcase()函数为大写字母转换成小写字母，Ucase()函数小写字母将转换成大写字母，在做题的时候要注意区别。
解析 通过Right()函数获取输入的字符，通过kase()函数和ucase()函数实现字母大小写的转换。
转载请注明原文地址:https://kaotiyun.com/show/jATp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)