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

Для ввода и вывода элементов массива обычно используются циклы. В следующих упражнениях будет использован цикл For … Next.

Упражнение 1. Организуйте ввод и вывод пяти целых чисел.

1. Создайте проект. На форму поместите две командные кнопки. Для кнопки Command1 свойству Caption задайте значение “Ввод массива”. Для кнопки Command2 свойству Caption задайте значение “Вывод массива”.

2. Откройте окно кода формы и в разделе General объявите массив целых чисел из 5 элементов: Dim Mas (1 to 5) As Integer. Здесь же объявите и переменную i, которая будет использоваться как счётчик цикла For…Next и индекс массива: Dim i As Integer.

3. Откройте окно программного кода для кнопки “Ввод массива”, щёлкнув по ней два раза. В процедуре Command1_Click() в цикле For…Next запросим с помощью функции InputBox пять целых чисел. Эти числа присвоим поочередно пяти элементам массива Mas(), начиная с первой ячейки. Программный код процедуры:

Private Sub Command1_Click()

For i = 1 To 5

Mas(i) = InputBox("Введите целое число", "Ввод массива")

Next i

End Sub

4. Откройте окно программного кода для кнопки “Вывод массива”, щёлкнув по ней два раза. В процедуре Command2_Click() массив целых чисел будет распечатываться на форме с использованием метода Print и функции Tab(). Функция Tab() используется для задания отступа на заданное количество позиций. Программный код процедуры:

Private Sub Command2_Click()

Print Tab(15), "Вывод массива"

Print

For i = 1 To 5

Print Tab(10), Mas(i)

Next i

End Sub

5. Сохраните форму в файле с именем Form1 и проект с именем Mas1 в своей папке.

6. Запустите проект на выполнение. После щелчка на командной кнопке “Ввод массива” введите пять целых чисел. После щелчка на командной кнопке “Вывод массива” массив будет распечатан на форме в столбик.