Re: [VB6 ] 請教關於option base 1的問題
※ 引述《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
討論串 (同標題文章)