Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Двумерный и одномерный массивы в ВБА https://www.cyberforum.ru/ vba/ thread1844443.html
Здравствуйте, прошу помощи, я самоучка в ВБА, помогите разобраться, как правильно написать код для нижеперечисленных заданий: 1) дана матрица m x n (-7;23)элементы матрицы целые числа. Найти минимальный чётный элемент матрицы (ввод осуществляется в ячейке рабочего стола) 2) дан одномерный массив из N (-10;10) найти произведение всех элементов у которых порядковый номер равен удвоенному...
VBA Вывод SQL запроса в подчиненную форму
При нажатии на кнопку результат запроса выводится в подчиненную форму. Но при нажатии на кнопку второй раз access виснет. Что не так? Обработчик нажатия на кнопку: Private Sub Кнопка0_Click() Dim db As DAO.Database Dim qd As DAO.QueryDef Dim rs As DAO.Recordset
VBA Как в vba сделать 2 независимых цикла Вопрос : Необходимо чтобы цикл i выполнялся по условию , а j независимо по шагу 1 (1, 2,3 ) и т.д. Как осуществить? Не получается так: Sub primer_2() Dim cell As Range Dim i, lastRow, firstRow As Long lLastRow = Cells(Rows.Count, 1).End(xlUp).Row '_____________________________________________ https://www.cyberforum.ru/ vba/ thread1844390.html VBA Сложное объединение строк по нескольким параметрам Добрый день, уважаемые форумчане. Не могли бы Вы помочь, со следующей затруднительной ситуацией: Есть массив данных (пример в приложенном файле), в котором отображены номенклатурно-количественные значения. Массив довольно объёмный, в связи с чем, читать его крайне неудобно. Суть в том, чтобы "сжать" его размер до пределов "разумного". Поясню, с чем возникли сложности: В массиве - изрядное... https://www.cyberforum.ru/ vba/ thread1844318.html
VBA Работа с диапазонами данных на рабочем листе
а) Создать файл, содержащий сведения о погоде на неделю. Информация должна содержать следующее: название города; температура днем; осадки; атмосферное давление; скорость ветра. б) Написать программу, печатающую название тех городов, где температура днем и ночью находится в заданном диапазонах; данные о городах, где атмосферное давление не превышает среднего значения по всем городам в...
VBA Дата и время в среде VBA https://www.cyberforum.ru/ vba/ thread1844243.html
1. Сколько дней осталось до ближайшей пятницы, выпадающей на 13-е число? 2. Определите дату ближайшего воскресенья от заданной даты.
VBA Работа с числовыми данными Ввести два натуральных числа -- двузначное и трехзначное. Используя текстовые функции, вывести разность суммы цифр этих чисел https://www.cyberforum.ru/ vba/ thread1844240.html VBA Перенести содержимое обнаруженных дублей столбца "A" в
Добрый вечер! Имеется excel файл со структурой напечатанной ниже: Столбец "A" - Артикула товара; Столбцы начиная от "B" - Свойства товара; Строка "1" - Название свойства (кроме ячейки "А1" - в ней надпись - Артикул); Строки начиная со "2" - Содержание свойства (кроме ячеек столбца "А" - в них - Артикул);. В файле около 2 тыс. столбцов и около 100 тыс. строк.
VBA В выделенном фрагменте документа выпонить заданные действия и записать результат https://www.cyberforum.ru/ vba/ thread1844067.html
Написать в среде Word макрос, который в выделенном фрагменте документа должен выполнять заданные действия и записывать результат после исходного текста: 1.Удалить все символы, не являющиеся буквами или цифрами и предшествующие первому пробелу 2.Вставить символ перехода на новый абзац после каждого вхождения не-которого символа, задаваемого с клавиатуры
VBA Каждые 2 секунды ячейка меняет значение Доброго времени суток, помогите, пожалуйста, написать макрос: Надо чтобы каждые 2 секунды ячейка автоматически меняла значения от 1 до 200 - по-порядку (1,2,3...200) https://www.cyberforum.ru/ vba/ thread1843846.html
VBA Печать pdf из excel-листа
Добрый день! На компьютере установлен пакет программ adobe, и в списке устройств имеется принтер adobe pdf, он установлен как принтер по умолчанию. Имеется код макроса: Sub pe4at() ThisWorkbook.Worksheets("Лист1").PrintOut , printtofile:=True, prtofilename:=ThisWorkbook.Worksheets("Лист1").Name & ".pdf" End Sub
VBA Ввод в один textBox номер заказа и дату Доброго времени суток. На форме расположен textBox в который нужно ввести №заказа и после цифры кликнуть по полю вызвать календарь ,выбрать дату и занести в текстбокс. При выборе даты выдает ошибку? Как нужно подкорректировать код?:( https://www.cyberforum.ru/ vba/ thread1843766.html
0 / 0 / 0
Регистрация: 12.10.2016
Сообщений: 10
0

Выяснить, является ли сумма элементов одномерного массива четным числом - VBA - Ответ 9736940

07.11.2016, 13:00. Показов 596. Ответов 3
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Ребята, подскажите.
Задача:
Для целочисленного массива A[1..15] выяснить, является ли сумма его элементов четным числом. Вывести "ДА" или "НЕТ".
Вроде как написал решение, правильно выдает ДА и НЕТ, но в таблицу выводятся одни числа, а MsgBox вообще выдает какое то непонятное 3х значное число. Не могу поянть, где косяк.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
 Dim a(1 To 15) As Integer
  Dim i As Integer
   Dim s As Variant
s = 0
 For i = 1 To 15
 a(i) = Int(Rnd * 50)
 s = s + a(i)
 Next
  For i = 1 To 15 Step 1
        Cells(i, "A").Value = a(i)
    Next i
If s Mod 2 <> 0 Then
MsgBox "Нет" & s
Else
MsgBox "Да" & s
End If
End Sub


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

Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным порядковым номером
/VBA/ Разработать функцию для определения суммы чисел всех элементов одномерного массива с четным...

Для двузначного числа определить, будет ли сумма цифр четным числом
Для двузначного числа определить, будет ли сумма цифр четным числом. Исходное двузначное число...

Дано трехзначное число. Проверить, будет ли сумма его цифр четным числом
Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Пожалуйста напишите как...

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

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

Является ли сумма наибольшего и наименьшего элементов заданного одномерного массива четным числом
Помогите пожалуйста) заранее большое спасибо Определить, является ли сумма наибольшего и...

Определить, является ли сумма элементов массива четным числом
Задан массив целых чисел. Определить, является ли сумма элементов этого массива четным числом.

Определить является ли сумма элементов массива четным числом
Здравствуйте, снова мне нужна 2 программа хотя нет еще 2, если вам надоело можете не отвечать. Для...

Определить, является ли сумма элементов первой строки массива четным числом
Дан двумерный массив целых чисел. а) Определить, является ли сумма элементов первой строки массива...

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