[uknowtnt]

السلام عليكم

انا جديده في لغة الفيجوال بيسك

ولا أخفيكم أنها صعبة جدا

أريد عمل برنامج يوجد لي المتوسط الحسابي لعدد من الأرقام (غير محدد)
ومعروف أن قانون المتوسط الحسابي هو= مجموع الأرقام / عددها

واجهة التصميم لدي هي عشرة تكست بوكس وزر بوتون لإظهار المعدل في مسج بوكس

بحثت كثيرا ووجدت هذه الأكواد:

كود :

Dim a As Long, n As Long, total As Double, temp As Double, endresult As Double

        For a = 0 To Text.Count - 1
            temp = Val(Text(a))
            If temp <> 0 Then
                n = n + 1
                total = total + temp
            End If
        Next a
        endresult = total / n
        MsgBox(endresult)

كود :

Public sum, avg As Integer
    Function myf(ByVal n As Integer) As Integer
        For i = 0 To Arr.Length - 1
            sum += Val(Arr(i))
            avg = sum / Arr.Length
        Next
        Return avg
    End Function

لكنها لم تعمل ولم أفهم منها الكثير

أول كود يظهر لي في المسج رقم 1

وثاني كود لا يعمل بسبب الأخطاء

وأيضا اشعر ان هناك نقص في التعريف
مثلا ما وضحنا للبرنامج ان يقرأ قيم التكست بوكسات التي لدي وغيرها كثير فجوات

أرجوا مساعدتي ولكم جزيل الشكر والتقدير *^*