Visual Basic:
Console.WriteLine("Значение а")
Dim a As Single = Console.ReadLine()
Dim a1 As Single
If a > 5 Then
a1 = a + 20
Console.WriteLine(ControlChars.CrLf &
"При a = {0:#} значение переменной a = {1:#}",
a, a1)
Else
a1 = a * 10
End If
Console.Write(ControlChars.CrLf &
"Для завершения программы нажмите любую клавишу...")
Console.ReadKey()
Visual Basic:
Console.WriteLine("Значение а")
Dim a As Single = Console.ReadLine()
Dim a1 As Single
If a > 5 Then
a1 = a + 20
Console.WriteLine(ControlChars.CrLf &
"При a = {0:#} значение переменной a = {1:#}",
a, a1)
Else
a1 = a * 10
Console.WriteLine(ControlChars.CrLf &
"При a = {0:#} значение переменной a = {1:#}",
a, a1)
End If
Console.Write(ControlChars.CrLf &
"Для завершения программы нажмите любую клавишу...")
Console.ReadKey()