Написать программу, определение чисел и букв - 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
                        

Оцени полезность:

7 голосов , оценка 4 из 5

Похожие ответы