Помогите ,пожалуйста ,создать проект : (Цитата) "Создайте проект. На форме разместите текстовое поле,метку и кнопку КОЛИЧЕСТВО . Программа должна определить кол-во слогов во введенном в текстовое поле слове. Считается ,что каждый слог оканчивается на гласную букву." (Конец цитаты) Заранее спасибо !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Здравствуйте, Moe-TBoe! Про создание проекта что-то неясно в чем проблема. А количество слогов равно количеству гласных букв. Ответ отправлен: 26.05.2003, 00:45 Отправитель: USA-Lesh Отвечает Invisible Man
Здравствуйте, Moe-TBoe! 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Dim a As String Private Sub Command1_Click() For i = 1 To Len(Text1.Text) a = Mid(Text1.Text, i, 1) If a = "а" Or a = "у" Or a = "е" Or a = "э" Or a = "о" _ Or a = "ы" Or a = "я" Or a = "и" Or a = "ю" Or a = "ё" Then kol = kol + 1 End If DoEvents Debug.Print i Next i MsgBox "Кличество: " & kol End Sub 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Проект скинул на мыло.... Ответ отправлен: 25.05.2003, 16:47 Отправитель: Invisible Man
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.