Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Макрос. Начисление ЗП по нарядам https://www.cyberforum.ru/ vba/ thread1341579.html
Помогите, пожалуйста, доработать макрос! Задача следующая: нужно посчитать начисление ЗП для каждого человека по нарядам. Написала макрос, он работает, но только в том случае, если фамилии отсортированы, т.к. значение ячейки сравниваю с предыдущей. Не могу сообразить: как накапливать сумму к начислению, если фамилии не будут отсортированы? В прикрепленном файле таблица и текст моего макроса....
VBA Массив из n случайных чисел
Помогите пожалуйста, совершенно не разбираюсь в информатике.... Написать программу, которая вводит массив из n случайных чисел (n задаёт пользователь) в диапазоне от -100 до 100, после чего вычисляет сумму четных элементов массива, абсолютное значение которых превышает 25. Огромное спасибо заранее))
VBA Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности https://www.cyberforum.ru/ vba/ thread1341511.html
Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности. Пытался сам сделать не получилось, выдает не верное значение, помогите вот код поправьте или напишите свой. Private Sub CommandButton1_Click() Dim i Dim A() As Single Dim n As Byte t = 0 n = TextBox1 g = 1
VBA Описать пользовательский тип для занесения сведений о рейсе самолета Доброго вечера. Помогите с решением задачи, пожалуйста. Описать пользовательский тип для занесения сведений о рейсе самолета. https://www.cyberforum.ru/ vba/ thread1341498.html
Описать класс, содержащий описание статического свойства VBA
Доброго вечера. Помогите с решением задачи, пожалуйста. Описать класс, содержащий описание статического свойства.
VBA Программа для вывода в окне Immediate всех элементов коллекции с указанным именем Доброго вечера. Помогите с решением задачи, пожалуйста. Фрагмент программы для вывода в окне Immediate всех элементов коллекции с указанным именем. https://www.cyberforum.ru/ vba/ thread1341496.html
VBA Фрагмент программы, переворачивающий введенную строку https://www.cyberforum.ru/ vba/ thread1341495.html
Доброго вечера. Помогите с решением задачи, пожалуйста. Фрагмент программы, переворачивающий введенную строку.
VBA Составить фрагмент кода для вывода словесного названия цифры вводимой с клавиатуры
Доброго вечера. Помогите с решением задачи, пожалуйста. Составить фрагмент кода для вывода в окне Immediate словесного названия цифры вводимой с клавиатуры.
VBA Описать свойство класса с типом Collection https://www.cyberforum.ru/ vba/ thread1341493.html
Доброго вечера. Помогите с решением задачи, пожалуйста. Описать свойство класса с типом Collection и соответствующие property-методы для него.
VBA Описать property-метод для присвоения значения свойству строкового типа значения календарной даты Доброго вечера. Помогите с решением задачи, пожалуйста. Описать property-метод для присвоения значения свойству строкового типа значения календарной даты с проверкой корректности даты. https://www.cyberforum.ru/ vba/ thread1341492.html
Записать оператор добавления указанного числа в эту коллекцию, расположив его между указанными числами VBA
Доброго вечера. Помогите с решением задачи, пожалуйста. Дана коллекция, содержащая в указанной последовательности следующие числа: ***. Записать оператор добавления указанного числа в эту коллекцию, расположив его между указанными числами.
VBA Записать оператор удаления из этой коллекции указанного числа Доброго вечера. Помогите с решением задачи, пожалуйста. Дана коллекция, содержащая в указанной последовательности следующие числа: ***. Записать оператор удаления из этой коллекции указанного числа. https://www.cyberforum.ru/ vba/ thread1341490.html
0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 2
0

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности - VBA - Ответ 7038625

25.12.2014, 23:11. Показов 2520. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности.
Пытался сам сделать не получилось, выдает не верное значение, помогите вот код поправьте или напишите свой.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
 
Dim i
Dim A() As Single
Dim n As Byte
t = 0
n = TextBox1
g = 1
ReDim A(1 To n) As Single
For i = 1 To n
A(i) = Int((10) * Rnd + 10)
Cells(1, i + 1) = A(i)
aa = aa & A(i) & Space(3)
If Cells(1, i) <> Cells(1, i + 1) Then
t = t + 1
End If
Next i
TextBox2 = aa
TextBox3 = t
End Sub


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

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности
Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности....

Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности
Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности....

Найти количество четных элементов последовательности целых чисел
Прошу помощи. Давно позабыл все чему учили в универе:-| Дана последовательность из n целых...

Дано натуральное чисел N и последовательность чисел - 1,1,3,5,... Вычислите количество членов последовательности , не превосходящих заданного N.
Дано натуральное чисел N и последовательность чисел - 1,1,3,5,... Вычислите количество членов...

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

Дана последовательность из n вещественных чисел. Найти колличество нулевых элементов последовательности и произведение отрицательных элементов
VBA, не как не могу написать(

Дана последовательность целых чисел a1, a2 , ..., an. Выяснить, будет ли она возрастающей.
Помогите с задачей пожалуйста

Вводится последовательность из N чисел. Найти произведение и количество положительных среди них чисел
Вводится последовательность из N чисел. Найти произведение и количество положительных среди них...

Дана последовательность из n чисел. Найти номер первого отрицательного, кратного 5 числа
Здравствуйте! Помогите составить код Дана последовательность из n чисел. Найти номер первого...

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