Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Тимошенко Дмитрий
Статус: Студент
Рейтинг: 391
∙ повысить рейтинг »
Megaloman
Статус: Практикант
Рейтинг: 336
∙ повысить рейтинг »
Чичерин Вадим Викторович
Статус: 10-й класс
Рейтинг: 328
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Номер выпуска:919
Дата выхода:14.08.2009, 11:35
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:362 / 92
Вопросов / ответов:1 / 1

Вопрос № 171174: Здравствуйте уважаемые эксперты, хотел у Вас спросить как организовать проверку есть ли одинаковые значения в элементах массива, можно ли организовать эту проверку во время цикла, когда в массив было внесено значение элемента? Спасибо Эндрю ...



Вопрос № 171174:

Здравствуйте уважаемые эксперты, хотел у Вас спросить как организовать проверку есть ли одинаковые значения в элементах массива, можно ли организовать эту проверку во время цикла, когда в массив было внесено значение элемента? Спасибо Эндрю

Отправлен: 09.08.2009, 11:28
Вопрос задал: Ципихович Эндрю, Посетитель
Всего ответов: 1
Страница вопроса »


Отвечает Савчук Иван Иванович, 3-й класс :
Здравствуйте, Ципихович Эндрю.
Пусть Arr() будет ваш массив.
При вводе элементов организуем два цикла: первый для заполнения элементов массива , второй для проверки текущего элемента массива с ранее введенными

...
for i=lbound(Arr) to ubound(Arr) ' lbound и ubound функции, возвращающие меньший и больший индексы вашего массива
...
[присваивание элементу Arr(i) значение]
For j=lbound(Arr) to i-1 ' i-1 имеет смысл чтобы не ставнивать текущий с самим собой
if Arr(i)=Arr(j) then
... 'здесь вы можете выполнять любое действие от приращения счетчика повторных значений до повторного ввода значения ...
end if
next
next

Ответ отправил: Савчук Иван Иванович, 3-й класс
Ответ отправлен: 10.08.2009, 05:53

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 253091 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)

    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.


    © 2001-2009, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.6 от 21.07.2009

    В избранное