Суммирование двух введённых матриц - VB

Формулировка задачи:

Есть задание: разработать программу,рассчитывающую и выводящую на экран результатирующую матрицу по действиям:1) суммирования двух введённых матриц; 2)вычитания двух введённых матриц; 3)умножения введённой матрицы на введённое число. Все действия должны быть вынесены в подпрограммы. Помогите пожалуйста найти ошибку в проге,она у меня работает не до конца,не хочет выводить Х,я уже всё испробовала..

Dim N As Byte
Dim M As Byte
Dim a(1 To 5, 1 To 5) As Single
Dim B(1 To 5, 1 To 5) As Single
Dim R(1 To 5, 1 To 5) As Single
 
Sub Alyona()
Dim N1 As Single
 
Dim STR As String
err: N1 = InputBox("признак=?")
N = InputBox("КОЛ-ВО СТРОК=?")
M = InputBox("КОЛ-ВО СТОЛБЦОВ=?")
Select Case N1
Case 1
P1
Case 2
P2
Case 3
P3
Case Else
MsgBox ("ОШИБКА")
GoTo err
End Select
 
For I = 1 To N
For J = 1 To M
STR = STR & R(I, J) & " "
 
Next J
STR = STR & Chr(13)
Next I
MsgBox STR
End Sub
 
Sub P1()
For I = 1 To N
For J = 1 To M
a(I, J) = InputBox("A (I,J)")
Next J
Next I
For I = 1 To N
For J = 1 To M
B(I, J) = InputBox("B(I,J)")
Next J
Next I
For I = 1 To N
For J = 1 To M
R(I, J) = a(I, J) + B(I, J)
Next J
Next I
End Sub

Sub P2()
For I = 1 To N
For J = 1 To M
a(I, J) = InputBox("A (I,J)")
Next J
Next I
For I = 1 To N
For J = 1 To M
B(I, J) = InputBox("B(I,J)")
Next J
Next I
For I = 1 To N
For J = 1 To M
R(I, J) = a(I, J) - B(I, J)
Next J
Next I
End Sub
 
Sub P3()
For I = 1 To N
For J = 1 To M
a(I, J) = InputBox("A (I,J)")
 
X = InputBox("X=?")
 
For I = 1 To N
For J = 1 To M
R(I, J) = a(I, J) * X
Next J
Next I
End Sub

Решение задачи: «Суммирование двух введённых матриц»

textual
                            Листинг программы 
                        

                            Dim n As Integer
Dim m As Integer
Dim A(1 To 5, 1 To 5) As Single
Dim B(1 To 5, 1 To 5) As Single
Dim R(1 To 5, 1 To 5) As Single
 
Sub Alyona()
Dim n1 As Integer, STR As String, i As Integer, j As Integer
err: n1 = InputBox("признак=?")
n = InputBox("КОЛ-ВО СТРОК=?")
m = InputBox("КОЛ-ВО СТОЛБЦОВ=?")
 
Select Case n1
     Case 1: P1
     Case 2: P2
     Case 3: P3
     Case Else: MsgBox ("ОШИБКА"): GoTo err
End Select
 
For i = 1 To n
    For j = 1 To m
        STR = STR & R(i, j) & " "
    Next j
    STR = STR & Chr(13)
Next i
 
MsgBox STR
End Sub
 
Sub P1()
For i = 1 To n
     For j = 1 To m
         A(i, j) = InputBox("A(" & i & "," & j & ")")
     Next j
Next i
 
For i = 1 To n
     For j = 1 To m
        B(i, j) = InputBox("B(" & i & "," & j & ")")
     Next j
Next i
 
For i = 1 To n
     For j = 1 To m
         R(i, j) = A(i, j) + B(i, j)
     Next j
Next i
End Sub
 
Sub P2()
  For i = 1 To n
      For j = 1 To m
             A(i, j) = InputBox("A(" & i & "," & j & ")")
      Next j
  Next i
  
For i = 1 To n
      For j = 1 To m
              B(i, j) = InputBox("B(" & i & "," & j & ")")
      Next j
Next i
 
For i = 1 To n
       For j = 1 To m
              R(i, j) = A(i, j) - B(i, j)
       Next j
Next i
End Sub
 
Sub P3()
For i = 1 To n
     For j = 1 To m
           A(i, j) = InputBox("A(" & i & "," & j & ")")
     Next j
Next i
X = InputBox("X=?")
For i = 1 To n
      For j = 1 To m
            R(i, j) = A(i, j) * X
      Next j
Next i
End Sub
 
Private Sub Command1_Click()
    Alyona
End Sub
                        