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

admin2018-09-29  30

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

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

答案B

解析 题干中给出的函数作用为删除参数字符串中与ch相同的字符,而在给出的程序段中,每次遍历str参数中的每一个字符,若其与cb相等,则将其连接到结果字符串中,这样显然是不合要求的,应该是若取出的字符和ch不等则将其连接到结果中,否则舍弃。因此,应将“If temp=ch Then”改为“If temp<>ch Then”
转载请注明原文地址:https://jikaoti.com/ti/S6m0FFFM
0

最新回复(0)