Private Sub cmdCreateB_Click()
Dim i As Byte, j As Byte
On Error GoTo p
Randomize Timer
n = InputBox("Введите количество элементов", "Ввод")
ReDim b(1 To n) As Integer
ReDim a(1 To n, 1 To n) As Integer
Print "Массив B:"
For i = 1 To n
   b(i) = Rnd * 10 - 5
   Print b(i);
   Print vbTab;
Next i
Exit Sub
p:
MsgBox "Ошибка ввода данных!", vbExclamation, "Ошибка"
End Sub

Private Sub cmdResult_Click()
Dim i As Byte, j As Byte
s1 = Txt1.Text
s2 = Txt2.Text
If s1 > n Or s2 > n Or s1 <= 0 Or s2 <= 0 Then
   MsgBox "Данной строки не существует!", vbExclamation, "Ошибка ввода"
Else
For j = 1 To n
 For i = 1 To n
   t = a(s1, j)
   a(s1, j) = a(s2, j)
   a(s2, j) = t
 Next i
Next j

Print: Print "Матрица C:"
For i = 1 To n
 For j = 1 To n
   Print a(i, j);
   Print vbTab;
 Next j
 Print
Next i
Print
End If
Txt1.Text = ""
Txt2.Text = ""
End Sub