Попробуем одновременно вспомнить и оператор Select Case, и вложенные алгоритмические структуры, и типы данных. Разработайте программу, которая по введённому пользователем названию типа данных в VB выводит его характеристики: числовой, символьный, строковый или логический; знаковый/беззнаковый; целочисленный/нецелочисленный. Возможен и вариант, что пользователь введёт название несуществующего типа.
Sub Main() Dim dataType As String Console.WriteLine("Введите название типа данных:") dataType = Console.ReadLine() Select Case dataType.ToLower() Case "integer", "int" Console.WriteLine("Это целочисленный числовой тип данных") Case "byte" Console.WriteLine("Это целочисленный беззнаковый тип данных") Case "short" Console.WriteLine("Это целочисленный числовой тип данных") Case "long" Console.WriteLine("Это целочисленный числовой тип данных") Case "single" Console.WriteLine("Это числовой тип данных") Case "double" Console.WriteLine("Это числовой тип данных") Case "string" Console.WriteLine("Это строковый тип данных") Case "char" Console.WriteLine("Это символьный тип данных") Case "boolean", "bool" Console.WriteLine("Это логический тип данных") Case Else Console.WriteLine("Такого типа данных нет") End Select Console.ReadLine() End Sub
Пример ввода и вывода программы:
Введите название типа данных: Int Это целочисленный числовой тип данных Введите название типа данных: STRING Это строковый тип данных Введите название типа данных: Float Такого типа данных нет
Dim dataType As String
Console.WriteLine("Введите название типа данных:")
dataType = Console.ReadLine()
Select Case dataType.ToLower()
Case "integer", "int"
Console.WriteLine("Это целочисленный числовой тип данных")
Case "byte"
Console.WriteLine("Это целочисленный беззнаковый тип данных")
Case "short"
Console.WriteLine("Это целочисленный числовой тип данных")
Case "long"
Console.WriteLine("Это целочисленный числовой тип данных")
Case "single"
Console.WriteLine("Это числовой тип данных")
Case "double"
Console.WriteLine("Это числовой тип данных")
Case "string"
Console.WriteLine("Это строковый тип данных")
Case "char"
Console.WriteLine("Это символьный тип данных")
Case "boolean", "bool"
Console.WriteLine("Это логический тип данных")
Case Else
Console.WriteLine("Такого типа данных нет")
End Select
Console.ReadLine()
End Sub
Пример ввода и вывода программы:
Введите название типа данных:Int
Это целочисленный числовой тип данных
Введите название типа данных:
STRING
Это строковый тип данных
Введите название типа данных:
Float
Такого типа данных нет