السلام عليكم و رحمة الله و بركاته
كيف اجمع عناصر موجودة داخل array عدد عناصرها n ؟؟
شكرا جزيلا .........
كيف اجمع عناصر مصفوفة ؟
- Private Sub Command1_Click()
- Dim Arr(1 To 10) As Integer 'تعريف مصفوفة رقمية بها عشرة عناصر
- Dim i, k As Integer
- Dim e As Integer
- For i = 1 To 10 'ملء العناصر
- Arr(i) = i
- Next i
- For k = 1 To 10 'دوارة على جميع العناصر وإضافتها إلى متغير الناتج
- e = e + Val(Arr(k))
- Next k
- MsgBox e 'عرض الناتج
- End Sub
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
Val(Arr(K)
Val : دالة تحول النص إلى رقم , يعني لو النص هو "123" فيتم تحويله إلى 123
بمعنى :
"2" + "2" = "22"
Val("2") + Val("2") = 4Arr : اسم المصفوفة
k : متغير الدوارة , يعني إذا K قيمته 5 , إذا فنحن نقف على العنصر رقم 5 في المصفوفة , والذي قيمته = 5
والكود بشكل عام يعني تحويل قيمة العنصر الذي تمر عليه الدوارة إلى قيمة رقمية لجمعها فيما بعد
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein