以下是替换字符串中制定字符的函数过程： Function sReplace (SearchLine As String，SearchFor As String，Replace With AsString) As String Dim vSearchLine As String，found As Integer found=InStr (SearchLine，SearchFor)：vSearchLine=SearchLine If found ＜＞0 ThenvSearchLine=" "If found＞1 Then vSearchLine=Left (SearchLine，found -1)　　　　　　vSearchLine=vSearchLine+ReplaceWith　　　End If　　　If(表达式)＜Len(SearchLine)Then　　 　　vSearchLine=vSearchLine+Rights (SearchLine，Len (SearchLine)　　　　　　　　　　　　　　　　　　　　―found―Len(SearchFor)+1)　　　　　End If　　End If　　　　sReplace=vSeachLine　　End Function过程中的“表达式”应为( )。

A．found

B．found-1

C．found+Len(SearchFo

D．found+Len(SearchFo-1