راهنمایی در ساخت این برنامه

[amdanial]

با سلام و خسته نباشید خدمت دوستان
عذر میخوام من یه پروژه دارم که باید انجامش بدم و از این قراره که "نرم افزاری در ویژوال بیسیک بنویسید که معدل n درس رو با ضرایب متفاوت محاسبه کند"
حالا میشه در مورد ساخت این برنامه منو کمی راهنمایی کنید و یا اگر سورسی دارین بهم بدید؟ ممنونم

[meys34]

سوالات درسی ممنوعه!

ولی اگر فرض کنیم نمرات در آرایه a و ضرایب در آرایه b باشند با یه حلقه میشه معدل رو حساب کرد

Dim a() As String
Dim b() As String
Dim up As Long, down As Long

a = Split(InputBox("", , "10,20,30"), ",")
b = Split(InputBox("", , "1,2,3"), ",")


Dim i As Integer
For i = 0 To UBound(a)
up = up + (a(i) * b(i))
down = down + b(i)
Next

MsgBox up / down