vba ЛР-7

ФЕДЕРАЛЬНОЕ АГЕНСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»

Кафедра «Наземные транспортно-технологические комплексы»

Дисциплина «Информационные технологии»

ОТЧЕТ

ПО ЛАБОРАТОРНОРНОЙ РАБОТЕ №7

«Программный элемент ЗАПОЛНЕНИЕ»

Вариант 4

Выполнил:

Студент группы АСБ-216

Бураков П.Д.

Проверил: Перепеченов А. М.

Санкт-Петербург 2022

1. Словесное описание.

Заполнить вектор А размерности n по правилу:

А_i=| B_i |

где В - вектор той же размерности.

Для отладки программы контрольный пример выбрать самостоятель­но.

2. Математическое описание.

1. Входные данные:

n, В() - вещественные

2. Выходные данные:

{A} - вещественные

3. Программирование

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

4. Отладочный пример

В={1; -2; 3; -4; -5;}

1. Словесное описание

Транспонировать матрицу С размерности m*n. Транспонированную матрицу именовать также С и поместить на месте исходной матри­цы.

Проанализировать выполнение программы на примере:

2. Математическое описание

1. Входные данные:

n, m, C()- вещественные

2. Выходные данные:

{C} - вещественные

2. Программирование

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

2. Отладочный пример