Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
38
Добавлен:
07.06.2015
Размер:
1.11 Mб
Скачать

Тема: Преобразование матриц

Задание: Дана квадратная матрица Х(n,n). Поставить элементы главной диагонали на место k - го столбца.

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

Блок-схема

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

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

Private Sub ComdРешить_Click()

m: k = Val(InputBox("Ввести номер столбца", , "k="))

Text2.BackColor = RGB(200, 200, 180)

Text2.ForeColor = vbBlue

If k > n Then MsgBox "Ввести правильно значение k!": GoTo m

For i = 1 To n

For j = 1 To n

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

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

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

Next

End Sub

Private Sub Выход_Click()

t = MsgBox("Выдействительно хотите выйти??", vbYesNo)

If t = vbYes Then 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()

n = Val(InputBox("Ввести размерность массива", , "N="))

ReDim x(n, n)

Randomize timtr

For i = 1 To n

For j = 1 To n

x(i, j) = Int(Rnd * 9) - 1

Next

Next

End Sub

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

Text1.Text = ""

Text2.Text = ""

End Sub

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

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

2 Показать массив

3 Сделать преобразования

4 Выход

Соседние файлы в папке Задания и примеры