为什么有点函数一定要返回值的?

Question

为什么有点函数一定要返回值的?  注意下面的代码不能通过, 只要把错误的那一行换为注释的文字就可以了.     请问为什么函数一定要返回一个值?  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 FunctionPrivate Sub Form_Load()
Dim result As String
sReplace("blackman", "man", "girl") 'result = sReplace("blackman", "man", "girl")End Sub

Answer 1

不要返回值的设为
sub sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)
XXXend sub
过程就行了，不要写成函数

Answer 2

将
sReplace("blackman", "man", "girl") 'result = sReplace("blackman", "man", "girl")改成CALL sReplace("blackman", "man", "girl") 'result = sReplace("blackman", "man", "girl")

Answer 3

函数可以没有返回值啊
那是你的语法错误sReplace("blackman", "man", "girl")换成：
sReplace "blackman", "man", "girl"记住不要返回值的时候不能用扩号