Лабораторная работа №6. Разбор работы программы сортировки двумерного массива

Разбор работы программы сортировки двумерного массива.

Цель: изучить использование основных элементов языка программирования VBA в среде Microsoft Word.

Основные вопросы.

1. Ввод-вывод набора данных в одном окне редактора Microsoft Word.

2. Вложенные циклические операции.

3. Работа с двумерными массивами.

4. Разбор работы программы сортировки двумерного массива.

ПРОГРАМА СОРТУВАННЯ ДВОВИМІРНОГО МАСИВУ.

Sub Двовимірний_за_зростанням()

Dim n, m, i, j, C As Integer, k As Single

Dim Vih(), z As Double, Text, Text_1 As String

n = InputBox("Введіть кількість членів масиву першого напрямку", n)

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

'Введення масиву

ReDim Vih(1 To n, 1 To m)

For i = 1 To n

For j = 1 To m

Vih(i, j) = InputBox("Введіть " & j & "член " & i & "рядка", "Введення масиву", Vih(i, j))

Text = Text + CStr(Vih(i, j)) + ","

Vih(i, j) = CDbl(Vih(i, j)) ' Звернути увагу на обов'язкову зміну типу даних!!!

Next j

Text = Text + Chr(10)

Next i

Text = "Вихідний масив" + Chr(10) + Text

' Сортування масиву

For i = 1 To n

Повтор:

k = 0

For j = 1 To m - 1

If Vih(i, j) > Vih(i, j + 1) Then

z = Vih(i, j)

Vih(i, j) = Vih(i, j + 1)

Vih(i, j + 1) = z

k = k + 1

End If

Next j

If k > 0 Then GoTo Повтор:

Next i

'Вивід результату

For i = 1 To n

For j = 1 To m

Text_1 = Text_1 + CStr(Vih(i, j)) + ","

Next j

Text_1 = Text_1 + Chr(10)

Next i

Text_1 = "Результуючий масив" + Chr(10) + Text_1

MsgBox Text & Chr(10) & Text_1

End Sub

Контрольные понятия для изучения.

1. Особенности применения функций MsgBox и InputBox.

2. Вложенные циклы.

3. Методы сортировки массивов данных.

Порядок выполнения.

1. Изучить теоретическую часть и занести в протокол основные положения.

2. Разобрать работу программы изложенной в данной работе, занести её в протокол и запустить на выполнение

3. Проанализировать работу функций InputBox и MsgBox в случае вывода совокупности данных в одном окне Microsoft Word.

4. Изучить методы сортировки двумерных массивов данных.

5. Отобразить в протоколе основные трудности, возникшие у Вас при создании программы.

Лабораторная работа №7

Синтаксис языка программирования VBA (продолжение).

Цель: изучить использование основных элементов языка программирования VBA.

Основные вопросы.

5. Пользовательские процедуры.

6. Фактические и формальные параметры.

7. Описание пользовательской функции.

8. Описание пользовательской подпрограммы.