| Вопрос: Помогите с задачками на VB! Пожалуйста! | Добавлено: 23.05.06 14:29 |
Автор вопроса:  V1kozy
|
|
Ребят, я в программировании плохо, помогите с задачками...
1) Дан двумерный массив, содержащий фамилии учащихся и номера их телефонов. По фамилии учащегося найти его номер 2) Даны 2 слова. Напишите программу определяющую, можно или нет из одного слова А составить слово B 3) Напишите программу упорядочения по возрастанию элементов каждой строки двумерного массива С 4) Напишите программу, определяющую, пройдет ли график y = 5*x*x - 7*x + 2 через заданную точку с координатами (a;b) ...Пожалуйста помогите, хотя бы некоторые... |
| Ответы | Всего ответов: 24 |
|
Номер ответа: 1 Автор ответа:  Dushes ICQ: 249195431 Вопросов: 8 Ответов: 110 |
Профиль | | #1 | Добавлено: 23.05.06 16:37 |
|
ХЫХ ! Вот и сессия подкралась, и тут выяснилось, что кто-то не сдал задачи по VB, и допуска к экзамену или зачету нет. И он решил прийти сюда, и жало-о-обно попросить, вдруг помогут...
Вопщем 10 WMZ, и задачи сделаю... |
||
|
Номер ответа: 2 Автор ответа: V1kozy Вопросов: 3 Ответов: 13 |
Профиль | | #2 | Добавлено: 23.05.06 17:01 |
|
А бесплатно...у нас значит..уже людям никто не помогает, на этом форуме? |
||
|
Номер ответа: 3 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #3 | Добавлено: 23.05.06 17:09 |
| Ты бы хоть назвался как-нить, а то так как будто со стенкой разговариваешь. Имени даже не имеешь, а всё туда же... | ||
|
Номер ответа: 4 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #4 | Добавлено: 23.05.06 19:37 |
исче один нонейм. сделаю все за 5WMZ 
кто меньше? |
||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 23.05.06 19:56 |
|
4.99
|
||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 23.05.06 19:58 |
|
кста..
А бесплатно...у нас значит..уже людям никто не помогает, на этом форуме?
Помогают... просто на этом форуме "сделать за тебя" и "помочь тебе" - разные вещи. Опиши проблему, вопрос, конкретно - поможем. |
||
|
Номер ответа: 7 Автор ответа: V1kozyВопросов: 3 Ответов: 13 |
Профиль | | #7 | Добавлено: 24.05.06 08:05 |
|
Зовут меня W1kozy ...А проблема(как бы это не звучала эгоистично и похабно) в решении этих задачек, моя девушка попросила найти листинг на них...т.к. она очень плохо в программировании и поэтому попросила меня, а я в программировании дуб дубом (....(блин целая история)...
Люди, чего, никто просто так ничего не сделает?! |
||
|
Номер ответа: 8 Автор ответа: DushesICQ: 249195431 Вопросов: 8 Ответов: 110 |
Профиль | | #8 | Добавлено: 24.05.06 10:07 |
|
исче один нонейм. сделаю все за 5WMZ
кто меньше? ЧТО ??? 5 БАКСОВ ??? ЭТО ГРАБЕЖ СРЕДЬ БЕЛА ДНЯ ! Да я сам сделаю все за 4 бакса и сто центов... |
||
|
Номер ответа: 9 Автор ответа: V1kozyВопросов: 3 Ответов: 13 |
Профиль | | #9 | Добавлено: 24.05.06 10:56 |
|
...Вообще, ничего ценного в душе людей не осталось...хоть бы кто просто так сделал... звери...вы ))))
|
||
|
Номер ответа: 10 Автор ответа: BUG(O)RICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #10 | Добавлено: 24.05.06 10:57 |
|
Не, ну какие ВМЗ, о чём речь... Автор топега, вышли фото подруг твоей девушки, после оценки ты мне даёшь их телефончики, а я тебе решения задач
|
||
|
Номер ответа: 11 Автор ответа: V1kozyВопросов: 3 Ответов: 13 |
Профиль | | #11 | Добавлено: 24.05.06 11:23 |
|
Ребят, ну серьезно, прошу ж по человечески..сделайте пожалуйста... |
||
|
Номер ответа: 12 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #12 | Добавлено: 24.05.06 13:38 |
|
о.к.
1) пишу тут, ничего те тестю, ничгео не гарантирую dim mas() as string redim mas(1,1) mas(0,0) = "Вася" : mas(0,1) = "123-456" mas(1,0) = "Петя" : mas(1,1) = "654-321" dim find as string find = inputbox ("Введите имя для поиска" 
dim i as long for i = 0 to ubound(mas) if mas(i,0) = find then msgbox "Номер " & find & " - " & mas(i,1) next i 2) dim wordA as String : wordA = inputbox ("введите слово A"
dim wordB as String : wordB = inputbox ("введите слово B"
dim a as byte, b as byte, count_let as byte for b = 0 to len (wordB) if instr(1,wordA, mid$(wordB,b,1),1) > 0 then count_let = count_let + 1 next b if len (wordB) = count_let then msgbox "из слова " & wordA & " можно построить слово " & wordB else msgbox "нельзя..." end if 3) ищи в инете "VB+сортировка+пузырёк" 4) а вто 4 извыняй, там целое дело... )) |
||
|
Номер ответа: 13 Автор ответа: V1kozyВопросов: 3 Ответов: 13 |
Профиль | | #13 | Добавлено: 24.05.06 14:03 |
|
2 hacker Спасибо, что хоть написал..но все равно нефига не работает ....  ((((
|
||
|
Номер ответа: 14 Автор ответа: BUG(O)RICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #14 | Добавлено: 24.05.06 14:35 |
|
for b = 0 to len (wordB)
if instr(1,wordA, mid$(wordB,b,1),1) > 0 then count_let = count_let + 1 next b Ну не работает потому что HACKER поторопился: b=0, надо b=1 и к тому же необязательно делать все проходы в цикле, достаточно до первого instr()=0: Dim a As String, b As String, jne As Boolean a = "бугор" b = "гроб" jne = True For i = 1 To Len(b) If InStr(1, a, Mid(b, i, 1)) = 0 Then jne = False: Exit For Next i If Not jne Then MsgBox "Нельзя" Else MsgBox "Можно" А первая задача полностью рабочая, в чём проблема у тебя не знаю
|
||
|
Номер ответа: 15 Автор ответа: BUG(O)RICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #15 | Добавлено: 24.05.06 14:42 |
|
4 задача:
Dim a As Long, b As Long a = 1 b = 0 If b = 5 * a * a - 7 * a + 2 Then MsgBox "Точка с координатами (" & a & "," & b & " принадлежит уравнению"
Else MsgBox "Точка с координатами (" & a & "," & b & " не принадлежит уравнению"
End If |
||