Question

VB编程题，求全部代码

输入一个英文句子，找出其中最长的英文单词，参考界面如图所示。具体要求： 1、窗体界面由3个标签、2个文本框、1个列表框和2个命令按钮组成，请参照参考界面完成所有对象的属性设置； 2、在文本框中输入英文句子后，单击"查找"按钮，在左侧列表框中显示句子中的各个英文单词，在右侧多行文本框中显示最长的英文单词，如果有多个单词的长度都是最长，均需按参考界面的形式显示出来； 3、单击"清除"按钮，将两个文本框和一个列表框清空，并将焦点置于第一个文本框中。
求大神。

Answer 1

Private Sub Clear_Click()

  Text1.Text = ""

  Text2.Text = ""

  List1.Clear

  Text1.SetFocus

End Sub

Private Sub Lookup_Click()

  Dim i As Integer, j As Integer, c As String, b(50) As String, k As Integer, t As String

  c = Me.Text1.Text

  For i = 1 To Len(c)

    Select Case Asc(Mid(c, i, 1))

      Case 65 To 90, 97 To 122

        b(k) = b(k) + Mid(c, i, 1)

      Case Else

        k = k + 1

        List1.AddItem b(k - 1)

    End Select

  Next i

  For i = 0 To k - 2

    For j = i + 1 To k - 1

      If Len(b(i)) < Len(b(j)) Then

        t = b(i)

        b(i) = b(j)

         b(j) = t

      End If

    Next j

  Next i

  Text2.Text = Text2.Text + b(0) + vbCrLf

  For i = 1 To k - 1

    If Len(b(i)) = Len(b(i - 1)) Then

      Text2.Text = Text2.Text + b(i) + vbCrLf

    Else

      Exit For

    End If

  Next i

End Sub