Информатика 2011-2012 / Информатика-2-сем(2011) / Задания и примеры / Проекта / Сив / Лабораторная работа

Лабораторная работа №5

Тема: Построение Windows -приложения

Задание: Поменять местами k - ю и (k - 2) - ю строки матрицы.

Эскиз приложения

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

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

Private Sub Выход_Click()

End

End Sub

Private Sub Показать_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 Решить_Click()

If n < 3 Then MsgBox "задача не имеет решений": GoTo m

m1: k = Val(InputBox("ввести строку k", , "k="))

If k < 3 Then MsgBox "введите правильно k": GoTo m1

For i = 1 To n

p = x(k - 2, i): x(k - 2, i) = x(k, i)

x(k, i) = p

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

m: End Sub

Private Sub Создать_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 * 9) - 3

Next

Next

End Sub

Private Sub Удалить_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Работа приложения

Создать массив