Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 | 2 |

 

  Вопрос: такое задание Добавлено: 28.10.08 10:57  

Автор вопроса:  Оксана
Найдите в заданном массиве самый часто встречающийся элемент и выведите его на печать! Как это? Кто сможет напишите пожалуйста какой нибудь пример самый простор в ворде( VB ) а я там разбирусь! А то я подругому не понимаю, а понять хочу!

Ответить

  Ответы Всего ответов: 17  

Номер ответа: 1
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #1 		Добавлено: 30.10.08 15:26
100 руб., мой e-mail в Профиле

Ответить

Номер ответа: 2
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
  Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #2 		Добавлено: 30.10.08 19:26
99 рублей мой емаил в Профиле

Ответить

Номер ответа: 3
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #3 		Добавлено: 30.10.08 19:56
И не стыдно на таких мелочах вестись? =) Сделали б бесплатно, что вам эти сто рублей, погоду сделают?)) Тем более у каждого из вас на это уйдет не больше 10 минут =)

Ответить

Номер ответа: 4
Автор ответа:
 ADSemenov.ru



Вопросов: 5
Ответов: 276
  Web-сайт: www.adsemenov.ru
 Профиль | | #4 		Добавлено: 30.10.08 20:39
    А Вы можете, для начала, задать массив?

Ответить

Номер ответа: 5
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #5 		Добавлено: 30.10.08 22:58
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4. Dim Arr
  5. Arr = Split("1 2 3 4 6 3 2 3 2 3 5 5 6 2 4 1 2 2 4 3 3")
  6. MsgBox CStr(MostOften(Arr))
  7. End Sub
  8.  
  9. Private Function MostOften(Arr)
  10. Dim i           As Long, _
  11.     j           As Long, _
  12.     UBound_Arr  As Long, _
  13.     LBound_Arr  As Long, _
  14.     Count       As Long, _
  15.     MaxCount    As Long
  16. UBound_Arr = UBound(Arr)
  17. LBound_Arr = LBound(Arr)
  18. For i = LBound_Arr To UBound_Arr
  19.     Count = 1
  20.     For j = LBound_Arr To i - 1
  21.         If Arr(j) = Arr(i) Then
  22.             Count = Count + 1
  23.             If Count > MaxCount Then
  24.                 MaxCount = Count
  25.                 MostOften = Arr(i)
  26.             End If
  27.         End If
  28.     Next j
  29. Next i
  30. If MostOften = Empty Then MostOften = "no reiterative element"
  31. End Function

Ответить

Номер ответа: 6
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #6 		Добавлено: 31.10.08 08:15
2 Администратор:
Нет ни капельки. А не стыдно начинать свой топик с условия задачи, не назвав при этом тему "Решите это за меня"? Конечно есть желающие помочь - я не против них, но если их нет - я могу помочь. А писать так не особо хочется, т.к. задача тривиальная и даже входной массив не задан.

Ответить

Номер ответа: 7
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
  Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #7 		Добавлено: 31.10.08 17:36
сейчас 100 рублей погоду сделают в мире кризис... денег нет.... :)

Ответить

Номер ответа: 8
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
  Web-сайт: www.vbnet.ru
 Профиль | | #8 		Добавлено: 31.10.08 18:02
Ценовая конкуренция не рулит. Всегда найдется кто-то, кто предложит более низкую цену.

Надо конкурировать в каких-то других сферах. Например нарантию манибэка дать :)

Ответить

Номер ответа: 9
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
  Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #9 		Добавлено: 01.11.08 01:41
даю гарантию манибэка :)

Ответить

Номер ответа: 10
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #10 Добавлено: 01.11.08 09:07
Мое предложение 150 рублей
Условия: гарантия манибека (30 дней), 6 месяцев бесплатной поддержки кода

Ответить

Номер ответа: 11
Автор ответа:
 gvozd



Разработчик Offline Client

Вопросов: 164
Ответов: 1317


  Web-сайт: www.gvozdsoft.com
 Профиль | | #11 		Добавлено: 01.11.08 10:57
Гусары денег не берут!

Ответить

Номер ответа: 12
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #12 		Добавлено: 01.11.08 12:58
500 руб. и пожизненная гарантия манибека 25 лет (без индексирования стоимости денег).

Ответить

Номер ответа: 13
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #13 		Добавлено: 01.11.08 13:13
ну нет, конечно не пожизненная, я подольше пожить хочу =)

Ответить

Номер ответа: 14
Автор ответа:
 D o c a l



ICQ: 408802757 

Вопросов: 76
Ответов: 985
  Web-сайт: www.doc-source.pp.net.ua/
 Профиль | | #14 		Добавлено: 01.11.08 14:27
ппц конкурентов набежало.... 2000 рублей плюс мой мозк в придачу...

Ответить

Номер ответа: 15
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #15 		Добавлено: 01.11.08 15:19
Демпингуешь! ;)

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам