[size=3]要求：编写一个子过程MaxLength(s,MaxWord),在已知的字符串s中，找出最长的单词[size=6]MaxWord。代码如下：
  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 Len(s) > 0
      i = InStr(s, " ")
      word = Left(s, i - 1)
      If Len(word) > Len(Maxword) Then
         Maxword = word
      End If
      s = Mid(s, i + 1)
      word = ""
   Loop
   MaxLength = Maxword
End Function
  运行结果会出错，提示：“无效的过程调用或参数”，黄色光标停留在word = Left(s, i - 1)句上。[/size][/size]