Получить уникальное число, которое не повторяется

12.12.2010, 00:07. **Показов** 2988. **Ответов** 12

Author24 — интернет-сервис помощи студентам

Здравствуйте ! Есть задача :
Ввести в два столбца набор любых чисел (целых)
-- Выщитать из них уникальное число которое не повторяется
-- Выщитать число которое повторяется чаще всего

К несчастью я с VBA не знаком вообще ! На вашем же форуме нашёл некоторый код :

Visual Basic

For i = 0 To Me.ListBox1.ListCount - 1
   
        If Me.ComboBox_aksesuars.Value = Me.ListBox1.List(i) Then
        count = count + 1
        
        If count > 1 Then
        Me.ListBox1.RemoveItem (i)
        End If
        
        End If
    
Next i

---- Где программа выводит уникальные значения из Listbox1 - и вообще что такое листБокс1 !
Очень прошу о помощи в решении этой задачи !

Или просто обьясните как мне поступить и с чего начать !!!

И можно ли работать в Visual Basic 6 для этой задачи ??

Я вам очень благодарен !!!

@Alex77755 · 12.12.2010, 00:36

Начать можно с этого
Для поиска уникальных - мне нравится словарь "Scripting Dictionary"
листБокс1 - это, по ходу, список

@Ципихович Эндрю · 12.12.2010, 08:16

Сообщение от Honda

Me.ListBox1.

Чтобы пройти код, предполагается что есть форма с ListBox1, она у Вас есть?, навряд, ли

@~~Busine2009~~ · 12.12.2010, 09:50

Сообщение от Honda

Выщитать из них

а куда вытащить?

Добавлено через 1 минуту

Сообщение от Honda

и вообще что такое листБокс1 !

в вашем случае не нужно знать, что это такое (не забивайте голову).

@Ципихович Эндрю · 12.12.2010, 10:59

Сообщение от Honda

Ввести в два столбца набор любых чисел (целых)
-- Выщитать из них уникальное число которое не повторяется
-- Выщитать число которое повторяется чаще всего

Начали бы дословно с того, что написано в условии
Таблица Ворд с двумя столбцами, далее пользуйтесь:

PureBasic

Количество_таблиц_в_документе = ActiveDocument.Tables.Count 'переменная количеству таблиц в документе
Таблица_в_которой_расположен_курсор = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count 'переменная таблице в которой расположен курсор
Количество_столбцов_в_таблице_в_которой_расположен_курсор = ActiveDocument.Tables(Таблица_в_которой_расположен_курсор).Columns.Count 'переменная количеству столбцов в таблице в которой расположен курсор
Количество_строк_в_таблице_в_которой_расположен_курсор = ActiveDocument.Tables(Таблица_в_которой_расположен_курсор).Rows.Count 'переменная количеству строк в таблице в которой расположен курсор
Значение_u_строки_1_столбика_таблицы_в_которой_расположен_курсор = ActiveDocument.Tables(Таблица_в_которой_расположен_курсор).Cell(u, 1).Range.Text

ОК??

@~~Busine2009~~ · 12.12.2010, 11:02

Ципихович Эндрю,
это задачи на массивы.
Почитай раздел в VBA - Массивы.

@Ципихович Эндрю · 12.12.2010, 11:13

Ну и как будет

PureBasic

Dim Массив(5) As Integer
For a = 0 To 5
Массив(a) =ActiveDocument.Tables(1).Cell(a, 1).Range.Text 
Next a
Уникальное_число_массива_Массив = ??
'Если его нет, тогда 
Уникальное_число_массива_Массив = ??
Самое_распостранённое_число_массива_Массив =??
Сколько_раз_повторялось_Самое_распостранённое_число_массива_Массив =??

Подскажите, я не сталкивался
Спасибо

@~~Busine2009~~ · 12.12.2010, 11:14

Ципихович Эндрю,
я сам ищу в интернете, как это делается, ни разу ещё не делал такого.
Да и задачи с массивами связаны с Excel.
Прочитайте про массивы - есть такой раздел в VBA. Можете почитать VBA для чайников (стр. 303), если что не понято, то спрашивайте.

