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