|
|
| Другие темы раздела | |
|
VBA Создать массив из четных чисел последовательности
https://www.cyberforum.ru/ vba/ thread312449.html Дана последовательность натуральных чисел a1, a2, ..., an. Создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте В чем ошибка? помогите,пожалуйста решить Sub Chage() Dim n As Integer, A(), Ind(), i As Integer, c As Integer Cells.Clear n = InputBox("Введите размер массива:") ReDim A(1 To n) For i = 1 To n |
Квадратная матрица. VBA Написать подпрограмму,меняющую К-тую строку квадратной матрицы порядка N c K-тым столбцом. Номер строки К и порядок матрицы ввести с клавиатуры. 2 1 2 0 0 0 0 0... 1 2 1 2 0 0 0 0... 2 1 2 1 2 0 0 0... 0 2 1 2 1 2 0 0... 0 0 2 1 2 1 2 0... 0 0 0 2 1 2 1 2... ... |
|
VBA Разное округление при одних и тех же значениях
https://www.cyberforum.ru/ vba/ thread311877.html сижу, туплю что-то((( свой код весь писать не буду, но данный пример отражает суть: Sub test() Dim wotta As Single Dim intPer As Integer Dim sDays As Single sDays = 11 intPer = 45 wotta = Round(sDays * intPer / 100, 1) MsgBox wotta & " and " & Round(11 * 45 / 100, 1) |
VBA Верно ли, что по четным числам выпало больше осадков, чем по нечетным?
https://www.cyberforum.ru/ vba/ thread311859.html Данные о количестве осадков, выпавших на каждый день февраля. Верно ли, что по четным числам выпало больше осадков, чем по нечетным? Использовать только один оператор цикла. Условие: osadki – случайные числа, осадки на каждый день февраля; osadki - положительное; нужно найти: верно, что chet>nechet, или нет Sub zadacha2() Dim chet, nechet, i, osadki chet = 0 'задаем начальное значение... |
|
VBA Определить, является ли введенное число четным Создать форму и разместить в ней 2 текстовых поля. При вводе в 1-е поле нечетного число, во 2-м поле должно появляться слово "Нечетное", при вводе четного числа - слово "Четное", если введено не число, то отобразить во 2-м поле "Неверный код" |
VBA Вывести результат в таблицу Excel собственно у меня есть полностью решенное задание,но возникла небольшая трудность с которой я никак немогу справится, проблемма в том что мне надо полученную матрицу вывести на лист exel, я знаю что это делается с помощью cells, но незнаю как это реализовать чтобы все работало Dim a(1 To 100, 1 To 100) As Integer Dim b(1 To 100, 1 To 100) As Integer Dim i As Integer Dim j As Integer Dim n... https://www.cyberforum.ru/ vba/ thread311784.html |
| VBA Как сделать поле для ввода изначально пустым? Уважаемые знатоки! Пожалуйста, помогите чайнику. Подскажите, пожалуйста, есть ли какая-то шпаргалка для совсем новичка, которому не надо углубляться сразу в дебри? В идеале вариант Напиши ... Получишь ... Понимаю, нужно "курить мануал", пользоваться встроенным файлом помощи... Но уж больно там много технических терминов, через которые продраться - никак пока. Со временем разберусь. Пока нужно... https://www.cyberforum.ru/ vba/ thread311704.html |
VBA VBA и Outlook Всем привет! Прошу помощи. Есть следующий код в VBA в Outlook 2007: Option Base 1 Dim i Dim Equip() Sub macro1() Equip = Array("C1", "C2", "C3") |
| VBA Перенос проекта VBA на другие машины Доброго времени суток, уважаемые Дамы и Господа. Обращаюсь к Вам с весьма нелепым вопросом: мною был написан проект на VBA для Word 2003, состоящий из форм и модулей. Сие чудо нужно распространить на другие машины, в идеале, в виде инсталляшки. Кроме того, необходимо, что бы макрос запускался сочетанием клавиш. Прошу помочь с решением задачи. К несуразности вопроса прошу отнестись с пониманием... https://www.cyberforum.ru/ vba/ thread311366.html |
VBA решить с областью дополнительных значений и без области дополнительных значений
https://www.cyberforum.ru/ vba/ thread311355.html Нужно решить с областью дополнительных значений и без области дополнительных значений x = 1.3 A = 1.91 z = \frac{4.57*{x}^{3}- ln(\frac{x+4}{3x+1}){cos}^{2}x}{A*29\sqrt{{tg}^{2}\left|x+7 \right|+5*{x}^{1/4}}} |
|
VBA Переставить местами столбцы массива А так, чтобы суммы элементов столбцов оказались расположены в порядке убывания Переставить местами столбцы массива А так, чтобы суммы элементов столбцов оказались расположены в порядке убывания n =6, m = 5 |
VBA Найти сумму квадратов и квадрат суммы элементов массива А
https://www.cyberforum.ru/ vba/ thread311339.html Найти сумму квадратов и квадрат суммы элементов массива А |
|
0 / 0 / 0
Регистрация: 03.06.2011
Сообщений: 10
|
|
| 03.06.2011, 23:03 [ТС] | 0 |
Последовательность вещественных чисел - VBA - Ответ 172320403.06.2011, 23:03. Показов 2072. Ответов 2
Метки (Все метки)
Ответ
0
|
|
| 03.06.2011, 23:03 | |
|
Готовые ответы и решения:
2
Дана последовательность из n вещественных чисел. Найти колличество нулевых элементов последовательности и произведение отрицательных элементов Задана последовательность N вещественных чисел. Отсортировать последовательность по убыванию методом выбор
|
| 03.06.2011, 23:03 | |
| 03.06.2011, 23:03 | |
|
Помогаю со студенческими работами здесь
0
Дана последовательность из n вещественных чисел. Найти наиболее длинную последовательность подряд идущих нулей. Вводить последовательность вещественных чисел, пока следующее вводимое число не окажется меньше предыдущего. Вывести полученую последовательность. Задана последовательность из n вещественных чисел. Определить количество чисел, больших своих соседей
|