为什么有点函数一定要返回值的?
为什么有点函数一定要返回值的? 注意下面的代码不能通过, 只要把错误的那一行换为注释的文字就可以了. 请问为什么函数一定要返回一个值?
Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)
Dim vSearchLine As String, found As Integer
found = InStr(SearchLine, SearchFor): vSearchLine = SearchLine
If found <> 0 Then
vSearchLine = ""
If found > 1 Then vSearchLine = Left(SearchLine, found - 1)
vSearchLine = vSearchLine + ReplaceWith
If found + Len(SearchFor) - 1 < Len(SearchLine) Then _
vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1)
End If
sReplace = vSearchLine
End Function
Private Sub Form_Load()
Dim result As String
sReplace("blackman", "man", "girl") 'result = sReplace("blackman", "man", "girl")
End Sub