Основы алгоритмизации и программирования на языке VBA: Практическое пособие к выполнению контрольных работ по курсу «Информатика», страница 5

По умолчанию начальное значение индекса равно нулю, а чтобы индекс у элементов массива изменялся, начиная с 1, нужно пред описанием всех переменных, констант и процедур, входящих в модуль, поставить директиву Option Base 1

Примеры объявлений:

Option Base 1

Dim X(5) As Single 'объявлен одномерный массив (вектор) из 5 вещественных чисел

Dim Y(100) As Integer  'то же но из 100 целых

Dim Z(7,6) As String  'двумерный массив (матрица) из 7 строк и 6 столбцов

Ввод одномерного массива. Чтобы заполнить область, отведенную под массив данными, нужно использовать приведенную здесь циклическую структуру. Для определенности будем считать, что нужно ввести массив X, состоящий из N элементов.

Схема

Программный фрагмент

………………………………………

Dim X(20) As Single

'фрагмент для ввода массива

N=InputBox ("Сколько чисел?", "Ввод размерности")

For i=1 to N

X(i)=InputBox ("Введи X(" & i & ")","Ввод элементов")

Next i

………………………………………..

Вывод одномерного массива. Он осуществляется практически по той же схеме, что и ввод, с той лишь разницей,  что вывод можно осуществить в окно при помощи процедуры MsgBox или  в ячейки листа рабочей книги  Excel. Во фрагменте программы показано последнее, причем числа выводятся в столбец.

Схема

Программный фрагмент

 

………………..

' вывод массива

Cells(1,1)="№ п/п"

Cells(1,2)="X(i)"

For i=1 to N

   Cells(i+1,1)=i

   Cells(i+1,2)=X(i)

Next i

…………………

Типовые алгоритмы обработки одномерных массивов.

Среди множества разнообразных алгоритмов, использующихся для обработки одномерных массивов, чаще всего встречаются следующие типы:

·  Вычисление сумм, произведений и количества.

·  Определение наименьшего или наибольшего по значению элемента и его порядкового номера.

·  Перестановка и замена элементов в массиве.

·  Формирование нового массива  из элементов имеющихся.

Примеры разработки схем таких алгоритмов и программ, написанных для них, приведены в следующем разделе.

3.  Примеры составления программ

3.1.  Линейный алгоритм.

Задача. Вычислить  , при заданных

1.  Составляем схему алгоритма (рис.3.1.).

Рис.3.1. Схема алгоритма примера 3.1.

2.  Составляем таблицу соответствия переменных.

В схеме

В программе

Тип

Комментарий

F

Single

Результат

L

Single

Исходные данные

B

Single

Исходные данные

3.  Составляем текст программы.

Sub Лин_Пример()

'Составил студент группы ЗО-11с Иванов И.И.

Dim L As Single, B As Single, F As Single

L=InputBox ("Введи L", "Ввод")

B=InputBox ("Введи B", "Ввод")

F=Sqr(L)+B^2

MsgBox "При L=" & L & " B=" & B & Chr(13) & " F=" & F

End Sub

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

Для него подбираем такие числовые значения исходных данных, для которых результат легко просчитывается устным счетом или с помощью микрокалькулятора.

9

8

67

1,44

0,3

1,29

Результаты тестирования представлены в следующих окнах:

   

Они доказывают правильность работы программы, так как совпадают с результатами, полученными "ручным" счетом.

3.2.  Разветвляющийся алгоритм.

Задача. Составить программу для расчета функции

Кроме значения F нужно выводить и № рабочей формулы.

Результаты нужно выводить в ячейки рабочего листа, оформив их в виде следующей таблицы (в ней сразу же приводится полный набор тестов; для этого взято по одной точке из каждого отрезка и точки, в которых меняется формула).