استفاده از ارایه ها

[SaEed 10]

با سلام دوستان

میشه یه مثال از ارایه ها بزنید که چطوری تعریف میشوند و چطوری میتونم از اون استفاده کنیم بطور مثال میخوام یه کلمرو حرف به حرف بریزم داخل یه ارایه

خودم اینو نوشتم

Dim i As Int
Dim s  As String
Dim a1() As String
s = "saeed"
For i = 0 To s.Length -1
a1(i) = s.CharAt(i) 
Next
End Sub

حالا چطور میتونم به صورت msgbox نشونش بدم حرف به حرف

[مهدی ایزدی 9,203]

سلام و درود

Dim i As Int اضافیه . چون توی حلقه i رو تعریف میکنید دیگه نیازی نیست متغیر i رو از قبل تعریف کنید.

برای اینکه در مسیج باکس نمایش داده بشه فقط کافیه مسیج باکس رو درون حلقه ی For قرار بدید.

[SaEed 10]

سلام و درود

Dim i As Int اضافیه . چون توی حلقه i رو تعریف میکنید دیگه نیازی نیست متغیر i رو از قبل تعریف کنید.

برای اینکه در مسیج باکس نمایش داده بشه فقط کافیه مسیج باکس رو درون حلقه ی For قرار بدید.

اونو بلدم دوسته عزیزم متوجه منظور من نشدید من میخوام حرف هارو داخل ارایه بریزم بعدن از ارایه در جای دیگه اضافه کنم من نمیدونم چطوری بریزم تو ارایه و چطوری از ارایه نشون بدم

[مهدی ایزدی 9,203]

خب درست رفتید دیگه.

الان میشه:

a1(0)
a1(1)
a1(2)
...

هر جا هم دوست داشتید ازش استفاده کنید !

[SaEed 10]

خب درست رفتید دیگه.

الان میشه:

a1(0)
a1(1)
a1(2)
...

هر جا هم دوست داشتید ازش استفاده کنید !

من اینطوری مینویسم

msgbox (a(i) , "title") 

ولی جواب نمیگیریم