• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Код програми

Sub Зміна()

Dim m As Integer, n As Integer, i As Integer, j As Integer

Dim r As Integer

Dim x() As Single

m = InputBox("кількість рядків m=", "вікно вводу початкових")

n = InputBox("кількість стовпців n=", "вікно вводу початкових")

ReDim x(m, n)

‘підготовка тексту-коментарю “Матриця”, та розміщення ‘його в діапазоні (А1:D1) по центру

Worksheets("Лист2").Range("A1").Value = "Матриця"

Worksheets("Лист2").Range("A1:D1").HorizontalAlignment=xlCenter

Worksheets("Лист2").Range("A1:d1").MergeCells = True

For i = 1 To m

For j = 1 To n

x(i, j) = InputBox("x(" & CStr(i) & "," & CStr(j) & ")=")

Worksheets("Лист2").Cells(i + 1, j).Value = x(i, j)

Next j

Next i

For j = 1 To n

If x(1, j) > 0 Then

For i = 1 To m \ 2

r = x(i, j)

x(i, j) = x(m - i + 1, j)

x(m - i + 1, j) = r

Next i

End If

Next j

Worksheets("Лист3").Range("A1").Value = " Змінена матриця"

Worksheets("Лист3").Range("A1:d1").HorizontalAlignment=xlCenter

Worksheets("Лист3").Range("A1:d1").MergeCells = True

For i = 1 To m

For j = 1 To n

Worksheets("Лист3").Cells(i + 1, j).Value = x(i, j)

Next j

Next i

End Sub

Вікна введення початкових даних в процесі роботи наведені на рис. 4.20.

Рисунок 4.20 - Вікна введення

Результати роботи програми наведені на рис. 4.21.

Рисунок 4.21 - Результати роботи програми (Лист1, Лист2)

Читайте також:

1. II. Вимоги до складання паспорта бюджетної програми
2. II. ПРОГРАМИ ДИСЦИПЛН
3. А.2.1. Розрахунок річної виробничої програми міських СТОА
4. А.2.2.Розрахунок виробничої програми дорожніх СТОА
5. Авторське право на комп’ютерні програми
6. Алгоритм розроблення програми комплексу маркетингу
7. Алгоритм створення тренінгової програми
8. Алфавіт мови і структура програми
9. Аналіз формування й виконання виробничої програми
10. Анімаційні програми
11. Антивірусні програми
12. Важливою складовою економічної політики 60-х рр. була реалізація програми “нових рубежів” президента Дж. Кенеді.

Переглядів: 492