Здравствуйте, Лиза !
Мне кажется Вы уже задавали этот вопрос.

Вот Ваша программа на QBasic

DIM Perem AS STRING
PRINT "Введите название переменной ";
10 INPUT Perem
IF LEN(Perem) = 0 THEN PRINT "Данные не введены, повторите ввод": GOTO 10
IF LEN(Perem) > 40 THEN PRINT "Переменная не может быть больше 40 символов"
FOR i = 1 TO LEN(Perem)
SELECT CASE ASC(LCASE$(MID$(Perem, i, 1)))
CASE 48 TO 57, 97 TO 122
CASE ELSE
PRINT "Переменная должна состоять только из латинских букв и цифр"
END SELECT
NEXT i
IF VAL(MID$(Perem, 1, 1)) > -1 THEN PRINT "Переменная не может начинаться с цифры"
END
Удачи!

<font color=blue><b>!!!</b></font>
Здравствуйте, Лиза !
Вы уже это спрашивали, если не ошибаюсь =)

http://rusfaq.ru/info/Question/130370<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:blue 1px solid; padding:10px;‘ class=fieldset><font color=blue><i>В приложение добавлен ответ на вопрос 130370.
Не нужно давать только ссылки на другие вопросы - копируйте их в приложение.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=http://rusfaq.ru/info/user/18359 target=_blank>Николай Владимирович / Н.В.</a></b> (Профессор)
<b>• Дата редактирования:</b> 15.05.2008, 21:16</font></fieldset>

Приложение:
Отвечает: Павленко Александр Геннадьевич Здравствуйте, Лиза ! Идентификатор переменной в QBasic подразумевает: 1) состоит из латинских букв и цифр 2) первый символ - буква 3) длина от 1 до 40 символов проверим все эти условия в обратном порядке. Приложение: dim text as string text="" ‘не знаю откуда он "дан" ‘3 условие If len(text)>40 or len(text)<1 then print "это не идентификатор" end End if ‘2 условие If val(left$(text,1))<>0 then print "это не идентификатор" end End if ‘1 условие For i = 1 to len(text) c=asc(ucase$(right$(left$(text,i),1))) if c<65 or c>90 then print "это не идентификатор" end End If Next i ‘все условия пройдены print "Это идентификатор!" end Ответил: Павленко Александр Геннадьевич (статус: 2-ой класс) Дата отправки: 03.04.2008, 16:49