Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/16: Рейтинг темы: голосов - 16, средняя оценка - 4.69
Нужна помощь
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 6
1

Создать функцию и процедуру с оператором множественного выбора Select Case.

23.09.2011, 16:12. Просмотров 2923. Ответов 12
Метки нет (Все метки)

Создать функцию и процедуру с оператором множественного выбора Select Case. И процедура и функция должны запрашивать у пользователя букву русского алфавита и сообщать - согласная она или гласная. Функция запрашиваемые данные получает из ячейки листа. Процедура запрашивает данные с помощью диологового окна InputBox.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.09.2011, 16:12
Ответы с готовыми решениями:

Составить программу с оператором Select Case, которая выводит заданное с клавиатуры число в диапазоне от 1 до 20 прописью
Написать программу, которая выводит заданное с клавиатуры число в диапазоне от...

1. Создать пользовательскую функцию. Используйте операторы if и Case. 2. Создать Пользовательскую Форму, использующую функцию
1) Создать пользовательскую функцию. Используйте операторы if и Case. 2)...

Ошибки при работе с ComboBox (Case without Select Case)
подскажите пожалуйста в чем ошибка. Я начинающий, поэтому не относитесь строго...

Как оформить условие на попадание в диапазон в конструкции Select Case ... End Select?
Народ, подскажите please, правильна ли конструкция следующего кода: Sub...

Создать макрос "радуга", угадывающий название цвета по цифре с использованием Select Case
Не знаю даже с чего начать Добавлено через 3 часа 36 минут Option Explicit...

12
magirus
23.09.2011, 16:17
  #2
 Комментарий модератора 
пока вам кто то поможет, сходите прочитайте правила форума, особенно п 2.3
0
Нужна помощь
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 6
23.09.2011, 16:24  [ТС] 3
мне нужен код VBA
0
Busine2009
Заблокирован
24.09.2011, 16:17 4
Нужна помощь,
если есть методичка в электронном виде с решением аналогичных задач, то выложите здесь.
0
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,014
24.09.2011, 16:24 5
Цитата Сообщение от Нужна помощь Посмотреть сообщение
букву русского алфавита и сообщать - согласная она или гласная
нет букв ни гласных ни согласных, есть только буквы передающие на письме звуки гл. сг. шип. зв. гл.
0
pincet
1328 / 916 / 123
Регистрация: 23.07.2010
Сообщений: 4,979
24.09.2011, 16:36 6
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
нет букв ни гласных ни согласных, есть только буквы передающие на письме звуки гл. сг. шип. зв. гл.
8-()
http://www.licey.net/russian/phonetics/1_5
0
Alex77755
10760 / 3329 / 557
Регистрация: 13.02.2009
Сообщений: 9,799
24.09.2011, 16:45 7
Цитата Сообщение от magirus Посмотреть сообщение
пока вам кто то поможет, сходите прочитайте правила форума, особенно п 2.3
А ещё более внимательно рекомендую прочитать пункт 2.6
Особеннл на вторую часть(та, что после запятой)

Добавлено через 3 минуты
А, вообще-то, вряд ли мы сможем помочь такому спецу: при четырёх сообщениях набрать репутацию в 110 не всякий сумееет. Видать профессионал!!
1
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,014
24.09.2011, 16:50 8
Цитата Сообщение от pincet Посмотреть сообщение
не понял, мне 8 минусов??
Во первых страница не серьёзная, даже в ней самой есть противоречие между понятиями звук и буква
0
pincet
24.09.2011, 17:02
  #9

Не по теме:


8-() - это крайняя степень удивления. А тебе, буквоед, 100500 минусов.
понятия "буква" и "звук" в кавычки брать нужно.
это так, для профилактики троллинга.

0
Казанский
14250 / 5911 / 1565
Регистрация: 24.09.2011
Сообщений: 9,310
24.09.2011, 23:36 10
Как я понял, вариант "не-буквы" учитывать не надо?
Тогда проще без Select Case:
Visual Basic
1
2
3
Sub aa()
MsgBox IIf(InStr(1, "уеыаоэяиюё", Left(InputBox("Введи букву"), 1), vbTextCompare), "гласная", "согласная")
End Sub
0
Нужна помощь
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 6
11.10.2011, 00:19  [ТС] 11
Казанский, но мне нужно именно с Select Case
0
Alex77755
10760 / 3329 / 557
Регистрация: 13.02.2009
Сообщений: 9,799
11.10.2011, 00:45 12
Нужна помощь,
Да хоть какое-то телодвижение сделай!!
Ну нельзя же быть таким ленивым!! Это же твоё задание!
Не ради интереса же делаешь! посмотри примеры, открой книжечку, не спи на занятиях


Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Function Тип_буквы(Буква) As String
Select Case LCase(Left(Буква, 1))
Case "у", "е", "ы", "а", "о", "э", "я", "и", "ю", "ё"
Тип_буквы = "гласная"
Case Else
Тип_буквы = "согласная"
End Select
End Function
 
Sub Prozedura()
b = InputBox("Введите букву кирилицы", "")
MsgBox Тип_буквы(b), 64, b
End Sub
0
Нужна помощь
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 6
18.11.2011, 15:44  [ТС] 13
Alex77755, лекций не было по темам и теперь нужно как то делать
Спасибо за помощь!)
0
18.11.2011, 15:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.11.2011, 15:44

Ошибка в пользовательской форме "End Select without select case"
У меня был написан код, который хорошо работал.Я решил добавить...

Вычислить значение выражения оператором выбора
Вычислить значение выражения с помощью оператора выбора нужно сделать...

Создать функцию для выбора по условию и сцепления значений без повторов
Здравствуйте. ситуация такая. существуют две книги Эксель. в одной каталог...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru