При вводе слова в массив не позволить вводить цифры, пробел - VB

Узнай цену своей работы

Формулировка задачи:

Разработать приложение для

создания массива данных

и поиска в ней

текстовой

информации по начальному символу. Проблема с первой частью задания. Нужно, чтобы при вводе отсеивались:
  • целые числа
  • десятичные дробные числа через запятую и точку(2,5 и 2.5)
Кроме того, когда данные не введены или введен "пробел", при нажатии на кнопку так же выдавалось сообщение "введите слово". При вводе текста типа "кот" у меня выделяет строку If Format(slovo.Text, "0.0") Then
Помогите исправить,пожалуйста

Решение задачи: «При вводе слова в массив не позволить вводить цифры, пробел»

textual
Листинг программы
Private Sub Command1_Click()
If IsNumeric(replace(slovo.Text,".",",")) Or slovo.Text = "" Or slovo.Text = " " Then
  MsgBox "Введите слово!", vbExclamation, "Ошибка"
Else
'  If Format(slovo.Text, "0.0") Then
'    MsgBox "Введите слово!", vbExclamation, "Ошибка"
'  Else
    spisok.AddItem slovo.Text
    kolich = kolich + 1
    chisarr(kolich) = slovo.Text
    slovo.Text = ""
    slovo.SetFocus
'  End If
End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

8   голосов , оценка 3.75 из 5
Похожие ответы