又一个关于文本框的问题

Question

有一个多行文本框，如何知道哪一行最长？这最长的一行总计有多少字符？

Answer 1

dim arr() as string
arr = split(textBox1.Text,vbCrLf)
dim i as integer,line as integer,length as integer
for i = 0 to Ubound(arr)
   if len(arr(i)) > length then
      line = i + 1
      length = len(arr(i))
   end if
next

Answer 2

如何知道哪一行最长？line
这最长的一行总计有多少字符？length