Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Вычислить сумму и разность двух заданных одномерных массивов https://www.cyberforum.ru/ vba/ thread219437.html
Помогите, пожалуйста! нужно написать программу в VBA для задач: 1) В киоске продаются газета стоимостью 3 рубля, журнал стоимостью 20 рублей и книга стоимостью 40 рублей. Составить программу, которая спрашивает о желании покупателя (газета, журнал, книга?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу. 2) Определить, имеются ли среди чисел...
Пример модуля Access VBA
Нужен пример какого-нибудь модуля для Access желательно с использованием форм, таблиц или отчетов
VBA Работа переключателей https://www.cyberforum.ru/ vba/ thread219317.html
Всем добрый день! Помогите поправить код макроса. Дело в том, что есть 2 переключателя, один должен просматривать массив и выводить значения = 0, другой переключатель должен выводить значение больше 0. Выкладываю коды 2-х переключателей. Кстати переключатели должны работать только тогда, когда выполнены предыдущие условия. В 10 строке как раз это условие и прописано. Private Sub...
VBA Серия макросов в одной команде https://www.cyberforum.ru/ vba/ thread219265.html
Подскажите плз. Я получаю по почте ежемесячно csv файл, в котором имеются записи в колонке А следующего вида: Договор;Группа счетов;Номер телефона;Дата звонка;Время звонка;Продолжительность звонка;Продолжительность звонка с округлением;Стоимость звонка;Исходящий номер;Входящий номер;Тип звонка;Описание звонка;Тип соединения;№ базовой станции;Объем МБ;Роуминговая сеть...
изменение картинок VBA
задача такая: есть картинка в picturebox1 и есть картинка с ресурсов. необходимо при наведении на кнопку buttom изменять картинку в picturebox1 на картинку с ресурсов ровно на 2 секунды. причем только 1 раз можно нажимать на кнопку. помогите пожалуйста делаю игрушку
VBA Алгоритм (нерабочий код) https://www.cyberforum.ru/ vba/ thread218939.html
Дана матрица A(N,M). Найти количество элементов этой матрицы больших среднего арифметического всех её элементов. Заранее спасибо
VBA Разделение числа на отдельные цифры https://www.cyberforum.ru/ vba/ thread218895.html
Привет! Я начинающий программист, передо мной стоит задача: например число 653 надо присвоить к 3 переменным по 1 цифре, то есть чтобы было A=6, B=5, C=3 для дальнейшего нахождения суммы чисел. Если тема уже была то извиняйте, не нашел. Спасибо
VBA Судный день пришел
Сижу на паре и не могу написать самостоятельную, программу на VBA, напишите пожалуйста!! 1. С использованием VBA разработать программу, осуществляющую заполнение ячеек на листе1 рабочей книги Excel в диапазонах А1:А5 и С1:С5 четными числами по убыванию. Предусмотреть ввод начального числа через форму, запуск исполнения программы-кнопкой, размещенной на форме(Использовать оператор цикла...
VBA Возраст по дате https://www.cyberforum.ru/ vba/ thread218773.html
Написала в Excel VBA вот такое условие По идее, оно должно определять возраст по дате, но выдает ошибку For i = 1 To 10 If (DateTime.Now.Year - spisok(i).DataRozhd.Year) < 17 And spisok(i).Ocatt1 = 5 And _ spisok(i).Ocatt2 = 5 And spisok(i).Ocatt3 = 5 Then Worksheets("Лист2").Cells(j, 1).Value = spisok(i).FIO ...
VBA В каждой строке заданной матрицы A (M;N) вычислить сумму количество и среднее арифметическое положительных элементов решение https://www.cyberforum.ru/ vba/ thread218677.html
В каждой строке заданной матрицы A (M;N) вычислить сумму количество и среднее арифметическое положительных элементов решение. Заранее спасибо)
Вычислить сумму, количество и среднее арифметическое положительных элементов матрицы VBA
В каждой строке заданной матрицы A (M;N) вычислить сумму количество и среднее арифметическое положительных элементов решение. Заранее спасибо)
VBA Обработка таблиц, VBA https://www.cyberforum.ru/ vba/ thread218659.html
Добрый день, помогите пожалуйста со следующим заданием. Есть таблица со след как пример полями. "Улица" "Номер дома" "Номер квартиры" "Тариф" "Оплата Январь" "Февраль" "Март" .......и т.д Улица1 4 43 10 Да Да Улица4 5 11 10 Нет Нет Улица1 6 23 10 Да Да Улица4 5 56 10 Нет Нет Улица3 7 46 10 Да Да Если не понятна таблица, то пример во вложении как картинка. Задача следующая, нужно...
Заблокирован
24.12.2010, 21:07 0

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

24.12.2010, 21:07. Показов 1347. Ответов 9
Метки (Все метки)

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

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub m_1()
Dim A(1 To 5) As Single
Dim i As Byte
Dim Произведение As Single
Dim Количество As Byte
Произведение = 1
For i = 1 To 5
    A(i) = Val(InputBox("Введите значение для элемента массива. Дробные числа вводите, используя точку."))
Next i
For i = 1 To 5 Step 2
    If A(i) >= 2.5 And A(i) <= 4.5 Then
        Произведение = Произведение * A(i)
        Количество = Количество + 1
    End If
Next i
If Количество = 0 Then
    MsgBox "Данных, соответствующих заданным условиям, нет"
Else
    MsgBox "Произведение равно: " & Произведение
End If
End Sub


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

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

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

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

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

9
24.12.2010, 21:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2010, 21:07
Помогаю со студенческими работами здесь

Возвести в квадрат те элементы матрицы, модуль значения которых принадлежит интервалу
Помогите написать подпрограммы к этой задаче и блок-схему Ввести двумерный массив АNxM, вывести...

Для массива найти произведение элементов, значения которых не лежат в пределах [2; 8]
написать программу на языке delphi (pascal) Для массива с1,с2...с30 найти произведение...

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

Найти произведение элементов массива, принадлежащих интервалу
Ввести одномерный массив A , вывести его. Найти произведение его элементов, принадлежащих интервалу...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru