再求VB程序

Private Sub Form_Load()
Dim a As String
Dim b() As String
Dim i As Integer
Dim j As Integer
Dim c As String

a = "i am a student"

b = Split(a, " ")

For i = 0 To UBound(b)
If Len(b(i)) > Len(c) Then
c = b(i)
End If
Next

MsgBox c

End Sub

自己到VB编程上 查找,这是一个例题~

``老大 `一段很长的耶``
你学的要是正规书本教程`
书上应该有``

楼上的代码好经典，顶。
For i = 0 To UBound(b)
If Len(b(i)) > Len(c) Then
c = b(i)
End If
Next
这段太棒了。

这有什么好精典的,段代有利也有弊，b = Split(a, " ")这句话是把字符串分开，如果你的字符串很长会造成很大的内存开销并浪费资源，建议你如果操作比较大的文件还是多考虑时间上和空间的平衡。