- 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
и почему условие не проходит?
guest 18.04.2009 05:53 # −1
И правда, почему, с чего бы это вдруг?)))
guest 20.04.2009 06:31 # 0
Кристально чистая победа
guest 24.04.2009 14:57 # 0
Гыгы у нас на информатике каждый урок такие говнокоды пишут и потом удивляются почему не работает =)
guest 15.06.2009 16:55 # 0
guest 11.08.2009 09:20 # 0
guest 27.09.2009 00:33 # +1
DPNET 15.10.2011 00:48 # 0
If Val(Text1.Text) < 400 AndAlso val(Text1.Text) > 400 Then Text3.Text = "17"
та же хрень (в смысле никогда не true), но соответствует правилам красивописания, более дуракоустойчиво, а так-же оптимизировано!
Serabas 04.04.2013 14:00 # 0
простите, всплакнул
guest8 09.04.2019 18:21 # −999
guest8 09.04.2019 18:21 # −999
guest8 09.04.2019 18:22 # −999
guest8 09.04.2019 18:23 # −999
guest8 09.04.2019 18:23 # −999
guest8 09.04.2019 18:23 # −999