Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2012, 23:27   #1
Ирина2106
Новичок
Джуниор
 
Регистрация: 14.05.2012
Сообщений: 2
По умолчанию программирование VBA

Нужно найти из вводимого диапазона числа, у которых 5 делителей.

Код:
Sub rabota1()
n = InputBox("Введите нижнюю границу диапазона", "", 1)
k = InputBox("Введите верхнюю границу диапазона", "", 10000)
MsgBox "5 делителей  имеют числа :  "
For i = n To k
kolD = 0
For j = 1 To k
If i Mod j = 0 Then kolD = kolD + 1
Next j
If kolD = 5 Then
MsgBox i
End If
Next i
End Sub
Считает не правильно, подскажите в чем проблема? чего не хватает=)

Последний раз редактировалось ACE Valery; 20.05.2012 в 00:16.
Ирина2106 вне форума Ответить с цитированием
Старый 19.05.2012, 23:39   #2
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

Код:
For j = 1 To i
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программирование VBA Ирина2106 Microsoft Office Excel 2 15.05.2012 12:17
VBA программирование GlebovaNastena Microsoft Office Excel 2 25.04.2012 19:34
Программирование на VBA L100748 Microsoft Office Access 1 27.01.2012 00:20
программирование на VBA Anton_Str Помощь студентам 2 22.01.2012 19:22
Программирование на VBA onlyslay Microsoft Office Excel 5 21.05.2011 19:40