حساب کردن معدل

سلام

یه برنامه ای که نام و نمره 5 نفر و میگیره و بعد از محاسبه معدل اونا بالاترین معدل رو در لیست باکس اد میکنه

با سلام :

دوست عزیز شما برای بدست آوردن معدل نیاز به درس مربوط دارید که مثلا : ریاضی ، دینی ، ورزش و ...

هست و باید نمرات رو جمع بزنه و تقسیم بر تعداد کنه . که برای هر پنج نفر همین طوره .

مثال : ( این فقط برای حساب کردن معدل یک نفر هست .) ( که باید پنج بار تکرار بشه برای هرنفز منظورم هست )

کد:

---

Dim a, b, c, d, e As Double
a = Val(TxtRiazi.Text)
b = Val(TxtDini.Text)
c = Val(TxtArabi.Text)
d = Val(Txtphizic.Text)
e = (a + b + c + d) / 4
MsgBox e

---

و در آخر باید بگی که معدل هر فرد رو بر اساس متغیر e حساب کنه / که بدونی کدوم از همه بالاتره .

که با دستور select case هم میتونی این کاررو انجام بدی . امید وارم متوجه شده باشی .

میخوام از طریق inputbox اسم طرف با نمرات درسیش و در آخر معدل اونو همراه با اسمش در لیست باکس اضافه کنه

چجوری اینا رو با هم جور کنم تو لیست باکس .....خداکنه منظورمو گرفته باشید...

سلام
سادست

کد:

---

Dim A(4) As Integer
Dim B As String
Dim C As String
B = InputBox("Enter Your Name:")
For i = 0 To 4
    A(i) = InputBox("Enter:")
Next
C = CStr((A(1) + A(2) + A(3) + A(4) ) / 4)
e = B + C
List1.AddItem e

---

توی inputbox اول اسم طرفو میگیره و توی inputbox دوم 5 نمره از درساشو و در آخر اونها رو تقسیم و به رشته تبدیل میکنه و با مشخصه AddItem به لیست باکس اضافه میکنه