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

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

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

Сообщение Qwertiy » 16.12.2011 (Пт) 22:53

Код: Выделить всё
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
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

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

Сообщение FireFenix » 17.12.2011 (Сб) 20:50

Код: Выделить всё
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
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 17.12.2011 (Сб) 21:29

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

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

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

Сообщение FireFenix » 17.12.2011 (Сб) 22:10

Если учесть, что тип Nullable(Of Boolean) можно записать как Boolean?, то будет изменение тока в 1 символе и думаю короче больше некуда :)
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 17.12.2011 (Сб) 22:34

Именно так :)


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList