[أحمد محمد جمعة]

السلام عليكم ورحمة الله وبركاته 

 قمت بإضافة مصفوفتين اي عند الضغط علي  Button1 تظهر مصفوفة رقم 1 في  Label1  ,  و عند الضغط علي  Button2 تظهر مصفوفة رقم 2 في  Label2

اريد عند الضغط علي Button3  يقوم بجمع  المصفوفة رقم 1 + المصفوفة رقم2  ويظهر الناتج في lable3 

كود المصفوفة رقم 1 

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click

        Dim i, j As Integer

        Dim Number(2, 3) As Integer

        For i = 0 To 2 Step 1

            For j = 0 To 3 Step 1

                Number(i, j) = i + j

            Next

        Next

        For i = 0 To 2

            For j = 0 To 3

                Label1.Text = Label1.Text & Number(i, j) & "  "

            Next

            Label1.Text = Label1.Text & vbCrLf & vbCrLf

        Next

    End Sub

---------------------------------------------------------------------------------------------------------------------

كود المصفوفة رقم 2 

Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click

        Dim i, j As Integer

        Dim Number(2, 3) As Integer

        For i = 0 To 2 Step 1

            For j = 0 To 3 Step 1

     

  Number(i, j) = InputBox("أدخل اسم الطالب", "بيانات الطلبة", "......")

            Next

        Next

        For i = 0 To 2

            For j = 0 To 3

                Label2.Text = Label2.Text & Number(i, j) & "  "

            Next

            Label2.Text = Label2.Text & vbCrLf & vbCrLf

        Next

    End Sub

End Class

----------------------------------------------------------------------------------------------------

كود جمع المصوفتين يكون في   Button3

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

    End Sub

----------------------------------------------------------------------------------------------------

 سامحوني عالإطالة و بارك الله فيكم جميعا  وربي يزدكم من علمه ..

[أبو عمر]

بمان حلقة الدوران ثابتة
وبما اني حاولت افهم مطلبك
وبما ان المصفوفات في وادي وشغلي في وادي
وعلى حسب فهمي
جرب الكود ادناه
بالنسبة مكان
Name
تقدر تحط
Inputbox
لكن على مثالك في الاعلى يستحيل مساواة القيمة العددية ب بالنص اناتج من الرسالة في ال
Inputbox

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""
        Dim i, j As Integer
        Dim Number(2, 3) As Integer
        Dim tot(2, 3) As Integer
        For i = 0 To 2 Step 1

            For j = 0 To 3 Step 1
                Dim l As Integer = j + 1
                Number(i, j) = i + j
                tot(i, j) = (i + j) * 2
                Label1.Text = Label1.Text & Number(i, j) & "  "
                Label2.Text = Label2.Text & Number(i, j) & "  "

                Label3.Text = Label3.Text & "Name  = " & tot(i, j) & " : "
            Next
            Label1.Text = Label1.Text & vbCrLf
            Label2.Text = Label2.Text & vbCrLf
            Label3.Text = Label3.Text & vbCrLf
        Next
    End Sub