Question

VB编一子过程MaxLength(s.MaxWord)出现问题

Private Sub Command1_Click()
Dim s As String, Maxword As String
s = Text1.Text
MaxLength s, Maxword
Text2.Text = Maxword
End Sub

Public Function MaxLength(s As String, Maxword As String)
Dim i%, l%
Maxword = ""
Do While s = ""
i = InStr(s, "")
l = Len(s)
word = Left(s, i - 1)
If Len(word) > Len(Maxword) Then
Maxword = word
End If
s = Mid(s, i + 1, l)
Loop
End Function

这个语句 能力出现错误 运行不了

Answer 1

大大的错误，好好看看传值传址吧。MaxLength(s As String, Maxword As String)
s，maxword都是传入的，传出可以用maxlength，也可以用别的变量。
--------------------改成这样试试---------------------
Private Sub Command1_Click()
Dim s As String, Maxword As String
s = Text1.Text
Text2.Text =MaxLength （s, Maxword）
End Sub

Public Function MaxLength(s As String, Maxword As String)as string
Dim i%, l%
Maxword = ""
Do While s = ""
i = InStr(s, "")
l = Len(s)
word = Left(s, i - 1)
If Len(word) > Len(Maxword) Then
Maxword = word
End If
s = Mid(s, i + 1, l)
Loop
MaxLength= Maxword
End Function