| Вопрос: Помогите! Задача | Добавлено: 26.05.06 21:28 |
Автор вопроса:  Ольга
|
|
Помогите, пожалуйста, с задачей:
(в программировании я новичок) -Создайте массив из 5 фамилий и выведите на экран те из них, которые начинаются с определенной буквы, которая вводится с клавиатуры... Проблема в том, то что я написала ввод Фамилий, а вот, как вывести те из них, которые начинаюся с определенной буквы которая вводится с клавиатуры ...не могу.. Как это сделать, напишите пожалуйста..... Вот, что я сделала: Dim fam (1 to 5 ) as string cls for i = 1 to 5 fam(i) = inputbox ("Введите фамилии") print fam(i) next i - - - - - - -- - - ....... и еще если можно помогите сделать задачу (я не знаю ее вообще как делать) - Напишите программу, определяющую число слов в строке, одно слово от другого отделяется 1-м пробелом Пожалуйста, помогите! |
| Ответы | Всего ответов: 31 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 26.05.06 23:50 |
| 5 WMZ | ||
|
Номер ответа: 2 Автор ответа: Эндрю ICQ: 303-304-826 Вопросов: 24 Ответов: 103 |
Web-сайт: Профиль | | #2 | Добавлено: 27.05.06 01:43 |
|
#1
Dim fam(1 To 5) As String, str As String Private Sub Form_Load() str = InputBox("Введите фамилии" 
For i = 1 To 5 If Left(fam(i), 1) = Left(str, 1) Then Print fam(i) Next End Sub #2 Dim a Private Sub Command1_Click() For i = 1 To Len(Text1.Text) If Mid(Text1.Text, i, 1) = Chr(32) Then a = a + 1 Next Form1.Caption = a End Sub PS Напишите за это несколько нежных слов на мой е-маил. |
||
|
Номер ответа: 3 Автор ответа: Ольга Вопросов: 10 Ответов: 5 |
Профиль | | #3 | Добавлено: 27.05.06 07:19 |
|
2 Эндрю ... #1 задачу, вставила в проект, не работает... #2 - работает, но каждый раз когда вводишь строку, неправильно считает количество слов........ 
|
||
|
Номер ответа: 4 Автор ответа: BUG(O)RICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #4 | Добавлено: 27.05.06 08:58 |
|
А вторая задача решается одной строкой)
Оля, пора включать моск! MsgBox UBound(Split("я хочу ебацо", " " ) + 1
|
||
|
Номер ответа: 5 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #5 | Добавлено: 27.05.06 10:24 |
| Sharp прав. За WMZ охотно все помогут. Еще и конкурс будет. | ||
|
Номер ответа: 6 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #6 | Добавлено: 27.05.06 16:24 |
|
PS Напишите за это несколько нежных слов на мой е-маил.
Не, ну, впринципе, за пару нежных слов и аську еси таковая есть, то вполне можно. А так я все-таки патиот. Предпочитаю WMR. Но и за WMZ согласен. 
ЗЫ и не такую большую сумму. Зачем у новичка столько посить? Для начала 2,5, а там посмотрим...
|
||
|
Номер ответа: 7 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #7 | Добавлено: 27.05.06 16:28 |
|
Да, забыл сказать. Обычный копипаст тут не поможет. По крайне мере на халяву. И если уж влезла на форум по вб, и прашиваешь про вб, то будь добра не используй этого:
Dim fam (1 to 5 ) as string
cls for i = 1 to 5 fam(i) = inputbox ("Введите фамилии"
print fam(i) next i Если спрашиваешь пр вб, то хотя бы прочти книжицу какую-нить или хелп в крайнем случае. Как-никак кб и вб разные вещи... |
||
|
Номер ответа: 8 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #8 | Добавлено: 27.05.06 16:31 |
|
Dim fam (1 to 5 ) as string
cls for i = 1 to 5 fam(i) = inputbox ("Введите фамилии"
print fam(i) next i Если спрашиваешь пр вб, то хотя бы прочти книжицу какую-нить или хелп в крайнем случае. Как-никак кб и вб разные вещи... Сам-то тоже книжицу прочти. Это код на VB6, и он работает. |
||
|
Номер ответа: 9 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #9 | Добавлено: 27.05.06 18:30 |
| да, а cls yfabu нунон? | ||
|
Номер ответа: 10 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #10 | Добавлено: 27.05.06 18:30 |
| да, а cls нафиг нунон? | ||
|
Номер ответа: 11 Автор ответа:  aICQ: 267-795-129 Вопросов: 2 Ответов: 5 |
Профиль | | #11 | Добавлено: 27.05.06 22:42 |
|
Не напрягайся помогу !
Причём бесплатно !!! |
||
|
Номер ответа: 12 Автор ответа:  aICQ: 267-795-129 Вопросов: 2 Ответов: 5 |
Профиль | | #12 | Добавлено: 27.05.06 22:47 |
| да кстати в visual basic можно выводить информацию более удобным образом !!! нежели через print да и зачем там стоит CLS я вообще не пойму ведь это отчистка экрана если я не ошибаюсь !!! | ||
|
Номер ответа: 13 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #13 | Добавлено: 27.05.06 23:19 |
|
да кстати в visual basic можно выводить информацию более удобным образом
Да??? А как?? Покажи пожалуйста! |
||
|
Номер ответа: 14 Автор ответа: ЭндрюICQ: 303-304-826 Вопросов: 24 Ответов: 103 |
Web-сайт: Профиль | | #14 | Добавлено: 28.05.06 00:20 |
|
Ольга
#1 Вместо строчки If Left(fam(i), 1) = Left(str, 1) Then Print fam(i)
напиши If Left(fam(i), 1) = Left(str, 1) Then label1.caption=label1.caption+ fam(i)
Если я не ошибаюсь, то Print нужен для печати на принтер. #2 А погрешность большая? BUG(O)R Ты хочешь "ебацо"? Пиши адрес и к тебе приедут первоклассные ... не удобно при всех говорить. PS Почему при ответе перед ником ставят - 2? |
||
|
Номер ответа: 15 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #15 | Добавлено: 28.05.06 03:47 |
|
Print выводит на форму текст
2 - сокращение от to, указывающее что сообщение адресовано данному человеку |
||