Question

VB 在text1中输入多个单词，并统计出总共单词数，找出长度最长的单词并显示倒texe1中

谢谢大家了，这是老师给我们布置的作业，希望师傅们尽快帮忙解答！

Answer 1

Option Explicit

Private Sub Command1_Click()
Dim s As String
Dim a
Dim i As Integer, max As Integer
If Text1.Text = "" Then MsgBox "请输入单词，以空格分割": Exit Sub
s = Trim(Text1.Text)
s = Replace(s, " ", " ")
a = Split(s, " ")
max = 0
For i = LBound(a) To UBound(a)
If Len(a(i)) > max Then max = Len(a(i))
Next
Text1.Text = ""
For i = LBound(a) To UBound(a)
If Len(a(i)) = max Then Text1.Text = Text1.Text & a(i) & " "
Next
End Sub

Answer 2

单词和单词的分割加入是空格！

Private Sub Command1_Click()
If Trim(Text1.Text) = "" Then Exit Sub
Dim i As Integer
Dim temp As String
Dim sum As Integer
Dim maxlenword As String
Dim ArrayWord
ArrayWord = Split(Text1, " ", -1, vbTextCompare)
sum = UBound(ArrayWord) + 1
maxlenword = ArrayWord(0)
For i = 0 To UBound(ArrayWord)
If Len(maxlenword) <= Len(ArrayWord(i)) Then
maxlenword = ArrayWord(i)
End If
Next

Text1 = maxlenword
End Sub