Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.10.2011, 11:40   #1
Чуччи
Пользователь
 
Регистрация: 11.11.2010
Сообщений: 17
По умолчанию Поиск одинаковых чисел (Visual Basic)

Привет всем!
Моя задачка:
Определите и выведите на экран множество целых чисел находящихся одновременно в строках массива 2*5

Вот что у меня получилось:
Код:
 Dim i, j, k, g, h, l As Integer
    Dim a(,) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = ""
        i = 2
        j = 5
        ReDim a(0 To i - 1, 0 To j - 1)
        For n = 0 To i - 1
            For m = 0 To j - 1
                a(n, m) = Rnd(20) * 10 - 2
                If m = j - 1 Then
                    RichTextBox1.Text = RichTextBox1.Text + Str(a(n, m)) + vbCrLf
                Else
                    RichTextBox1.Text = RichTextBox1.Text + Str(a(n, m)) + " "
                End If
            Next
        Next
        For n = 0 To i - 1
            For m = 0 To j - 1
                l = 0
                For g = 0 To i - 1
                    For h = 0 To j - 1
                        If a(n, m) = a(g, h) And ((g <> n) And (h <> m)) Then
                            l = l + 1
                            Label1.Text = a(n, m)
                        End If
                    Next
                Next
            Next
        Next
        End Sub
но он у меня выводит только один элемент((
как сделать чтоб множество одинаковых выводил
Чуччи вне форума Ответить с цитированием
Старый 29.10.2011, 12:32   #2
Abstraction
Старожил
 
Аватар для Abstraction
 
Регистрация: 25.10.2011
Сообщений: 3,178
По умолчанию

Код:
Label1.Text = a(n, m)
Текст надо не присваивать, а добавлять, как сделано при выводе матрицы в RichTextBox1.
Abstraction вне форума Ответить с цитированием
Старый 30.10.2011, 11:17   #3
Чуччи
Пользователь
 
Регистрация: 11.11.2010
Сообщений: 17
По умолчанию ВСЕ равно не так выводит(

матрицу какую то странную
мне надо чтоб просто числа выводил которые встречаются и в первой строке и во второй
Чуччи вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ряд чисел Фибоначчи (visual basic) goshanoob Помощь студентам 2 16.11.2010 20:10
Поиск одинаковых значений в стобце, возврат суммы чисел из другого столбца в найденных строках! Kup Microsoft Office Excel 2 25.03.2010 10:15
Перевод чисел оптимизация (Visual Basic) maxcoder_1991 Помощь студентам 0 03.03.2010 22:19
Перевод десятичных чисел(Visual Basic) ioda1986 Помощь студентам 1 03.03.2010 00:51
Поиск одинаковых чисел bvden Microsoft Office Excel 3 05.07.2009 01:29