@Ципихович Эндрю · 12.12.2010, 11:36

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

@~~Busine2009~~ · 12.12.2010, 11:38

Сообщение от Ципихович Эндрю

Сначала циклом сортируем массив

да идея.

Только вопрос, у него одномерный или двумерный массив имеется ввиду в задании. Как произвести сортировку в двумерном массиве: слева направо или сверху вниз?

@Ципихович Эндрю · 12.12.2010, 11:42

То же мне идея, очевидно!
Вернее не Сначала циклом сортируем массив
А совместно с сортиркой массива делаем, чо нужно

@~~Busine2009~~ · 12.12.2010, 11:48

Ципихович Эндрю,
в случае с одномерным массивом понятно, как сделать: отсортировать по возрастанию. После сортировки идти сверху вниз и сравнивать 2 смежных элемента.
А как быть с двумерным массивом - я не знаю.

@Ципихович Эндрю · 13.12.2010, 21:00

А не в курсе в коллекции при помощи FSO как ищем уникальное и самое повторяющееся значение элемента коллекции???

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	12.12.2010, 00:36	2
	Начать можно с этого Для поиска уникальных - мне нравится словарь "Scripting Dictionary" листБокс1 - это, по ходу, список 0

@Ципихович Эндрю 1386 / 528 / 66 Регистрация: 10.04.2009 Сообщений: 8,710
	12.12.2010, 08:16	3
	Сообщение от Honda Me.ListBox1. Чтобы пройти код, предполагается что есть форма с ListBox1, она у Вас есть?, навряд, ли 0

@~~Busine2009~~ Заблокирован
	12.12.2010, 09:50	4
	Сообщение от Honda Выщитать из них а куда вытащить? Добавлено через 1 минуту Сообщение от Honda и вообще что такое листБокс1 ! в вашем случае не нужно знать, что это такое (не забивайте голову). 0

@~~Busine2009~~ Заблокирован
	12.12.2010, 11:02	6
	Ципихович Эндрю, это задачи на массивы. Почитай раздел в VBA - Массивы. 0

@~~Busine2009~~ Заблокирован
	12.12.2010, 11:14	8
	Ципихович Эндрю, я сам ищу в интернете, как это делается, ни разу ещё не делал такого. Да и задачи с массивами связаны с Excel. Прочитайте про массивы - есть такой раздел в VBA. Можете почитать VBA для чайников (стр. 303), если что не понято, то спрашивайте. 0

@Ципихович Эндрю 1386 / 528 / 66 Регистрация: 10.04.2009 Сообщений: 8,710
	12.12.2010, 11:36	9
	Какая разница Ворд, Эксель, похоже без цикла никак? Сначала циклом сортируем массив, а далее дело техники 1

@~~Busine2009~~ Заблокирован
	12.12.2010, 11:38	10
	Сообщение от Ципихович Эндрю Сначала циклом сортируем массив да идея. Только вопрос, у него одномерный или двумерный массив имеется ввиду в задании. Как произвести сортировку в двумерном массиве: слева направо или сверху вниз? 0

@Ципихович Эндрю 1386 / 528 / 66 Регистрация: 10.04.2009 Сообщений: 8,710
	12.12.2010, 11:42	11
	То же мне идея, очевидно! Вернее не Сначала циклом сортируем массив А совместно с сортиркой массива делаем, чо нужно 0

@~~Busine2009~~ Заблокирован
	12.12.2010, 11:48	12
	Ципихович Эндрю, в случае с одномерным массивом понятно, как сделать: отсортировать по возрастанию. После сортировки идти сверху вниз и сравнивать 2 смежных элемента. А как быть с двумерным массивом - я не знаю. 0

@Ципихович Эндрю 1386 / 528 / 66 Регистрация: 10.04.2009 Сообщений: 8,710
	13.12.2010, 21:00	13
	А не в курсе в коллекции при помощи FSO как ищем уникальное и самое повторяющееся значение элемента коллекции??? 0

Опции темы

Получить уникальное число, которое не повторяется

Решение