Квадратная матрица. - VBA

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

Написать подпрограмму,меняющую К-тую строку квадратной матрицы порядка N c K-тым столбцом. Номер строки К и порядок матрицы ввести с клавиатуры. 2 1 2 0 0 0 0 0... 1 2 1 2 0 0 0 0... 2 1 2 1 2 0 0 0... 0 2 1 2 1 2 0 0... 0 0 2 1 2 1 2 0... 0 0 0 2 1 2 1 2... 0 0 0 0 2 1 2 1... 0 0 0 0 0 2 1 2... ........................ Пожалуйста,помогите решить. Очень нужно. Заранее благодарю)

Люди помогите,пожалуйста. Очень нужно решение задачи(((

Решение задачи: «Квадратная матрица.»

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

                            Private Sub CommandButton1_Click()
Dim s() As Integer, strK() As Integer, stlK() As Integer
Dim k As Integer, n As Integer
n = InputBox("Введите размер матрицы", "N", "7")
M: k = InputBox("Введите номер строки", "K", "5")
If k > n Then
MsgBox "Вы ввели строку за приделами порядка матрицы = " & n & " введите меньше"
GoTo M
End If
ReDim s(n, n) As Integer, strK(n) As Integer, stlK(n) As Integer
For i = 1 To n
For j = 1 To n
s(i, j) = Rnd() * 100 - 50
Cells(i + 1, j + 1) = s(i, j)
If i = k Then
strK(j) = s(i, j)
End If
If j = k Then
stlK(i) = s(i, j)
End If
Next
Next
For i = 1 To n
Cells(i + 3, 11) = stlK(i)
Cells(i + 3, 12) = strK(i)
Next
 
For i = 1 To n
For j = 1 To n
 
If i = k Then
 s(i, j) = stlK(j)
End If
If j = k Then
 s(i, j) = strK(i)
End If
Cells(i + 3 + n, j + 1) = s(i, j)
Next
Next
End Sub
                        