Question

编写VB程序,在文本框中输入一个简单的英文句子,找出这个句子中最长的单词

Answer 1

'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下 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 Su