error(out of range)

[pa_darya]

با سلام میشه بگویید error این برنامه از چیه؟
لطفا هر چه زودتر پاسخ دهید
ممنون از شما
Private Sub Command1_Click()
Dim a() As String
a() = Split("parisa", "pa")
For i = 0 To 5
Print a(i)
Next i
End Sub

اینم errore

run time error 9
subscript out of range

 

[saalek110]

منبع:
http://visualbasic.about.com/od/learnvb6/l/blvbsplit.htm
-----------------------------------------
در کد زیر:

Private Sub Command1_Click()
Dim a() As String
a() = Split("A|B|C|D", "|")

For i = 0 To 3
Print a(i)
Next i

End Sub

اگر عدد 3 را 4 کنیم همان خطای شما بروز می کند.
چون آرایه مورد استفاده شامل 4 عضو است که A و B و C و D هستند. تابع Split کارش این است که یک جدا کننده می گیرد که در اینجا | است و بعد شق های بدست آمده را در یک آرایه می ریزد.

 

[saalek110]

شکل دیگر استفاده از این تابع به شکل زیر است:

Private Sub Command2_Click()
Dim myStr As String
    myStr = Split("A|B|C|D", "|")(2)
    MsgBox myStr
End Sub

که دیگه آرایه نگرفتیم و به تابع Split گفتیم که کدام عضو را در متغیر رشته ای(نه آرایه) بریزد.

 

[msnasiri]

خلاصش:
وقتی که اونو تیکه می کنه تیکه 5 نداره که بیاد به تو نشون بده
بهمین خاطر می گه out range (خارج از بازه)

 

[saalek110]

درسته.