Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Sway11
0 / 0 / 0
Регистрация: 21.03.2011
Сообщений: 2
#1

На VBA составить функцию для - VBA

24.03.2011, 21:31. Просмотров 959. Ответов 4
Метки нет (Все метки)

нахождения количества элементов массива, стоящих на нечетных местах.
Только начали изучать vba, вот первое домашнее задание. Объясните пожалуйста, как делать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2011, 21:31
Я подобрал для вас темы с готовыми решениями и ответами на вопрос На VBA составить функцию для (VBA):

Составить функцию VBA для вычисления при заданном n суммы
Не знаю, как записать саму функцию S = 3*5 + 5*7 + 7*9 + ... + (n-1)*(n+1) в...

С помощью математических функций VBA составить пользовательскую функцию для вычисления выражения
С помощью математических функций VBA составить пользовательскую функцию для...

VBA Составить функцию VBA
помогите пожалуйста...

Составить функцию в VBA
Составить функцию в Excel. При проверке использовать проверочные значения: x=1...

Необходимо составить функцию на VBA, которая вычисляет сумму S=1-2^2+3^2-.-12^2
Помогите плз составить функцию, которая вычисляет сумму S=1-2^2+3^2-...-12^2

Составить программный код для расчета функции на VBA
y=(10sindx)/(1+d2x2), если х изменяется от 0,1 до 10 с шагом Dx=0,13, а d от...

4
Ципихович Эндрю
1409 / 319 / 28
Регистрация: 10.04.2009
Сообщений: 4,962
24.03.2011, 22:01 #2
сегодня только Бузине2009 ответил!!!!!
0
Sway11
0 / 0 / 0
Регистрация: 21.03.2011
Сообщений: 2
24.03.2011, 22:03 #3
я не смог найти этого на форуме...если скинете ссылку, буду очень признателен
0
Vlanib
Частенько бываю
744 / 326 / 42
Регистрация: 20.06.2007
Сообщений: 854
25.03.2011, 05:01 #4
Visual Basic
1
2
3
4
For i = LBound(a) To UBound(a)
    If i Mod 2 <> 0 Then iCnt = iCnt + 1
Next
MsgBox iCnt
0
Ципихович Эндрю
1409 / 319 / 28
Регистрация: 10.04.2009
Сообщений: 4,962
25.03.2011, 08:03 #5
1.ВВести целочисленный массив A(N).найти минимальное значение среди элементов с четными номерами и максимальное значение среди элементов с нечетными номерами.


PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub P1()
'С помощью Dim создаём массив.
'1 to - используется, чтобы элементы массива нумеравались с 1.
'По умолчанию они нумеруются с 0.
'Long - означает, что в массиве могут быть только целые числа (есть ещё дробные).
Dim Массив(1 To 10) As Long
Dim i As Long
Dim Min As Long
Dim Max As Long
'For ... To ... Next - называется циклом и используется для выполнения
'одного и того же действия много раз.
'В данном случае я использую этот цикл для заполнения массива данными
'с листа Excel.
For i = 1 To 10
    Массив(i) = Cells(i, 1).Value
Next i
'Помещение в переменные данных из первых элементов массива.
'В дальнейшем будем сравнивать эти числа с другими элементами.
'Если они будут меньше или больше, то будем изменять значения в переменных Min и Max.
Min = Массив(2)
Max = Массив(1)
For i = 1 To 10
'Для определения чётности и нечётности элементов массива
'будем использовать инструмент Mod. Этот инструмент можно мысленно
'заменить знаком "/". Только результатом деления будет остаток от деления.
'Если остаток от деления на число 2 не равно нулю - значит оно делится
'с остатком и не является чётным.
'If ... Then ... End If - используется для выбора действия.
    If i Mod 2 = 0 Then
        If Массив(i) < Min Then
            Min = Массив(i)
        End If
    Else
        If Массив(i) > Max Then
            Max = Массив(i)
        End If
    End If
Next i
'MsgBox - инструмент VBA для вывода на монитор информации, находящейся в переменных.
'Знак & используется для связывания информации в одну строку; vbCr - переводит текст
'в диалоговом окне (MsgBox) - на следующую строку.
MsgBox "Min = " & Min & vbCr & "Max = " & Max
End Sub
0
25.03.2011, 08:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2011, 08:03
Привет! Вот еще темы с решениями:

Разработать функцию (VBA) для обработки примитивов типа отрезок
Раньше не когда не программировал в Бесике. Знаю только Делфи и С,на уровне...

Как составить короткий код VBA (Excel) для задачи?
Здравствуйте! Интересно, какой будет самый короткий код VBA для детской задачи...

Как создать функцию для вычисление сумму элементов в одномерном массиве vba?
Как создать функцию для вычисление сумму элементов в одномерном массиве vba?...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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