Ввод одномерных массивов. Вывод одномерных массивов

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

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

Пример подобного алгоритма – ввод одномерного массива А, содержащего n элементов, а память ЭВМ. Блок-схема решения такой задачи представляет собой одиночный цикл.

В зависимости от применяемого оператора ввода возможны два варианта программы:

а) программа с оператором ввода InputBox:

Dim n As Integer

Dim i As Integer

Dim Int_Array() As Integer

n = InputBox("Введите количество элементов массива")

ReDim Int_Array(n)

For i = 1 To n

Int_Array(i) = InputBox("Введите значение " & i & "-го элемента массива", "Ввод элементов массива ")

Next i

б) программа с оператором ввода Cells:

Dim n As Integer

Dim i As Integer

Dim Int_Array() As Integer

n = InputBox("Введите количество элементов массива")

Dim str_msg As String

For i = 1 To n

Int_Array(i) = Cells (1,i)

Next i

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

В варианте программы с использованием оператора Cells числа записываются в операторе в рабочем листе Excel (в примере элементы забиваются в 1-ой строке, начиная с 1-го столбца). Ошибки могут быть выявлены и исправлены до начала вычислений

Возможен и третий способ ввода элементов массива – когда элемент массива вычисляется по какой-либо формуле, где аргументом является индекс:

Dim n As Integer

Dim i As Integer

Dim Int_Array() As Integer

n = InputBox("Введите количество элементов массива")

ReDim Int_Array(n)

For i = 1 To n

Int_Array(i) = ...

Next i

Вывод элементов одномерного массива осуществляется через строковую переменную str_msg, которая первоначально берется пустой str_msg = "". При этом вывод осуществляется в диалоговое окно

str_msg = ""

For j = 1 To n

str_msg = str_msg & Int_Array(j) & ", "

Next j

MsgBox "Введено: " & str_msg, , "Вывод ранее введенного массива"

С помощью оператора Cells массив можно вывести в рабочий лист Excel:

For j = 1 To n

Cells (2, j) = Int_Array(j)

Next j

В приведенном куске программы вывод будет осуществляться во вторую строку, начиная с 1-го столбца.

Пример 24. Ввод-вывод одномерного массива

Sub DemoStatArray()

Dim n As Integer

Dim i As Integer

Dim Int_Array() As Integer

n = InputBox("Введите количество элементов массива")

ReDim Int_Array(n)

Dim str_msg As String

For i = 1 To n

Int_Array(i) = InputBox("Введите значение " & i & "-го элемента массива", "Ввод элементов массива ")

Next i

str_msg = ""

For j = 1 To n

str_msg = str_msg & Int_Array(j) & ", "

Next j

MsgBox "Введено: " & str_msg, , "Вывод ранее введенного массива"

End Sub