2. 计算机
  3. 有如下程序： Private Sub Form_Click() Dim x As String Dim n As Integer x = InputBox("输入一个英文单词（全部大写）") n = Len(x) F

有如下程序： Private Sub Form_Click() Dim x As String Dim n As Integer x = InputBox("输入一个英文单词（全部大写）") n = Len(x) F

admin2020-07-22  53
问题 有如下程序：
Private Sub Form_Click()
    Dim x As String
    Dim n As Integer
    x = InputBox("输入一个英文单词（全部大写）")
    n = Len(x)
    For i = 2 To n
        c = Asc(Mid(x)) + 32
        Mid(x, i, 1) = Chr(c)
    Next i
    Print x
End Sub
以上程序的功能是，从键盘上输入一个由大写字母组成的英文单词，保留第一个字母为大写，把后面的字母全变成小写。程序中有错误，应做的修改是
选项 A、把Mid(x)改为：Mid(x, 1)
B、把Mid(x)改为：Mid(x, i +1, 1)
C、把Mid(x)改为：Mid(x, i, 1)
D、把Mid(x)改为：Mid(x, i - 1, 1)
答案C
解析 主要是利用ASCII码中小写字母比对应的大写字母大32，通过For循环（i从2到字符串的长度），将字符串中第i位的字符取出，利用Asc转换函数得到对应的ASCII码值，将其加上32即为相应大写字母对应的ASCII值，再利用Chr转换函数，将ASCII码转换成为大写字母，并赋值给对应位置第i位字符。在取出第i位字符的语句错误，应改为 Mid(x， i， 1)，故选择C项。
转载请注明原文地址:https://kaotiyun.com/show/BXHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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