Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Цикл For ... Next  (Прочитано 11554 раз)
0 Пользователей и 1 Гость смотрят эту тему.
samlab
Гость
« : 12-11-2010 02:21 » 

Делаю вот так
Код:
Dim i As Single
Dim a, b, h, k As Variant

Private Sub cmd1_Click()
a = Val(txt1.Text)
b = Val(txt2.Text)
h = Val(txt3.Text)
k = Val(txt4.Text)
For i = a To b Step h
Print i
Next
End Sub

Когда вводишь обычные числа (1, 2, 3) все нормально работает, а когда вводишь 1,3 или 3,11 все зависает... Подскажите пожалуйста, в чем моя ошибка, может тип переменных выбрал неверный? Заранее спасибо, просто в понедельник курсовую показывать, а у меня кроме этого, еще 2 задания висят...
Записан
Алексей++
глобальный и пушистый
Глобальный модератор

ru
Offline Offline
Сообщений: 13


« Ответ #1 : 12-11-2010 04:17 » 

Single - что за тип ?
А в отладчике смотрел, почему из цикла не выходишь ?
Записан

baldr
Команда клуба

cy
Offline Offline
Пол: Мужской
Дорогие россияне


WWW
« Ответ #2 : 12-11-2010 06:05 » 

samlab, Вместо Variant поставь тот же Single, раз уж ты все равно к нему приводишь.
На всякий случай уточню - ты целые числа вводишь?
Записан

Приличный компьютер всегда будет стоить дороже 1000 долларов, потому что 500 долларов - это не вполне прилично
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #3 : 12-11-2010 07:52 » 

а почему вы решили, что у вас что-то зависает?

пробовали в отладчике пройти, чтобы точно быть уверенным и видеть как изменяются переменные?
Записан

I Have Nine Lives You Have One Only
THINK!
samlab
Гость
« Ответ #4 : 12-11-2010 18:26 » 

Single - что за тип ?
А в отладчике смотрел, почему из цикла не выходишь ?
Сингл - число одинарной точности... Не могу даже посмотреть, как только запускаю, сразу все намертво виснет...

Добавлено через 1 минуту и 15 секунд:
samlab, Вместо Variant поставь тот же Single, раз уж ты все равно к нему приводишь.
На всякий случай уточню - ты целые числа вводишь?
Ввожу не только целые числа, пробовал везде менять сингл и вариант, почему то все равно виснет...

Добавлено через 51 секунду:
а почему вы решили, что у вас что-то зависает?

пробовали в отладчике пройти, чтобы точно быть уверенным и видеть как изменяются переменные?
А потому, что не возможно никак проследить работу программы, сразу все наглухо виснет, даже в диспетчер процессов не могу попасть, спасает только ресет

Добавлено через 1 час и 41 секунду:
Вроде разобрался с циклами... Теперь вот такой вопрос, как вывести в окне MsgBox все значения переменных в цикле, а не по одному
Код:
Dim i As Variant
Private Sub cmd1_Click()
h = 0.3
a = 1.3
b = 3.11
k = 8.88
For i = a To b Step h
y = 3 * Cos(3 * i + k) - 5 * Sin(2 * i)
n = Round(y, 1)
Print i, n 'Если вместо этого делать MsgBox "Ответ" & i , то не работает'
Next i
End Sub
« Последнее редактирование: 12-11-2010 19:28 от samlab » Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 12-11-2010 19:39 » 

samlab,

Код:
Dim buffer as String
.......
For i = a To b Step h
    ......
    buffer = buffer + " " + Str(n)
Next i

MsgBox buffer
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
samlab
Гость
« Ответ #6 : 12-11-2010 19:49 » 

Спасибо большое, только преподаватель требует немного в другой форме, которая норм. работает в Print
Код:
Print "При X =" & i,  "Y =" & n
Что нам дает вот такое представление результата
Код:
При X =...   Y =....
При X =...   Y =....
При X =...   Y =....
Я думал, что в msgbox аналогично
« Последнее редактирование: 12-11-2010 19:56 от samlab » Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #7 : 12-11-2010 20:56 » 

samlab, делай, как тебе надо. Я лишь хотел показать, как можно.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
samlab
Гость
« Ответ #8 : 12-11-2010 21:38 » 

Спасибо Да-да
Вот только еще один момент хотел уточнить... В задании сказано, в процессе вычисления y, нужно найти произведение всех положительных cos (3*y). Подскажите, пожалуйста, в моем случае, как вычислить это самое произведение...
Код:
Dim i As Variant

Private Sub cmd1_Click()
Cls
k = Val(txt1.Text)
For i = 1.3 To 3.11 Step 0.3
y = 3 * Cos(3 * i + k) - 5 * Sin(2 * i)
n = Round(y, 1)
Print "X =" & i, "Y =" & n
Next
End Sub
« Последнее редактирование: 12-11-2010 22:58 от samlab » Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #9 : 13-11-2010 05:15 » 

Добавлено через 51 секунду:
а почему вы решили, что у вас что-то зависает?

пробовали в отладчике пройти, чтобы точно быть уверенным и видеть как изменяются переменные?
А потому, что не возможно никак проследить работу программы, сразу все наглухо виснет, даже в диспетчер процессов не могу попасть, спасает только ресет


а поставить брекпоинт и потом по Ф8 и сомтреть как изменяются переменные?
Записан

I Have Nine Lives You Have One Only
THINK!
samlab
Гость
« Ответ #10 : 13-11-2010 14:23 » 

Добавлено через 51 секунду:
а почему вы решили, что у вас что-то зависает?

пробовали в отладчике пройти, чтобы точно быть уверенным и видеть как изменяются переменные?
А потому, что не возможно никак проследить работу программы, сразу все наглухо виснет, даже в диспетчер процессов не могу попасть, спасает только ресет


а поставить брекпоинт и потом по Ф8 и сомтреть как изменяются переменные?
Да я потом уже сообразил, но все уже и так получилось, нужно было объявить перменную i как произвольную

Добавлено через 1 час, 53 минуты и 7 секунд:
сделал вот так, так у меня вообще нет ни одного положительного косинуса
Код:
Dim i As Variant

Private Sub cmd1_Click()
Cls
k = Val(txt1.Text)
For i = 1.3 To 3.11 Step 0.3
y = 3 * Cos(3 * i + k) - 5 * Sin(2 * i)
n = Round(y, 1)
Print "x =", i, "y =", n
Next i
For i = 1.3 To 3.11 Step 0.3
Print "Proizvedenie polojitelnix cos(3y) =", Cos(3 * y)
Next i
MsgBox "k =" & k, vbInformation, ""
End Sub

Private Sub cmd2_Click()
Cls
txt1.Text = ""
End Sub

« Последнее редактирование: 13-11-2010 16:17 от samlab » Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines