PDA

View Full Version : سوال: پيدا كردن طول آرايه



ali_ahr7
سه شنبه 06 بهمن 1388, 13:57 عصر
سلام به همه مهندسين محترم.
خواستم بپرسم چطوري ميشه طول(ايندكس) يك آرايه رو پيدا كرد.ممون

mohammadi4net
سه شنبه 06 بهمن 1388, 14:14 عصر
Dim test(10) As Integer
MessageBox.Show(test.Length)

Hossis
سه شنبه 06 بهمن 1388, 14:22 عصر
Dim test(10) As Integer
MessageBox.Show(test.Length)
این طور هم میشه
msgbox(ubound(test))

milad.biroonvand
سه شنبه 06 بهمن 1388, 14:30 عصر
از getbound هم مي توني استفاده كني


سلام به همه مهندسین محترم.
خواستم بپرسم چطوری میشه طول(ایندکس) یک آرایه رو پیدا کرد.ممون

ACorvinus
سه شنبه 06 بهمن 1388, 15:09 عصر
سلام .

برای پیدا کردن طول یک آرایه اینجوری عمل کنین:


Dim Ary(10) As Integer

Msgbox(Ary.Length - 1) 'Result=10

'OR

'Ubound(array As System.Array, [Rank As Integer = 1])
'منظور از Rank همان بعد آرایه میباشد که اگر مشخص کنین، 1 در نظر گرفته می شود
Msgbox(Ubound(Ary)) 'Result=10



موفق باشین.

ali_ahr7
سه شنبه 06 بهمن 1388, 16:00 عصر
سلام به همه دوستان گرامي خيلي متشكرم از جواب هاي شما.
خودم هم يكي پيدا كردم.نظرتون درباره اين چيه؟

For Each item In arr
If item <> Nothing Then
con += 1
End If
Next
MsgBox(con)


در ضمن توجه داشته باشيد كه lenght
طول كل آرايه رو بر ميگردونه مثلا در آرايه هاي 2*2 عدد 4 رو بر ميگردونه در حالي كه من عدد 2 رو لازم داشتم.بازم متشكرم.

ACorvinus
سه شنبه 06 بهمن 1388, 16:34 عصر
سلام به همه دوستان گرامی خیلی متشکرم از جواب های شما.
خودم هم یکی پیدا کردم.نظرتون درباره این چیه؟

For Each item In arr
If item <> Nothing Then
con += 1
End If
Next
MsgBox(con)


در ضمن توجه داشته باشید که lenght
طول کل آرایه رو بر میگردونه مثلا در آرایه های 2*2 عدد 4 رو بر میگردونه در حالی که من عدد 2 رو لازم داشتم.بازم متشکرم.




سلام.

اگر بعد آرایه رو میخواین از ArrayName.Rank استفاده کنین. (فکر کنم خواسته شما باشه!)
اگر تعداد عناصر کل آرایه رو میخواین از ArrayName.Length استفاده کنین.
اگر تعداد عناصر در یک سطح خاص رو میخواین از ArrayName.GetLength(RankNumber) استفاده کنین.

اگر شما درس ساختمان داده ها رو خونده باشین، پس میدونین که روش شما هزینه بر هستش و باید برنامه رو به نحوی بنویسین که کمترین هزینه رو داشته باشه.

موفق باشین.