'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下 Option Explicit Private Sub Command1_Click() Dim i As Long,arr,n As Long If InStr(Text1," ") > 0 Then arr = Split(Text1) For i = 0 To UBound(arr) If Trim(arr(i)) "" Then If Len(Trim(arr(i))) > n Then n = i End If Next MsgBox "最长单词：" & arr(n) End If End Sub