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

A、把ret=ret&temp改为ret=temp
B、把If temp=ch Then改为If temp＜＞ch Then
C、把delchar=ret改为delchar=temp
D、把ret=""改为temp=""

【正确答案】 B

【答案解析】[解析] 本题要求删除字符串str中所有与变量ch相同的字符。temp=Mid(str, k, 1)表示从字符串str中每次取出一个字符，然后依次与ch进行比较。当temp的值与ch相同时，应该删除，否则连接。而程序中If temp=ch Then表示字符相同就连接起来。正好与题意相反，即本题答案为B。