vb里对输入的含空格字符串取最长字符串并单独列出字符串

18362374790

[Visual Basic] 纯文本查看 复制代码

Option Explicit
Dim s$, Maxword$, word$, c$, i%
Private Sub Command1_Click()
  Text2.Text = Maxword
  Text3.Text = word
End Sub

Private Sub Form_Load()
s = Trim(Text1.Text) & " "
word = "":   Maxword = ""
For i = 1 To Len(s)
 c = Mid(s, i, 1)
 If c <> "" Then
    word = word & c
 Else:
   If Len(word) > Len(Maxword) Then
     Maxword = word
  word = " "
  End If
End If
Next i
End Sub

大佬们，为什么我不能出结果啊