تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب مساعدة في جمع مصفوفتين
#1
السلام عليكم ورحمة الله وبركاته 

 قمت بإضافة مصفوفتين اي عند الضغط علي  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


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

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


الردود في هذا الموضوع
طلب مساعدة في جمع مصفوفتين - بواسطة أحمد محمد جمعة - 05-09-16, 11:06 PM


التنقل السريع :


يقوم بقرائة الموضوع: