作者s3748679 (冷羽忆尘)
看板Visual_Basic
标题Re: [VB6 ] 请教关於option base 1的问题
时间Wed Jul 27 23:15:07 2011
※ 引述《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