[Abu Ehab]

السلام عليكم

الله يعطيك العافية أستاذنا الكبير ..

ومن الممكن التعامل مع الأرقام بالطريقة التالية :

كود :

Dim Lst() As Integer = {3, 5, 6, 7, 8, 9}
        Dim Sm = Aggregate c In Lst Into Sum()
        Dim Aver = Aggregate Av In Lst Into Average()
        Dim Mn = Aggregate m In Lst Into Min()
        Dim Mx = Aggregate x In Lst Into Max()
        Dim fr = Aggregate F In Lst Into First()
        Dim l = Aggregate Ls In Lst Into Last()

والقائمة تطول ....