Разбор работы программы сортировки двумерного массива.
Цель: изучить использование основных элементов языка программирования 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. Описание пользовательской подпрограммы.