Цикл For ... Next

[samlab]

Делаю вот так

Код:

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 задания висят...

[Алексей++]

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

[baldr]

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

[HandKot]

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

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

[samlab]

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

[RXL]

samlab,

Код:

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

MsgBox buffer

[samlab]

Спасибо большое, только преподаватель требует немного в другой форме, которая норм. работает в Print

Код:

Print "При X =" & i,  "Y =" & n

Что нам дает вот такое представление результата

Код:

При X =...   Y =....
При X =...   Y =....
При X =...   Y =....

Я думал, что в msgbox аналогично

[RXL]

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

[samlab]

Спасибо
Вот только еще один момент хотел уточнить... В задании сказано, в процессе вычисления 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

[HandKot]

Добавлено через 51 секунду:

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

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

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

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

[samlab]

Добавлено через 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