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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.05.2009, 13:52   #1
umiko
Пользователь
 
Регистрация: 15.05.2009
Сообщений: 13
По умолчанию мне еще ваша помощь нужна очень

задача легкая!но я в этом не спец,хоть стараюсь (((
Условие: Дано вещественное число а. Из чисел 1, 1+1/2 , 1+1/2 +1/3 , … вывести на экран те, которые меньше а (VBA в Excel)
Код:
Код:
Private Sub CommandButton1_Click()

Dim n, a, i As Integer
Dim sum As Long

a = InputBox("Введите размерность число a:")
n = InputBox("Введите число n:")
For iCounter = 1 To n Step 1 / n
Next
If i < a Then

MsgBox " " & iCounter
End If
End Sub
выводит только только последнее число,в чем моя ошибка объясните пожалуйста

Последний раз редактировалось Stilet; 22.05.2009 в 10:09.
umiko вне форума
Старый 16.05.2009, 14:02   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Код:
Private Sub Command1_Click()
Dim a As Double
Dim i As Integer
Dim s As Double

a = InputBox("a=")
i = 1
s = 1
Do While s < a
MsgBox (s)
i = i + 1
s = s + 1 / i
Loop

End Sub
ps Писал в VB 6
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума
Старый 16.05.2009, 14:05   #3
umiko
Пользователь
 
Регистрация: 15.05.2009
Сообщений: 13
По умолчанию

спасибо,ничегос страшного...лучше хоть что то,чем ничего
umiko вне форума
Старый 16.05.2009, 14:13   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Может, хватит, наконец, дублировать темы?

Код:
Private Sub CommandButton1_Click()
    'Условие: Дано вещественное число а. Из чисел 1, 1+1/2 , 1+1/2 +1/3 ,
    '… вывести на экран те, которые меньше а (VBA в Excel)

    'a = InputBox("Введите максимальное число a:", , 3)
    a = 3
    i = 1: s = 0: текст = ""
    Do
        s = s + 1 / i
        текст = IIf(i = 1, "1", текст & " + 1/" & i & " ")
        i = i + 1
        If s < Val(a) Then числа = числа & Format(s, "0.00") & " = " & текст & vbNewLine
    Loop While s < Val(a) And i < 1000
    MsgBox числа, vbInformation, "Числа, не превышающие " & a
End Sub
EducatedFool вне форума
Старый 16.05.2009, 14:16   #5
umiko
Пользователь
 
Регистрация: 15.05.2009
Сообщений: 13
По умолчанию

так я их вроде бы и не дублировала ((((

я же новичок...не обижайтесь

Последний раз редактировалось Stilet; 22.05.2009 в 10:12.
umiko вне форума
Старый 16.05.2009, 14:18   #6
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
так я их вроде бы и не дублировала ((((
А эту тему я что ли создал?

Или там другой вопрос задан?
EducatedFool вне форума
Старый 16.05.2009, 14:26   #7
umiko
Пользователь
 
Регистрация: 15.05.2009
Сообщений: 13
По умолчанию

извините,я про это забыла,просто я вчера наглость проявила...написала условие задачки и решите мне ёё....
umiko вне форума
Старый 21.05.2009, 14:13   #8
reginok
 
Регистрация: 19.05.2009
Сообщений: 8
По умолчанию

всем доброго времени суток! Помогите пожалуйста или подскажите! есть следующее задание - автоматизация процесса финплана (в Excel =))))). В общем для начала нужно разобраться как же сделать следующее - допустим имеется 2 листа Excel в одном лист, содержащий все статьи финплана, а в другом - одну статью (которая является частью финплана в целом=)). Нужно чтоб сумма , заложенная по этой статье сразу же отображалась в основном финплане! но ссылкой не обойтись, нужно чтоб связь была именно по статье бюджета(((((((((((( может я конечно совсем воды разлила( и ничего не понятно(((((( если что скажите) просто я с макросами и VBA никогда не сталкивалась(((((((((((((((воть! заранее огромное спасибо!
reginok вне форума
Старый 21.05.2009, 15:40   #9
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

2 reginok

Цитата:
Нужно чтоб сумма , заложенная по этой статье сразу же отображалась в основном финплане!
Всё решается простейшими формулами.

Создайте новую тему в разделе Microsoft Office Excel, прикрепите свой файл, укажите на примере файла, что где должно отображаться.
EducatedFool вне форума
Старый 22.05.2009, 09:57   #10
reginok
 
Регистрация: 19.05.2009
Сообщений: 8
По умолчанию

спасибо,что ответили) скоро скину! )
reginok вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Очень нужна ваша помощь с прогой Pingvinenok Фриланс 3 05.06.2008 23:32