Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA ListBox, выбор значения http://www.cyberforum.ru/vba/thread1769573.html
Сделал 2 задания из 4, а дальше не получается. Буду очень благодарен за какую-либо помощь. 3. Выдать список маршрутов, которые обслуживает автобаза с указанным номером 4. Выдать список номеров...
проверка на пустые ячейки VBA
Доброе время суток ребята! With Sheets("Z28560") lastRow = .Cells(.Rows.Count, "G").End(xlUp).Row 'If lastRow < 2 Then If lastRow < 2 Or lastRow = "" Then ...
Начисление процентов VBA
Пенсионерка положила в банк в январе 1995 года 500 тыс.р. Сколько она возьмет через полторагода (18 месяцев), если банк начисляет 5 процентов в месяц?
VBA Последовательное переименование листов Приветствую! Имеется макрос: Sub Переименовать () Dim б Windows("НаименованиеКниги1.xls").Activate б = ActiveSheet.Name Windows("НаименованиеКниги2.xls").Activate http://www.cyberforum.ru/vba/thread1769094.html
VBA VBA Excel: Ведение отчетности преподавателя по успеваемости студентов в течение семестра http://www.cyberforum.ru/vba/thread1769052.html
Доброго времени суток! Очень нужна ваша помощь в написании во такой штуки в Excel: Ведение отчетности преподавателя по успеваемости студентов в течение семестра. Выводятся отчеты со списком ФИО и...
Найти в матрице число, в двоичном представлении которого больше всего единиц VBA
Условие. Размерности массивов вводить с клавиатуры. Исходные данные и результаты выводить на экран дисплея в табличном виде. Задача. Дана последовательность целых чисел. Найти в ней число, в...
VBA Запросы XPath к html файлу
День добрый! Стоит такая задача - получить некоторую информацию с веб страницы. Код страницы получил и записал его в строковую переменную. Далее необходимо эту строку обработать. Скажите, есть ли...
VBA При изменении нескольких ячеек выполнить код При изменении одной ячейки код выполняется: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> .Address Then Exit Sub ' здесь ваш код End Sub Как перечислить... http://www.cyberforum.ru/vba/thread1768885.html
VBA Выполнение действия при изменении значения в ячейке Excel http://www.cyberforum.ru/vba/thread1768803.html
Возможно ли создать условие при котором при изменении значения в ячейке с датой выполнялось следующее действие? Наподобие случая когда в одном ComboBox выбираешь из списка значение и происходит...
VBA динамическое обновление размеров текста в списке на слайде в powerpoint есть такая штука, когда создаешь список и указываешь размер шрифта, к примеру 10: содержание тема 1 тема 2 ... тема 12 http://www.cyberforum.ru/vba/thread1768698.html
Catstail
Модератор
24546 / 12462 / 2275
Регистрация: 12.02.2012
Сообщений: 20,231
24.06.2016, 07:23 0

Дан массив целых случайных чисел

24.06.2016, 07:23. Просмотров 940. Ответов 1
Метки (Все метки)

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

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
Function Sum1(A() As integer) As integer ()
Dim R() as integer
      n%=Ubound(A,1)
      Redim R(1 to n%-1) As integer
      For i%=1 to n%-1
           R(i%)=A(i%)+A(i%+1)
      Next i%
      Sum1=R     
End Function


Вернуться к обсуждению:
Дан массив целых случайных чисел
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.06.2016, 07:23
Готовые ответы и решения:

Дан одномерный массив случайных целых чисел. Разделить каждый элемент массива на его индекс
Дан одномерный массив W из 10 случайных целых чисел, каждое из которых лежит в пределах от 1 до...

Дан массив целых чисел. Определить количество элементов, кратных a
Sub one() Dim B(20) As Integer Dim i, a, k As Integer For i = 20 To 1 Step -1 B(i) = Rnd * 20...

Дан массив целых чисел (n=10), заполненный случайным образом числами из промежутка [-40,30]
Переставить первые три и последние три элемента местами, сохраняя следование чисел и, не используя...

Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа
Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и...

Сформировать и вывести построчно двумерный массив х размерностью 4*4 случайных целых чисел из интервала [–100, 100]
Задачка очень легкая,но не могу с ней справится,очень редко сталкиваюсь с VBA Сформировать и...

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