Написать программу, определение чисел и букв - VB
Формулировка задачи:
Доброе утро! Поставили такую задачу, написать программу, которая определяет число и букву. Суть в чем, есть текстовая строка, в нее вводим букву или цифру (или же все вместе), кликаем на кнопку и в другом текстовом окошке выводится информация о том, что было введено, т.е. это цифра или буква (или все вместе). Обязательно нужно сделать через
Case
. Подскажите пожалуйста, всем заранее спасибо.Решение задачи: «Написать программу, определение чисел и букв»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim i&', b0 As string, bA As string, b_ As string
- Text2=""
- For i = 1 To Len(Text1.Text)
- Select Case Mid(Text1.Text, i, 1)
- Case "0" To "9": Text2= Text2 & "цифра "
- Case "A" To "Z", "a" To "z", "А" To "Я", "а" To "я", "Ё", "ё": Text2=Text2 & "буква "
- Case Else: Text2=Text2 & "ХЗ "
- End Select
- Next i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
