Option Explicit
Dim i, j, m, n, k, l As Integer
Dim A(9, 9), B(9, 9), C(9, 9) As Single
Dim Mesaj, Title As String
Sub Main()
MatrisOku
Topla
End Sub
Sub MatrisOku()
Open "C:\A.TxT" For Input As #1
Input #1, m, n
Mesaj = "A matrisi: " & m & "-" & n & vbCrLf
For i = 1 To m
For j = 1 To n
Input #1, A(i, j)
Mesaj = Mesaj & A(i, j) & vbTab
Next
Mesaj = Mesaj & vbCrLf
Next
Close #1
Print Mesaj
Open "C:\B.TxT" For Input As #1
Input #1, k, l
Mesaj = "B matrisi: " & m & "-" & n & vbCrLf
For i = 1 To k
For j = 1 To l
Input #1, B(i, j)
Mesaj = Mesaj & B(i, j) & vbTab
Next
Mesaj = Mesaj & vbCrLf
Next
Close #1
Print Mesaj
End Sub
Sub Topla()
If Not (k = m And l = n) Then
MsgBox "<ki matrisin toplanmas= olanakl= de:il!", 16, Title
Exit Sub
End If
Mesaj = "<ki matrisin Toplam=: C = A + B" & vbCrLf
For i = 1 To m
For j = 1 To n
C(i, j) = A(i, j) + B(i, j)
Mesaj = Mesaj & C(i, j) & vbTab
Next
Mesaj = Mesaj & vbCrLf
Next
Print Mesaj
End Sub
aynı mantıkla çarpma işlemi nasıl olcak.