Question

请问如何用一个子过程在已知的字符串s中找出最长单词？

字符串s在文本框1中，通过一个命令按钮，要使最长的单词在文本框2中显示！
做了好久都做不到，谢谢了！

Answer 1

我费了好大功夫调出来的哦，把最佳答案给我啊 

Private Sub Command1_Click()

 Dim strText1, i, char, tempStr, S   'tempStr保存临时单词  S保存最长的字符串

 strText1 = Text1.Text

 For i = 1 To Len(strText1)       '遍历Text1字符串

  char = Mid(strText1, i, 1)      '取出每个字符

  If Not char = " " Then          '如果单词没有结束，空格是单词结束标志

    tempStr = tempStr & char             '生成单词

    If i = Len(strText1) Then GoTo last  '到达字符串末尾，则也是一个临时单词

   Else

last:

     If Len(tempStr) > Len(S) Then       '如果单词长度大于S长度

       S = tempStr                       'S中保存更长的字符串

     End If

     tempStr = ""                       '清空

     char = ""                          '清空

  End If

 Next i

 Text2.Text = S

End Sub