Private Sub Command1_Click()
Dim s$, i%, sMax$, sArr$()
s = InputBox("任意輸入一個英文句子", "輸入英文", "Hello, this is a test command!")
s = Replace(s, ",", " ") '處理一些符號
s = Replace(s, ".", " ")
s = Replace(s, "!", " ")
s = Replace(s, ";", " ")
sArr = Split(s) '分解到數(shù)組
For i = LBound(sArr) To UBound(sArr)
If Len(sMax) < Len(sArr(i)) Then sMax = sArr(i) '最長的單詞
Next
Print sMax: MsgBox sMax, vbOKOnly, "輸出最長的單詞"
End Sub有沒有更詳細(xì)的意思啊？我不是很明白~特別這個（ Dim s$, i%, sMax$, sArr$()）Dim s$, i%, sMax$, sArr$()定義變量，相當(dāng)于Dim s As String, i As Integer, sMax As String, sarr() As String上面的，只不過是簡寫而已，呵呵。哦！謝謝