2. 计算机
  3. 在考生文件夹下有一个工程文件vbsj4．vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在txtlnput中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入txtResult(如图

在考生文件夹下有一个工程文件vbsj4．vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在txtlnput中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入txtResult(如图

admin2019-06-11  41
问题 在考生文件夹下有一个工程文件vbsj4．vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在txtlnput中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入txtResult(如图3-35所示)。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。
   
    注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码：
Private Sub cmdChange Click()
Dim n As Integer，k As Integer
Dim ch As String，a As String
    n=Len(txtInput．Text)
    Ch=" "
    For k=1 To n
′  a=Mid$(txtInput．Text，?，1)
    If Opt1．Valme=True Then
    If a>="a"And a<="z"Then
    ch=ch+UCase(a)
    E1SeIf a>="A"And a<="Z"Then
′  ch=ch+?
    E1se
    ch=ch+a
    End If
    End If
    If Opt2．Value=True Then
    ch=UCase(txtInput)
    End If
    If Opt3．Valme=True Then
    ch=LCase(txtInput)
    End If
    Next k
′  txtResult=?
End Sub
选项
答案审题分析 本题源程序功能是在命令按钮的单击事件过程中，用For循环语句和Mid函数逐一取出文本框txtInput中的字符后，根据单选按钮的选择进行相应转换：当选择“大小写互换”时，如果是小写字母就用UCase函数转换为大写，如果是大写字母就用LCase函数转换为小写，如果不是字母就不用转换；当选择“全部大写”时，就用UCase函数将文本框中所有字母转换为大写；当选择“全部小写”时，就用LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框txtResult中。 操作步骤 步骤1：打开考生文件夹中的本题工程文件vbsj4．vbp，在代码编辑窗口，去掉程序中的注释符“′”，将问号“?”改为正确的内容。 参考代码： a=Mid$(txtInput．Text，k，1) ch=ch+LCase(a) txtResult=ch 步骤2：按要求将文件保存至考生文件夹中。 考点链接 常用内部函数。
解析
转载请注明原文地址:https://kaotiyun.com/show/CRUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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