Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на Basic / VBA

Выпуск № 064
от 26.05.2003, 22:10

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 110
Отправлено ответов: 130
Активность: 118.1 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

USA-Lesh
Статус: Начальный
Общий рейтинг: 162.5
[Подробней >>]
Invisible Man
Статус: Начальный
Общий рейтинг: 111.11
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 106. Помогите ,пожалуйста ,создать проект : (Цитата) "Создайте проект. На форме разместите текстовое... (ответов: 2)

Вопросов: 1, ответов: 2


 Вопрос № 106

Помогите ,пожалуйста ,создать проект :
(Цитата)
"Создайте проект.
На форме разместите текстовое поле,метку и кнопку КОЛИЧЕСТВО .
Программа должна определить кол-во слогов во введенном в текстовое поле слове.
Считается ,что каждый слог оканчивается на гласную букву."
(Конец цитаты)
Заранее спасибо !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



Вопрос отправлен: 23.05.2003, 22:02
Отправитель: Moe-TBoe (boom-ser-rem@yandex.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает USA-Lesh

Здравствуйте, 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.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (41)
C / C++ (33)
Perl (6)
Builder / Delphi (17)
Pascal (29)
Basic / VBA (14)
Java / JavaScript (12)
PHP (8)
MySQL / MSSQL (5)
Пользователю
Windows 95/98/Me (40)
Windows NT/2000/XP (33)
"Железо" (29)
Поиск информации (14)
Администратору
Windows NT/2000/XP (20)
Linux / Unix (11)
Юристу
Гражданское право (5)
Семейное право (3)
Трудовое право (4)
КоАП (3)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование


Яндекс цитирования
© 2003 Россия, Москва. Авторское право: RusFAQ.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное