| Вопрос: Помогите! Задача | Добавлено: 26.05.06 21:28 |
Автор вопроса:  Ольга
|
| Ответы | Всего ответов: 31 |
|
Номер ответа: 16 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #16 | Добавлено: 28.05.06 03:53 |
|
Если я не ошибаюсь, то Print нужен для печати на принтер.
ошибаешся... Ты хочешь "ебацо"? Пиши адрес и к тебе приедут первоклассные ... не удобно при всех говорить. я плакаль...
Со стороны смотрится вот как: BUG(O)R хочет ебаться... ну вполне естетственное желание, "почти" тонкий намёк Ольге... вроде всё как положено....и... и тут врывается Эндрю, говорит BUG(O)R'у чтобы тот мол написал адрес и к нему приедут первоклассные )))))))) ааааааааа это тута я плакаль... )))))))))00 Эндрю не обижайся...... время просто много, я как обычно часов 18 у компа, уже чуть зависать нинаю...ааааааааа нувсёравно ты жжош!!!!!!!!! арунимагу... PS Почему при ответе перед ником ставят - 2? Как же так? Такие связи с первоклассынми, а про "2" незнаешь? Это второй класс... ну 2.. понимаешь... типа второклассные ловишь, да? не все ж такие как ты... оугыгыбгагага лана сории! я всё в шутку!!!
2->Two>To To Эндрю... итп Replace (, "To", "2"  для экономии 1-ого байта размера БД форума, ловишь, да?  )))
|
||
|
Номер ответа: 17 Автор ответа: BUG(O)R ICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #17 | Добавлено: 28.05.06 09:21 |
|
Эндрю, сутенёр ты бейсеговский, я сомневаюсь, что твои первоклассные меня устроят, а так просто хотел показать Ольге на жЫзненном примере так сказать.
HACKER, не надо про намёки, ты спугнул Олю... |
||
|
Номер ответа: 18 Автор ответа: Ольга Вопросов: 10 Ответов: 5 |
Профиль | | #18 | Добавлено: 28.05.06 10:05 |
|
2 Эндрю я ввела твой код 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 Label1.Caption = Label1.Caption + fam(i) Next End Sub ... но он не работает, не выводит список фамилий, начинающих с той буквы, которую надо ввести с клавиатуры 2 Тем кто может помочь бесплатно ... Ребята, как в тексте в котором слова разделены пробелами найти самое длинное слово? |
||
|
Номер ответа: 19 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #19 | Добавлено: 28.05.06 13:48 |
|
Dim fam
Private Sub Form_Load() Dim i As Long Dim famString As String Dim famLetter As String 'промещаем в переменную famString пять фамилий famString = InputBox("Введите 5 фамилий, разделяя их пробелами"
'делаем из этой строки массив фамилий, разделяя строку по пробелами fam = Split(famString, " "
'запрашиваем первую букву famLetter = InputBox("Введите первую букву фамилии"
'обнуляем строку. Будем использовать её как выходную строку famString = "" 'просматриваем массив фамилий на предмет совпадения первой буквы For i = 0 To UBound(fam) If Left$(fam(i), 1) = famLetter Then 'если совпадение, добавляем к выходной строке famString = famString & fam(i) & " " End If Next i If famString <> "" Then 'если строка не нулевая - значит были совпадения MsgBox "Найдены фамилии " & famString Else 'если строка нудевая - совпадений не было MsgBox "Фамилий, начинающихся на '" & famLetter & "' нет" End If End Sub |
||
|
Номер ответа: 20 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #20 | Добавлено: 28.05.06 14:03 |
|
О нахождении самого длинного слова в тексте:
создаешь переменную word As Variant используй функцию Split, ка показано в примере выше, чтобы разбить текст на отдельные слова и поместить их в массив word. Делаешь переменную maxLenIndex As Long, и присваиваешь ей значение 0. Когда получишь массив слов word, в цикле пройдёшь по массиву, и для каждого элемента массива (слова) получишь его длину функцией Len. Если эта длина больше, чем длина элемента с индексом maxLenIndex, то заносишь в maxLenIndex индекс этого элемента. После окончания цикла maxLenIndex будет содержать индекс самого длинного слова в массиве. Соответственно word(maxLenIndex) будет самое длинное слово. Всё понятно? |
||
|
Номер ответа: 21 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #21 | Добавлено: 28.05.06 18:33 |
|
HACKER, не надо про намёки, ты спугнул Олю...
прАсти, виноват...
|
||
|
Номер ответа: 22 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #22 | Добавлено: 31.05.06 11:54 |
|
Какие вы КОРЫСТНЫЕ!
FAM(i) like "Б*" TRUE для всех на Б |
||
|
Номер ответа: 23 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #23 | Добавлено: 31.05.06 13:18 |
|
создаешь переменную word As Variant
А нафига Variant? Вот нормальная функция, возвращающая длину самого длинного слова: Private Function SLWLF(SStr As String) As Long Dim Ы&, Ж&, Ю$() If Len(SStr) = 0 Then Exit Function Ю = Split(SStr, " "
For Ы = 0 To UBound(Ю) If Len(Ю(Ы)) > Ж Then Ж = Len(Ю(Ы)) End If Next Ы SLWLF = Ж End Function |
||
|
Номер ответа: 24 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #24 | Добавлено: 31.05.06 13:56 |
|
Вот молодечик!
Умничка! Как догадался? |
||
|
Номер ответа: 25 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #25 | Добавлено: 31.05.06 17:05 |
|
HOOLIGAN, прекрати хулиганить!!!
|
||
|
Номер ответа: 26 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #26 | Добавлено: 31.05.06 17:22 |
| Ниибаца! Страшный Сон выигрывает первый приз флудотопера - феерический кубок жопного йада! | ||
|
Номер ответа: 27 Автор ответа: Random665ICQ: 256557986 Вопросов: 1 Ответов: 8 |
Профиль | | #27 | Добавлено: 02.06.06 12:44 |
|
Мда, это сколько ж можно над человеком измываться... Ошибку же с закрытыми глазами видно, прямо детский сад какой то. End if в первой задаче забылит поставсить перед Next.
P S "Если я не ошибаюсь, то Print нужен для печати на принтер." - над этим угорал полчаса))) нормальный сайт по Vb - www.vbkoders.info |
||
|
Номер ответа: 28 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #28 | Добавлено: 02.06.06 12:54 |
|
Рандом, ты когда-нить слышал об однострочной форме записи if? Прикинь, в VB6 такая была
|
||
|
Номер ответа: 29 Автор ответа: Random665ICQ: 256557986 Вопросов: 1 Ответов: 8 |
Профиль | | #29 | Добавлено: 02.06.06 19:36 |
|
не, не слышал И вообще я не замеил вторую страницу форума)))))) ржунимагу на собой)))))
|
||
|
Номер ответа: 30 Автор ответа: ЭндрюICQ: 303-304-826 Вопросов: 24 Ответов: 103 |
Web-сайт: Профиль | | #30 | Добавлено: 05.06.06 00:22 |
|
Private Sub Command1_Click()
Printer.Print Text1.Text 'Будет отпечатан текст который введён TextBox End Sub Так что принт нужен везде. |
||