Практическая работа №5. Работа с массивами

Задание.

Массив – это совокупность нескольких переменных одного типа, которые могут принимать одинаковые или различные значения, объединенных одним общим именем (идентификатором) и идентифицируемых (адресуемых) вычисляемым индексом.

Различают статические и динамические массивы. Границы статических массивов устанавливаются на этапе разработки и могут изменяться только в новой версии программы. Динамические массивы изменяют свои границы в ходе выполнения программы.

Компонентами массива могут быть не только простейшие данные, но и структурные, в том числе массивы. В этом случае мы получаем массив массивов - многомерный массив. Для индексации элементарных компонент в этом случае может потребоваться два, три и более индексов.

Для решения этой задачи мы будем использовать две локальные процедуры – в первой введём элементы массива, а во второй – находить максимальный элемент, а также его вывод

è Блок-схема.

Наша блок-схема разбита на два блока: 1) ввод элементов массива, 2) нахождение максимального элемента. Каждый блок представляет собой отдельную программу (процедуру), которая выполняет определённую операцию. Для заполнения массива можно использовать цикл с предусловием или с постусловием.

è Откройте приложение MS Excel.

è Выполните команду СервисàМакросàРедактор Visual Basic или нажмите <Alt+F11>.

è Добавьте форму (команда Insertà UserForm)

è Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)

è Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления (ViewàToolBox), следующие объекты управления: Label (Метка), TextBox (Текстовое поле), CommandButton (Командная кнопка), ListBox (Список).

è В окне Properties (Свойства) для каждого объекта управления установить свойства, приведённые в таблице 4.

Таблица 4

è Примерный интерфейс программы может выглядеть так:

è Код программы:

Dim Massiv() As Single, Size As Integer

Private Sub cmdVvodMassiva_Click()

Dim i As Integer

Size = Val(txtSize.Text)

ReDim Massiv(Size)

i = 1

Do While i <= Size

Massiv(i) = Val(InputBox("Массив(" + Str(i) + Ä")=","Ввод массива"))

lstMassiv.AddItem "A(" + Str(i) + ")=" + ÄStr(Massiv(i))

i = i + 1

Loop

End Sub

Private Sub cmdMaxElement_Click()

Dim i As Integer

Max! = Massiv(1)

i = 1

Do Until i > Size

If Massiv(i) > Max Then Max = Massiv(i)

i = i + 1

Loop

txtMax.Text = Str(Max)

End Sub

è Задайте массив из 15 элементов и посмотрите как работает программа.

è Измените циклы в программе первый сделайте используя ключевое слово «Until» (с постусловием), а второй с ключевым словом «While» (с предусловием)

è Измените, код программы так, что бы она искала минимальный элемент в массиве

è Сохраните файл под именем «Нахождение максимального элемента»