سوال: راهنمایی در ساخت این برنامه

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

ولی اگر فرض کنیم نمرات در آرایه 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