Заполнение массивов данными. Для ввода элементов массива можно использовать следующие способы:

Для ввода элементов массива можно использовать следующие способы:

1) функцию InputBox – функция InputBox отображает диалоговое окно, содержащее текст, который запрашивает пользователя ввести некоторое значение и текстовое окно для ввода этого значения.

– для одномерного массива:

Dim A() As Integer

n = InputBox ("Введите размер массива", "Определение размера массива")

ReDim A(n)

Fo r i = 1 To n

'команда в редакторе VB набирается в одну строку

A(i) = InputBox ("Введите элемент массива А(" & i & ")", "Заполнение массива")

Next i

При своей работе приведенный кусок программы выводит следующие окна:

....

– для двумерного массива:

Dim A() As Integer

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

m = InputBox ("Введите количество столбцов массива")

ReDim A(n, m)

Fo r i = 1 To n

Fo r j = 1 To m

A(I, j) = InputBox ("Введите элемент массива А(" & i & "," & j & ")")

Next j

Next i

2) функцию Сells – данные считываются из рабочего листа Excel. В этом случае пользователь перед запуском программы вводит данные элементов массива в ячейки рабочего листа Excel.

– для одномерного массива:

Dim a(10) As Integer

For i = 1 To 10

'массив записан в 5-ой строке рабочего листа Excel

a(i) = Cells(5, i)

Next i

– для двумерного массива:

Dim a(10, 5) As Integer

For i = 1 To 10

For j = 1 To 5

a(i, j) = Cells(i, j)

Next j

Next i

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

3) использование генератора случайных чисел Rnd (), если значение массива не задано. При таком способе заполнения массива надо учесть, что перед использованием функции Rnd () надо инициализировать генератор случайных чисел, а также то, что он выдает числа в интервале от 0 до 1.

– для одномерного массива:

Randomize Timer

Dim a() As Single

n = InputBox ("Введите размер массива")

ReDim a(n)

For i = 1 To n

a(i) = 50 - Int(Rnd() * 100) / 10

Next i

– для двумерного массива:

Randomize Timer

Dim a() As Single

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

m = InputBox ("Введите количество столбцов массива")

ReDim a(n, m)

For i = 1 To n

For j = 1 To m

a(I, j) = 50 - Int(Rnd() * 100) / 10

Next j

Next i

4) с помощью формулы, если массив заполняется по какой-либо закономерности, причем значение элемента массива зависит от его местоположения:

– для одномерного массива:

Dim a() As Single

n = InputBox ("Введите количество строк)

ReDim a(n)

For i = 1 To n

a(i) = 5 * i / (i + 4)

Next i

– для двумерного массива:

Dim a() As Single

n = InputBox ("Введите количество строк", "Определение размера массива. Запрос 1 из 2")

m = InputBox ("Введите количество столбцов", "Определение размера массива. Запрос 2 из 2")

ReDim a(n, m)

For i = 1 To n

For j = 1 To m

a(i, j) = 5 * i / (j + 4)

Next j

Next i

Не нашли, что искали? Воспользуйтесь поиском: