[a_abdullah]

(25-11-16, 10:57 PM)amgad525 كتب :

PHP كود :

Dim n(6) As Integer
For i = 0 To 6
    n(i) = CInt(InputBox("Enter number:"))
Next

averageLabel1.Text = n.Average 


ال CInt ماذا تعني ؟ لم ادرسها حتى الان 
لكن اريد معرفة الخطأ في الكود الخاص بي مهاهو لماذا لا يعطيني المتوسط 

---

(25-11-16, 11:13 PM)أبو ناصر كتب : السلام عليكم 
  صممت لك برنامجا يقوم بحساب المتوسط الحسابي للأعداد المدخلة عددها كما تحب 7 أ و اكثر أو أقل  .

PHP كود :

Public Class Form1
    Dim myList As New List(Of Integer)

    ' ادخال الأعداد
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myList.Add(CInt(TextBox1.Text))
        TextBox1.Clear()
        TextBox1.Focus()
    End Sub

    ' حساب المتوسط الحسابي
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If myList.Count = 0 Then Exit Sub

        TextBox2.Text = myList.Average
        myList.Clear()

    End Sub
End Class 


اخي ابو ناصر هذا الحل يختلف عن ما درسته 
http://fac.ksu.edu.sa/sites/default/files/lec7_0_1.ppt 
في هذا الرابط ما تعلمته ومعظمها اشياء بسيطه جدا