下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果,例如:若str=”ABCDABCD”,ch=”B”,则函数的返回值为:”ACDACD” Function delchar(str As String,ch As St

admin2010-11-02  29

问题 下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果,例如:若str=”ABCDABCD”,ch=”B”,则函数的返回值为:”ACDACD”
  Function delchar(str As String,ch As String)As String
    Dim kAs Integer,temp As String,ret As String
    ret=””
    For k=1 To Len(str)
    temp=Mid(str,k,1)
    If temp=ch Then
    ret=ret&temp
    End If
    Next k
    delchar=ret
  End Function
  但实际上函数有错误,需要修改,下面的修改方案中正确的是(    )。

选项 A、把ret=ret&temp改为ret=temp
B、把If temp=ch Then改为Iftemp<>ch Then
C、把delchar=ret改为delchar=temp
D、把ret=””改为temp=””

答案B

解析 Mid函数用于提取字符串中的指定位数。Len函数的作用是返回串的长度。本题中,Fork=1 To Len(str),语句的作用是每次循环提取str串中的一个字符,语句temp=Mid(str,k,1)的作用是将提取的字符存入字符变量temp中,然后将temp和用户欲删除的字符做比对,若不同,则将此字符插入的字符串ret的末尾。循环结束ret中保存的就是不包含用户欲删除字符的字符串,也就是题目要求的字符串了。所以选B。
转载请注明原文地址:https://kaotiyun.com/show/KMmp777K
0

最新回复(0)