vba ЛР-7
.docx
ФЕДЕРАЛЬНОЕ АГЕНСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «Наземные транспортно-технологические комплексы»
Дисциплина «Информационные технологии»
ОТЧЕТ
ПО ЛАБОРАТОРНОРНОЙ РАБОТЕ №7
«Программный элемент ЗАПОЛНЕНИЕ»
Вариант 4
Выполнил:
Студент группы АСБ-216
Бураков П.Д.
Проверил: Перепеченов А. М.
Санкт-Петербург 2022
Словесное описание.
Заполнить вектор А размерности n по правилу:
Аi=| Bi |
где В - вектор той же размерности.
Для отладки программы контрольный пример выбрать самостоятельно.
Математическое описание.
Входные данные:
n, В() - вещественные
Выходные данные:
{A} - вещественные
Программирование
Private Sub Command1_Click()
Dim A() As Single
Dim B() As Single
Dim n As Integer
Dim i As Integer
n = InputBox("BBEDITE n")
ReDim A(1 To n)
ReDim B(1 To n)
Debug.Print "B={";
For i = 1 To n
B(i) = InputBox("BBEDITE B")
Debug.Print B(i) & ",";
Next
Debug.Print "}"
Debug.Print
Debug.Print "A={";
For i = 1 To n
A(i) = Abs(B(i))
Debug.Print A(i) & ",";
Next
Debug.Print "}"
End Sub
Отладочный пример
В={1; -2; 3; -4; -5;}
Словесное описание
Транспонировать матрицу С размерности m*n. Транспонированную матрицу именовать также С и поместить на месте исходной матрицы.
Проанализировать выполнение программы на примере:
Математическое описание
Входные данные:
n, m, C()- вещественные
Выходные данные:
{C} - вещественные
Программирование
Private Sub Command1_Click()
Dim C() As Single
Dim C1() As Single
Dim n As Integer
Dim m As Integer
Dim i As Integer
Dim j As Integer
m = InputBox("BBEDITE m")
n = InputBox("BBEDITE n")
ReDim C(i To m, j To n)
ReDim C1(i To m, j To n)
Debug.Print "C="
For i = 1 To m
Debug.Print
For j = 1 To n
C(i, j) = InputBox("BBEDITE C")
Debug.Print C(i, j);
C1(m - (m - j), n - (n - i)) = C(i, j)
Next
Next
For i = 1 To m
For j = 1 To n
C(i, j) = C1(i, j)
Next
Next
Debug.Print
Debug.Print "C="
For i = 1 To m
Debug.Print
For j = 1 To n
Debug.Print C(i, j);
Next
Next
End Sub
Отладочный пример