При вводе слова в массив не позволить вводить цифры, пробел - VB
Формулировка задачи:
Разработать приложение для
создания массива данных
и поиска в нейтекстовой
информации по начальному символу. Проблема с первой частью задания. Нужно, чтобы при вводе отсеивались:- целые числа
- десятичные дробные числа через запятую и точку(2,5 и 2.5)
Помогите исправить,пожалуйста
Решение задачи: «При вводе слова в массив не позволить вводить цифры, пробел»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д