设有如下函数: Function DelSpace(ch As String)As Integer   Dim n%, st$, c$   st=""   n=0   For k=1 To Len(ch)     c=Mid(ch, k, 1)     I

admin2018-05-08  26

问题 设有如下函数:
Function DelSpace(ch As String)As Integer
  Dim n%, st$, c$
  st=""
  n=0
  For k=1 To Len(ch)
    c=Mid(ch, k, 1)
    If c<>" " Then
      st=st & c
    Else
      n=n+1
    End If
  Next k
  ch=st
  DelSpace=n
End Function
函数的功能是(  )。

选项 A、统计并返回字符串ch中字符的个数
B、删除字符串ch中的空格符,返回删除字符的个数
C、统计并返回字符串ch中非空格字符数
D、删除字符串ch中除空格符外的其他字符,返回删除字符的个数

答案B

解析 过程中对传入的字符串的字符一个个取出,判断如果不是空格则依次连接到一个字符串变量中,如果是空格则计数加1。最后,返回不包含空格的字符串和空格的个数。因此选项B正确。
转载请注明原文地址:https://jikaoti.com/ti/7Cy0FFFM
0

最新回复(0)