برجاء المساعده في هذا الكود ..

السلام عليكم 

انا مبتدا جدا في البرمجة لذلك برجاء المساعده في تصحيح هذا الكود

فقد طلب مني في مشروع التخرج الخاص بي السنادي عمل دوال احصائية علي الفجيوال بيسك

باستخدام قوانين الدالات الاتية

الوسط الحسابي

المدي

معامل الارتباط لبيرسون

الانحراف المعياري 

التباين

معامل الارتباط النسبي 

معامل الارتباط المئوي

المطلوب اني اقوم بتحويل قوانين هذه الدالات لبرنامج ع الفجوال بيسك

انا قمت بعمل الوسط , المدي , معامل الارتباط 

ولكن مذال هناك خطيء معي في الانحراف المعياري , التباين , معامل الارتباط النسبي و الارتباط المئوي

انا هاحط الاكواد وياريت لو حد يساعدني في تشغيل الاكواد دي او يديني كود جديد للدالات اللي ذكرتها التي لاتعمل معي والمشكله في اني لما بعمل عليها مثال واضع قيم يعطيني ناتج خطيء لذلك ارجو مساعدتكم في تصحيح الخطيء وشكرا ليكم .

كود الانحراف المعياري :

Private Sub Command1_Click()

Dim I, J, H As Single

Dim sum, sqrr As Single

Dim Avg As Double

Dim a(10)

sum = 0

sqrr = 0


        For I = 1 To 10

        a(I) = InputBox("أدخل القيم")

        sum = sum + a(I)

        sqrr = sqrr + (a(I) ^ 2)

        Next

        H = (sum ^ 2) / 10

        I = sqrr - H

        J = Sqr(0.5 * (I))


        MsgBox ("Values are = " & a(1) & a(2) & a(3) & a(4) & a(5) & a(6) & a(7) & a(8) & a(9) & a(10))

        MsgBox ("standard deviation = " & J)

End Sub

وتوجد امثلة وقوانين له ع النت 

الكود الثاني الخاص بالتباين

Private Sub Command1_Click()

Dim I, J, H As Single

Dim Sum, Sqrr As Single

Dim Avg As Double

Dim a(10)

Sum = 0

Sqrr = 0


       For I = 1 To 10

       a(I) = InputBox("أدخل القيم")

       Sum = Sum + a(I)

       Sqrr = Sqrr + (a(I) ^ 2)

       H = (Sum ^ 2) / 10

       I = Sqrr - H

       J = (1 / 2) * (I)

       Next

       MsgBox ("Values are = " & a(1) & a(2) & a(3) & a(4) & a(5) & a(6) & a(7) & a(8) & a(9) & a(10))

       MsgBox ("Variance = " & J)

End Sub

الكود الثالث الاختلاف النسبي

Private Sub Command1_Click()

Dim I, J, H As Single

Dim II, JJ, R, Avg As Single

Dim Suma, Sqrra, Sumb, Sqrrb, z As Single

Dim a(10), b(10) As Single

Suma = 0

Sqrra = 0

Sumb = 0

Sqrrb = 0


        For I = 1 To 10

        a(I) = InputBox("ادخل القيم")

        Suma = Suma + a(I)

        Sqrra = Sqrra + (a(I) ^ 2)

        Next


     Avg = Suma / 10

     H = (Suma ^ 2) / 10

     II = Sqrra - H

     R = (1 / 9) * II

     JJ = Sqr(R) / Avg


     MsgBox ("Coefficient of variation = " & JJ)

End Sub

وكود الاختلاف المئوي هو هو نفس الكود ولكن يضاف في سطر الجزر * 100

JJ = (Sqr(R) * 100) / Avg

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

:)