هل طريقة جمع المصفوفه الثائية التي عملتها صحيحه
كود الجمع
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For i = 0 To 6 For j = 0 To 7 i(+j = arr2(i, j)) Next Label1.Text &= arr2(i, j) & "" Next
الكود كامل
Public Class Form1
Dim arr2(6, 7) As Integer
Dim i, j As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To 6
For j = 0 To 7
arr2(i, j) = InputBox(" ")
Next
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For i = 0 To 6
For j = 0 To 7
i(+j = arr2(i, j))
Next
Label1.Text &= arr2(i, j) & ""
Next
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class

