Re: [VB6 ] 請教關於option base 1的問題

[s3748679 (冷羽憶塵)]

※ 引述《stator (別急著吃棉花糖)》之銘言：
: 因在全域變數下了option base 1
: 代表陣列要從1開始，但為什麼印出來的資料還是從0開始算起的資料呢?
: 希望能請教版上前輩，我的程式如下
: Option Base 1
: Private Sub Command1_Click()
: a = InputBox("請輸入以，隔開的數字")
: b = Split(a, ",")
: Print b(1)
: End Sub
: 例如我輸入20，30，應該要output 20才對，但卻output 30，不知是為什麼
: 謝謝前輩的回答
Function SplitSP(Expression As String, Delimiter, _
                 Optional Limit As Long = -1, _
                 Optional Compare As VbCompareMethod = vbBinaryCompare)
                 As String()
    Dim t() As String
    t = Split(Expression, Delimiter, Limit, Compare)

    ReDim t2(1 To UBound(t) + 1) As String
    Dim i As Integer
    For i = 1 To UBound(t2)
        t2(i) = t(i - 1)
    Next

    SplitSP = t2
End Function

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.164.80.223