20) Способы обработки массивов.

Сумма элементов массива

Пример программы, которая сначала вводит 30 действительных чисел, организовывает их хранение в массиве, определяет сумму элементов этого массива и выводит результат на экран монитора.

Число положительных элементов массива

Пример программы, которая сначала вводит 30 действительных чисел, организовывает их хранение в массиве, определяет количество положительных элементов и выдает сообщение на экран.

Определение максимального элемента

Пример программы, которая сначала вводит 30 действительных чисел, затем организовывает их хранение в массиве, определяет значение и индекс (номер) максимального элемента этого массива и выдает сообщение на экран.

Поиск элемента в неупорядоченном массиве

Пример программы, которая сначала вводит 30 различных (!) реальных чисел, организовывает их хранение в массиве, затем запрашивает так называемое "контрольное число". После этого проверяет, есть ли в массиве элемент, который равен контрольному числу.

21) Ввод и вывод в программе.

Sub йцу() Dim c As Integer ' для ввода можно использовать стандартный метод inputbox с = InputBox("Введите значение", "Заголовок", 0) ' для вывода используется Msgbox MsgBox c End Sub Метод InputBox в VBA При работе с VBA неоценимую помощь может оказать использование метода InputBox в качестве окна ввода данных для получения информации от пользователя. Метод имеет следующий общий вид: object.InputBox(Запрос, Заголовок, По_умолчанию, Слева, Сверху, Справка, Раздел, Тип) • Запрос – указывает текст, отображаемый в окне ввода (обязательный пара-метр). • Заголовок – определяет заголовок окна ввода (необязательный параметр). • По_умолчанию – задает значение, которое отображается в окне ввода по умолчанию (необязательный параметр) • Слева, Сверху – определяет координаты верхнего левого угла окна ввода на экране (необязательный параметр). • Справка, Раздел – указывает файл и раздел в справочной системе (необяза-тельный параметр). • Тип – указывает код типа данных, который будет возвращаться методом (не-обязательный параметр).

Пример. Метод InputBox является достаточно гибким. Использование суммы значений позволяет возвратить несколько типов данных. Например, для отображения окно ввода, которое принимает текстовый или чис¬ловой тип данных, установим код в значение 3 (т.е. 1+2 или "число" + "текст"). Следующая процедура вычисляет сумму двух чисел, если вводится числовые данные, и конкатенацию, если вводится текстовые данные. Sub Subjects4_Prog3() Dim A As Integer, B As Integer A = Application.InputBox(Prompt:="Введите данные", Type:=3) B = Application.InputBox(Prompt:="Введите данные", Type:=3) S = A + B MsgBox S End Sub MsgBox же позволяет вывести на экран диалоговое окно с определенным сообщением MsgBox c, vbOKOnly, "Значение с" с - возвращаемое значение, vbOkOnly - тип диалогового окна Значение с - заголовок окна