Информатика 2011-2012 / Дополнительная информация / Пример оформ Лабор раб 1,2 сем / Задача №5

Задача №5

Поменять местами k- ю строку и j-й столбец

Программный код:

Dim n, i, j, k As Integer, x() As Single

Private Sub Command1_Click()

n = Val(InputBox("ввести n", , "n="))

ReDim x(n, n)

For i = 1 To n

For j = 1 To n

x(i, j) = Int(Rnd * 200) - 100

Next

Next

End Sub

Private Sub Command2_Click()

For i = 1 To n

For j = 1 To n

Text1.Text = Text1.Text + Str(x(i, j)) + " "

Next: Text1.Text = Text1.Text + Chr(13) + Chr(10)

Next

End Sub

Private Sub Command3_Click()

M: k = Val(InputBox("ввести k", , "k="))

j = Val(InputBox("ввести j", , "j="))

If k > n Or j > n Then MsgBox ("правильно вводите k,n"): GoTo M

For i = 1 To n

T = x(i, j)

x(i, j) = x(k, i)

x(k, i) = T

Next

For i = 1 To n

For j = 1 To n

Text2.Text = Text2.Text + Str(x(i, j)) + " "

Next: Text2.Text = Text2.Text + Chr(13) + Chr(10)

Next

End Sub

Private Sub Command4_Click()

End

End Sub

Работа программы:

Задаем размерность матрицы

Вводим k

Вводим j

Ответ: