vb 编写一个程序,当任意输入一个英文句子,将此字符串中的最长的单词输出.若最长的单词有几个,则随便输一个.

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) '分解到数组
For i = LBound(sArr) To UBound(sArr)
If Len(sMax) < Len(sArr(i)) Then sMax = sArr(i) '最长的单词
Next
Print sMax: MsgBox sMax, vbOKOnly, "输出最长的单词"
End Su