كيف تجمع مصفوفتين

• حسنا مثال
• Dim arr1(3) as integer
• Dim arr2(3) as integer
• Dim Arr3(3) as Integer

قمت هنا بانشاء 3 مصفوفات تحتوى كل منها على 4 خانات ثم ساقوم بوضع ارقام صحيحة فى خانات المصفوفة الاولى والثانية بينما المصفوفة الثالثة فخاناتها بها القيم 0 ولن اضع بها بيانات بل ساتركها لعملية الجمع

• arr1(0) = 5
• arr1(1) = 3
• arr1(2) = 6
• arr1(3) = 1

• arr2(0) = 4
• arr2(1) = 9
• arr2(2) = 7
• arr2(3) = 5

الأن سأقوم بعملية الجمع عن طريق عملية لف على عناصر المصفوفات

• For i as integer =0 to ubound(arr3) Arr3(i)=arr1(i)+arr2(i) Next

نستخدم Ubound للحصول على اعلى فهرس index للمصفوفة حينما تكون i=0 فى اول لفة تصبح المعادلة هكذا arr3(0)=arr1(0) +arr2(0) حيث arr1(0)=5 بينما arr2(0) تساوى 4 فتصبح arr3(0) تساوى 9 اما اذا كنت تريدها ذات 3 ابعاد

• Dim arr1(2, 2) As Integer
• Dim arr2(2, 2) As Integer
• Dim Arr3(2, 2) As Integer

• arr1(0, 0) = 5
• arr1(0, 1) = 3
• arr1(0, 2) = 6
• arr1(1, 0) = 5
• arr1(1, 1) = 4
• arr1(1, 2) = 3
• arr1(0, 0) = 2
• arr1(2, 1) = 0
• arr1(2, 2) = 1

• arr2(0, 0) = 5
• arr2(0, 1) = 3
• arr2(0, 2) = 6
• arr2(1, 0) = 5
• arr2(1, 1) = 4
• arr2(1, 2) = 8
• arr2(0, 0) = 0
• arr2(2, 1) = 3
• arr2(2, 2) = 1

• For i As Integer = 0 To 2
• For d As Integer = 0 To 2
• Arr3(i, d) = arr1(i, d) + arr2(i, d)
• Next
• Next