ذخیره اعداد در یک آرایه

[photolady]

دوستان شما میدونید چجوری میشه مثلا داخل از یک اینپوت باکس 5 عدد گرفته و آن 5 عدد در یک آرایه ذخیره بشن ، بعدشم که من بخوام مجموع و میانگین این 5 عدد ذخیره شده رو بدست بیارم ؟؟؟؟؟؟؟ :متعجب::متعجب::متعجب::متعجب:

[setroyd]

Option Base 1
Private Sub Command1_Click()
Dim a() As Long
ReDim a(5)
For b = LBound(a) To UBound(a)
a(b) = InputBox("adad vared konid")
c = c + a(b)
Next
MsgBox "miangin mishavad = " & c / UBound(a)
End Sub


برای بدون اعشار از \ استفاده کن برای تقسیم هرجاشو نفهمیدی بگو برات توضیح بدم .

[photolady]

خیلی عالی بود ولی یه جایی کار خوب پیش نرفته . من سورس کد شما رو گرفتم و یه چیزایی هم بهش اضافه کردم که توی لیست باکس هم نمایش داده بشه . این متغیر رو فقط واسه اینکه توی لیست باکس نمایش داده بشه : c = a(b)

و اینم سورسش

Option Base 1
Private Sub Command1_Click()
Dim a() As Long
ReDim a(2)
For b = LBound(a) To UBound(a)
a(b) = InputBox("adad vared konid")
c = a(b)
d = d + a(b)
List1.AddItem c
Next
MsgBox "miangin mishavad = " & d + UBound(a)
End Sub

مشکلش هم این بود که من وقتی مثلا 2 "10و10 " عدد وارد کردم ، بعدش UBound هم که 2 هستش ، پس وقتی توی مسج باکس متغیر d + UBound بشه ، اون دو عدد که با هم جمع میشن ولی عدد 2 هم باهاشون جمع میشه و مجموع = 22 میشه :متعجب:

[setroyd]

Option Base 1

Private Sub Command1_Click()
d = 0

Dim a() As Long

ReDim a(2)

For b = LBound(a) To UBound(a)

a(b) = InputBox("adad vared konid")

d = d + a(b)

List1.AddItem a(b)

Next

MsgBox "miangin mishavad = " & d

End Sub
مشکل از کد نیست اونجا من تعداد رو تقسیم کردم با ubound شما برای جمع استفاده کردی !!! این کارت اشتباه بود کد شما رو اصلاح کردم ببینی متوجه میشی .

[photolady]

اهووم گرفتم چی شد پس
متغیر d=0 سپس
a(b) با d جمع میشه و در مسج باکس نمایش داده میشه :لبخندساده:

[setroyd]

البته d=0 رو خودم گذاشتم اولش برای چک کردن خطای +2 ولی دیدم اشتباهت چی بود دیگه یادم رفت پاک کنم ولی نوشتنش هم موردی نداره .

[photolady]

دیگه تا تونستم تشکر کردم . خیلی ممنون :لبخندساده: