Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub
Dim word As Variant,s As String
Dim k As Integer,maxw As String,n As Integer
s = Replace(Replace(Text1.Text,","," "),"."," ")
s = Replace(Replace(s,","," "),"."," ")
s = Replace(s,vbCrLf," ")
s = Trim(Replace(s," "," "))
If s = "" Then Exit Sub
word = Split(s," ")
n = UBound(word)
For k = 0 To n
If n = k Then Exit For
If Len(CStr(word(k + 1))) > Len(maxw) Then
maxw = word(k + 1)
End If
Next
MsgBox maxw & "=" & Len(maxw) & "字節(jié)"
End Sub我要改我追問(wèn)的。。。謝謝哦，我看一下，就怕看別人代碼測(cè)試了，沒(méi)有看到問(wèn)題，你是在什么情況下有的提示錯(cuò)？經(jīng)過(guò)空測(cè)試，錯(cuò)誤：應(yīng)該在 s = Text1.Text 下面判斷：if s="" then exit sub