Контрольная по программированию на VBA для Excel Задание 6

Задание 6 на тему «Одномерные массивы»

Заполонить массив из 5 чисел. Найти сумму квадратов отрицательных значений.

Решение :

Option Explicit
Sub задание_6()

Dim mas(1 To 5) As Single, i As Byte, a As Single // объявляем массив и перемененные
For i = 1 To 5 // в цикле заполняем массив
mas(i) = Val(InputBox(«Введите положитьельно или отрицательное число»)) // ввод данных
Next i
a = 0 // чистим переменную
For i = 1 To 5 // в цикле читаем данные из массива
If mas(i) < 0 Then // проверяем отрицательное ли число
a = a + (mas(i)) ^ 2 // ищем сумму квадратов отрицательных чисел
End If
Next i
MsgBox «Сумма квадратов отрицательных значений = » + str(a) // выводим результат
End Sub

174
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.