Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Вычислить сумму и разность двух заданных одномерных массивов https://www.cyberforum.ru/ vba/ thread219437.html
Помогите, пожалуйста! нужно написать программу в VBA для задач: 1) В киоске продаются газета стоимостью 3 рубля, журнал стоимостью 20 рублей и книга стоимостью 40 рублей. Составить программу,...
Пример модуля Access VBA
Нужен пример какого-нибудь модуля для Access желательно с использованием форм, таблиц или отчетов
Работа переключателей VBA
Всем добрый день! Помогите поправить код макроса. Дело в том, что есть 2 переключателя, один должен просматривать массив и выводить значения = 0, другой переключатель должен выводить значение больше...
VBA Серия макросов в одной команде Подскажите плз. Я получаю по почте ежемесячно csv файл, в котором имеются записи в колонке А следующего вида: Договор;Группа счетов;Номер телефона;Дата звонка;Время звонка;Продолжительность... https://www.cyberforum.ru/ vba/ thread219265.html
VBA изменение картинок https://www.cyberforum.ru/ vba/ thread219063.html
задача такая: есть картинка в picturebox1 и есть картинка с ресурсов. необходимо при наведении на кнопку buttom изменять картинку в picturebox1 на картинку с ресурсов ровно на 2 секунды. причем...
Алгоритм (нерабочий код) VBA
Дана матрица A(N,M). Найти количество элементов этой матрицы больших среднего арифметического всех её элементов. Заранее спасибо
Разделение числа на отдельные цифры VBA
Привет! Я начинающий программист, передо мной стоит задача: например число 653 надо присвоить к 3 переменным по 1 цифре, то есть чтобы было A=6, B=5, C=3 для дальнейшего нахождения суммы чисел. Если...
VBA Судный день пришел Сижу на паре и не могу написать самостоятельную, программу на VBA, напишите пожалуйста!! 1. С использованием VBA разработать программу, осуществляющую заполнение ячеек на листе1 рабочей книги... https://www.cyberforum.ru/ vba/ thread218838.html
VBA Возраст по дате https://www.cyberforum.ru/ vba/ thread218773.html
Написала в Excel VBA вот такое условие По идее, оно должно определять возраст по дате, но выдает ошибку For i = 1 To 10 If (DateTime.Now.Year - spisok(i).DataRozhd.Year) < 17...
VBA В каждой строке заданной матрицы A (M;N) вычислить сумму количество и среднее арифметическое положительных элементов решение В каждой строке заданной матрицы A (M;N) вычислить сумму количество и среднее арифметическое положительных элементов решение. Заранее спасибо) https://www.cyberforum.ru/ vba/ thread218677.html
729 / 405 / 95
Регистрация: 19.12.2010
Сообщений: 756
24.12.2010, 21:34 0

Найти произведение нечетных номеров элементов массива, значения которых принадлежит интервалу

24.12.2010, 21:34. Просмотров 911. Ответов 9
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Дан массив А(n), найти произведение нечетных номеров элементов массива,
'значения которых принадлежит интервалу [2,5;4,5]
Dim a(1 To 10) As Single
Dim pr As Integer
pr = 1
For i = 1 To 10
a(i) = Rnd() * 5 + 1
Cells(1, i) = a(i)
Next i
For i = 1 To 10 Step 1
If a(i) > 2.5 And a(i) < 4.5 Then
pr = pr * i
Cells(3, i) = i
End If
Next i
Cells(1, 11) = "pr="
Cells(1, 12) = pr


Вернуться к обсуждению:
Найти произведение нечетных номеров элементов массива, значения которых принадлежит интервалу
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2010, 21:34
Готовые ответы и решения:

Вычислить среднее арифметическое нечетных элементов массива, значения которых принадлежат заданному интервалу
Вычислить среднее арифметическое нечетных элементов массива А (25), числовые значения которых...

Найти произведение номеров нечетных элементов массива
Найти произведение номеров нечетных элементов массива А=(1,2,3,4,5,6,7,8,9,10,11) Добавлено...

Найти количество элементов массива, числовые значения которых принадлежат заданному интервалу
Найти количество элементов массива В (15), числовые значения которых принадлежат интервалу

Определить число элементов массива, значение каждого из которых принадлежит интервалу -20 ..+20
Задан одномерный целый массив A, количество элементов которого не определено, но указан конец...

9
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.