Играем с VB.NET :: Ветви If'а

[Qwertiy]

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

Module All

Sub Main()
  Dim Answer As Boolean

  If Answer Then
    Console.WriteLine("Наверное, да...")
  Else
    Console.WriteLine("Наверное, нет...")
  End If

  If Not Answer Then
    Console.WriteLine("А может и нет...")
  Else
    Console.WriteLine("А может и да...")
  End If

  If Answer = True Then
    Console.WriteLine("И всё-таки да!")
  ElseIf Answer = False Then
    Console.WriteLine("И всё-таки нет!")
  Else
    Console.WriteLine("Ещё подумаю :)")
  End If

  Console.ReadKey()
End Sub

End Module

Надо минимальным изменением получить вывод

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

Наверное, нет...
А может и да...
Ещё подумаю :)

Подразумевается использование VS2010.

PS: Задачка моя, ответ знаю. Мне интересно, как бытро кто-нибудь догадается

[FireFenix]

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

Module Module1
    Sub Main()
        'Boolean -> Nullable(Of Boolean)
        Dim Answer As Nullable(Of Boolean)

        If Answer Then
            Console.WriteLine("Наверное, да...")
        Else
            Console.WriteLine("Наверное, нет...")
        End If

        If Not Answer Then
            Console.WriteLine("А может и нет...")
        Else
            Console.WriteLine("А может и да...")
        End If

        If Answer = True Then
            Console.WriteLine("И всё-таки да!")
        ElseIf Answer = False Then
            Console.WriteLine("И всё-таки нет!")
        Else
            Console.WriteLine("Ещё подумаю :)")
        End If

        Console.ReadKey()
    End Sub
End Module

[Qwertiy]

Верно, но изменение кода не минимально

[FireFenix]

Если учесть, что тип Nullable(Of Boolean) можно записать как Boolean?, то будет изменение тока в 1 символе и думаю короче больше некуда

[Qwertiy]

Именно так