VB 15. Массивы

Выполнение:

1. Создайте новый проект. Расположите элементы управления на новой форме (рис. 15.1).

2. Задайте свойству Multiline для текстового окна txtМассив значение равное true (для того, чтобы в текстовом окне можно было выводить текст в несколько строк).
3. Далее необходимо запрограммировать кнопку Вычислить так, чтобы в текстовое окно выводились элементы массива, их сумма, а затем их среднее арифметическое. Для этого в процедуре, описывающей событие щелчка мыши по кнопке Вычислить, опишем переменные, которые мы будем использовать при решении поставленной задачи:

Dim Массив(9) As Integer
Dim i As Integer
Dim Сумма As Integer

4. Для среднего арифметического специальную переменную описывать не надо, потому что оно вычисляется по формуле Сумма разделить на 10.
5. Для того чтобы задать значения элементов массива, воспользуемся циклом:

For i = 0 To 9
Массив(i) = Rnd() * 100
Next

Функция Rnd возвращает значение, которое меньше 1, но больше или равно нуля.

6. Теперь задайте начальное значение для Суммы, равное 0
7. С помощью следующего цикла вычислим сумму элементов массива:

For i = 0 To 9
 Сумма = Сумма + Массив(i)
Next

8. Теперь осталось вывести элементы массива, сумму и среднее арифметическое в текстовое окно.
9. Сначала выведите фразу Массив:

txtМассив.Text = "Массив: "

10. Теперь в цикле необходимо вывести элементы массива:

For i = 0 To 9
 txtМассив.Text = txtМассив.Text + Str(Массив(i))
Next

Функция str представляет возвращаемое числовое значение как строковое (String).

11. Для того чтобы выводить текст с новой строки, добавьте символ перехода на новую строку, ASCII-код которого равен Chr(10)+Chr(13) (или значение встроенной константы vbCrLf), т.е.:

txtМассив.Text = txtМассив.Text + vbCrLf + "Сумма:" + Str(Сумма)

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

Dim Девять(9) as integer