VB编一子过程MaxLength(s,MaxWord)，在字符串s中，找出最长单词

VB编一子过程MaxLength(s,MaxWord)，在字符串s中，找出最长单词

Private Sub Command1_Click()
Call maxlength(Text1, n)
Text2 = n
End Sub

Sub maxlength(s, maxword)
maxword = ""
For n = 1 To 10000
i = InStr(s, " ")
If i = 0 And Len(s) > 0 Then i = Len(s) + 1
word = Left(s, i - 1)
If Len(word) > Len(maxword) Then
maxword = word
End If
If i >= Len(s) Then Exit For
s = Right(s, Len(s) - i)
Next n
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息