Сортировка массивов и поиск

@Nooby93 · Регистрация: 18.11.2011

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

Здравствуйте.

1)Задать элементы множеств А,В целыми случайными числами, сгенерированными на отрезке [0, N+6]. Внутри множества не должно присутствовать одинаковых элементов. Отсортировать по возрастанию

VB.NET

 Dim t As Integer
        Dim p(m) As Integer
        Dim a, b As Integer
        Debug.WriteLine("")
        a = 0
        b = n + 6
        Label7.Text = ""
        For i = 1 To m
m:          Randomize()
            t = a + (b - a) * Rnd()
            For j = 1 To 5
                If t = p(j) Then GoTo m
            Next
            p(i) = t
            Debug.WriteLine(p(i))
 
            Label7.Text += CStr(p(i)) + Space(3)
        Next

Как отсортировать по возрастанию?

Если вставляю

VB.NET

if p(i)>p(i+1) then
t=p(i)
p(i)=p(i+1)
p(i+1)=p
end if

Пишут индекс находится вне границ массива.
Как правильно отсортировать по возрастанию?

2)Как проверить есть ли элементы массива i которые выводятся в label6 в элементах массива g выводящегося в label 7 и если есть,то вывести сообщение?

Спасибо.

@Winney · 12.10.2013, 19:26

Сортировку смотри в педивикии, "метод пузырька" - это то что тебе надо)))

@KolunyaZ · 13.10.2013, 01:04

не очень понял что сортировать надо, но если массив p(m), то:

VB.NET

1	Array.Sort(p)

@Winney 307 / 248 / 40 Регистрация: 28.09.2013 Сообщений: 600
	12.10.2013, 19:26	2
	Сортировку смотри в педивикии, "метод пузырька" - это то что тебе надо))) 0

	13.10.2013, 01:04