Загадка от Эрика Липперта

[tyomitch]

(гусарам, которым я уже рассказал правильный ответ - молчать!)

Пусть x - переменная типа Variant.

• когда следующий код напечатает False:
  

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

  If x = x Then Print True Else Print False

  
  
• а когда этот?
  

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

  If CStr(x) = CStr(x) Then Print True Else Print False

  
  
• который из них печатает False в большем числе случаев?

[FaKk2]

Как звезды в небе лягут...

[vvs_adm]

А как вообще заставить твой код печатать false?

[GSerg]

Дык ты его не запускай, ты думай, когда он в принципе может такое напечатать

[vvs_adm]

Так я это и спрашивал, потому что что-то не придумывается, а хочется поскорее...

[GM]

Ну первое это понятно:
1.

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

x = Null
If x = x Then Print True Else Print False


1,2. Еще один вариант, катит также и для первого варианта

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

Private Sub Form_Load()
Dim x
Set x = New Class1

If CStr(x) = CStr(x) Then Print True Else Print False
End Sub


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

'Делаем некий клас class1
Option Explicit
Function some()
some = Int(Rnd * 10)
End Function
'В атрибутах ставим процедуру по умолчанию


который из них печатает False в большем числе случаев?

2Tyomitch: Тип так


ЗЫ Ну почему диалап срывает в самый непододящий момент

[tyomitch]

GM всё разгадал. Congratulations!

[GM]

Ура Все же разгадал.