UC知道VB 编程LEN()是什么意思?
来源：百度知道 编辑：UC知道 时间：2024/05/18 07:43:53
几天前正看一条程序(程序如下)
Private Sub Command1_Click()
text2.text = longest(text1)
End Sub
Function longest(S As String) As String
Dim p() As String, n As Integer
S = Replace(S, vbCrLf, " ")
p = Split(S, " ")
For i = 0 To UBound(p)
If Len(p(i)) > Len(p(n)) Then n = i
Next
longest = p(n)
End Function
但发觉"For i = 0 To UBound(p)
If Len(p(i)) > Len(p(n)) Then n = i
Next
longest = p(n)
End Function"这里不明白,请各位高手解答小弟的问题~~
谢谢!!
Private Sub Command1_Click()
text2.text = longest(text1)
End Sub
Function longest(S As String) As String
Dim p() As String, n As Integer
S = Replace(S, vbCrLf, " ")
p = Split(S, " ")
For i = 0 To UBound(p)
If Len(p(i)) > Len(p(n)) Then n = i
Next
longest = p(n)
End Function
但发觉"For i = 0 To UBound(p)
If Len(p(i)) > Len(p(n)) Then n = i
Next
longest = p(n)
End Function"这里不明白,请各位高手解答小弟的问题~~
谢谢!!
'UBound(p) 是得到动态数组的下标值，Len(p(i))是得到p(i)值的字符长度， Len(p(n))功能与上一样。n的初始值为0，i从0开始循环，如果前者的长度大于后者将i的值附给n，即将p(i)的值附给p(n),那么P(n)内保存的始终是字符长度最长的元素。函数longest()的功能就是以空格为分割符得到一段字符串中最长的子字符串。
len() 是求字符串长度的函数