Эйнштейны...

[GAGArin]

Я вот тут подумал а знает ли комп теорию относительности... Решил проверить оказыватся знает...

Код: Выделить всё

Private Sub Test_Click()
if e=m*c^2 then
MsgBox "Эйнштейн прав.",vbOKOnly, "Вывод"
else
MsgBox "Эйнштейн не прав.",vbOKOnly, "Вывод"
end if
end sub

Оказывается прав...

[Amed]

Конечно, если поставить Option Explicit, то процедура не работает в приведённо варианте. А если Option Explicit поставлен, то e=0 по умолчанию, так же, как и m и c , т.е. 0*0^2=0
А поэтому комп и знает теорию относительности

[GAGArin]

Конечно, если поставить Option Explicit, то процедура не работает в приведённо варианте. А если Option Explicit поставлен, то e=0 по умолчанию, так же, как и m и c , т.е. 0*0^2=0
А поэтому комп и знает теорию относительности

Хм... Я кажется в юмор писал...

[Amed]

Я тоже, кажется
Это типа у меня такие шутки

[Vitaly1]

Gagarin - Молодец! Хороший пример на условный оператор!