- 1
- 2
- 3
If CLng(Text1.Text)<400 and CLng(Text1.Text)>400 then
Text3.Text="17"
End if
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−316.8
If CLng(Text1.Text)<400 and CLng(Text1.Text)>400 then
Text3.Text="17"
End if
и почему условие не проходит?
И правда, почему, с чего бы это вдруг?)))
Кристально чистая победа
Гыгы у нас на информатике каждый урок такие говнокоды пишут и потом удивляются почему не работает =)
If Val(Text1.Text) < 400 AndAlso val(Text1.Text) > 400 Then Text3.Text = "17"
та же хрень (в смысле никогда не true), но соответствует правилам красивописания, более дуракоустойчиво, а так-же оптимизировано!
простите, всплакнул