burada dizileri kullanarak matrıs programı yapıcaz


Public Class Form1
Dim x As Integer = InputBox("Satır sayısını giriniz")
Dim y As Integer = InputBox("Sütun sayısını giriniz")
Dim a(x - 1, y - 1) As Integer
Dim b(x - 1, y - 1) As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'A matrisini doldurma
For i As Integer = 0 To x - 1
For j As Integer = 0 To y - 1
a(i, j) = InputBox("A matrisi: " & i + 1 & ".Satır " & j + 1 & ". Sütun Değerini giriniz")
TextBox1.Text &= a(i, j) & " "
Next
TextBox1.Text &= vbCrLf
Next

'B matrisini doldurma
For i As Integer = 0 To x - 1
For j As Integer = 0 To y - 1
b(i, j) = InputBox("B matrisi: " & i + 1 & ".Satır " & j + 1 & ". Sütun Değerini giriniz")
TextBox2.Text &= b(i, j) & " "
Next
TextBox2.Text &= vbCrLf
Next

'A+B
For i As Integer = 0 To x - 1
For j As Integer = 0 To y - 1
TextBox3.Text &= a(i, j) + b(i, j) & " "
Next
TextBox3.Text &= vbCrLf
Next
End Sub
End Class