Код програми
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)
Читайте також: - II. Вимоги до складання паспорта бюджетної програми
- II. ПРОГРАМИ ДИСЦИПЛН
- А.2.1. Розрахунок річної виробничої програми міських СТОА
- А.2.2.Розрахунок виробничої програми дорожніх СТОА
- Авторське право на комп’ютерні програми
- Алгоритм розроблення програми комплексу маркетингу
- Алгоритм створення тренінгової програми
- Алфавіт мови і структура програми
- Аналіз формування й виконання виробничої програми
- Анімаційні програми
- Антивірусні програми
- Важливою складовою економічної політики 60-х рр. була реалізація програми “нових рубежів” президента Дж. Кенеді.
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|