国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

REM "獲取數(shù)組長(zhǎng)度"
Public Function ArrayLength(ByVal ary) As Integer
    ArrayLength = UBound(ary) - LBound(ary) + 1
End Function
REM "調(diào)用示例"
Sub SplitSample()
    '聲明
    Dim temp() As String
    Dim EgStr As String
    '執(zhí)行過程
    EgStr = "str1   str2    str3"
    temp = Split(EgStr, " ")
    MsgBox(ArrayLength(temp))

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。