End Sub

Next i

Next i

Randomize

ReDim A(N)

Dim A()

Private Sub Command1_Click()

Ввод массива, количество элементов которого заранее не известно

Next I

Next I

Print A(i);

Вывод линейного массива на экран

End Sub

Next i

Randomize

Dim A(10)

Private Sub Command1_Click()

End Sub

Next i

Next i

Dim A(10)

Private Sub Command1_Click()

End Sub

Next I

Print A(i);

Dim A(10)

Private Sub Command1_Click()

Способы задания линейного массива

Заполнить массив можно следующими способами:

1. с помощью оператора присваивания:

A(1) = 1.5

A(2) = 2

A(3) = -4

A(4) = -0.5

A(5) = 8

A(6) = 99

For i = 1 To 6 'Вывод массива на экран

2. С помощью оператора InputBox

For i = 1 To 6

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

For i = 1 To 6 'Вывод массива на экран

Print A(i) + " ";

Амперсанды выделяются пробелами.

3. С помощью генератора случайных чисел.

For i = 1 To 6

A(i) = Int(Rnd * 10)

Print A(i) & " "; 'Вывод массива на экран

Строка программы A(i) = Int(Rnd * 10)вырабатывает случайное число. Функция Rnd вырабатывает псевдослучайное число в интервале от 0 до 1. Например, 0,458619. Оно умножается на 10 (0,458619*10 = 4,58619) Функция Int выделяет целую часть числа - 4, отбрасывая дробную 0,58619.

Если требуется заполнить массив случайными положительными и отрицательными числами, то можно использовать команду:

A(i) = (-1) ^ Int(Rnd * 10) * Int(Rnd * 100)

1 способ. Вывод производится в цикле

For i = 1 To 6

Элементы массива выводятся в одну строку через пробел.

2 способ – с поясняющим текстом

For i = 1 To 6

Print "A("; i; ")="; A(i)

A(1) = 1.5

A(2) = 2

A(3) = -4

A(4) = -0.5

A(5) = 8

A(6) = 99

Если заранее не известно число членов массива, то создают динамический массив. Команда определения массива записывается в этом случае без указания размерности – Dim A( ). Далее следует записать ключевое слово ReDim A(N), который указывает верхнюю границу массива А в котором N-элементов.

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

For i = 1 To N

A(i) = Int(Rnd * 100)

For i = 1 To N

Print "A("; i; ")="; A(i)

Занятие 28. Решение задач: одномерные массивы

Задача 1. Составьте программу вычисления суммы элементов одномерного целочисленного массива из 10 чисел.