Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
klever
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 20
1

Вывести числа, которые содержатся в первом массиве и не содержатся во втором

17.10.2012, 17:10. Просмотров 507. Ответов 1
Метки нет (Все метки)

Я начинающий программист, вот такая задачка у меня. В первом массиве 12 цифр, во втором 10. А диапазон от 1 до 20. Два массива выводятся без проблем, но когда дело касается вывода чисел,которые есть в 1 и нет во 2, то что-то не получается. Посмотрите пожалуйста код

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A(12) As Integer
        Dim B(10) As Integer
        Dim i, j As Integer
        Randomize()
        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""
        For i = 1 To 12
            A(i) = 1 + (20 * Rnd())
            Label1.Text = Label1.Text + Str(A(i))
        Next
        For j = 1 To 10
            B(j) = 1 + (20 * Rnd())
            Label2.Text = Label2.Text + Str(B(j))
        Next
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim A(12) As Integer
        Dim B(10) As Integer
        Dim i, j, r As Integer
        
        For i = 1 To 12
            r = 0
 
        Next
        For j = 1 To 10
            If A(i) = B(j) Then
                r = 1
            End If
 
            If r = 0 Then Label3.Text = Label3.Text + A(i)
        Next
    End Sub
End Class
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2012, 17:10
Ответы с готовыми решениями:

Файл: Переписать в третий файл только те слова, которые есть и в первом и во втором исходных файлах
Здравствуйте, вынуждена обратиться за помощью в решении следующей задачи: "Даны...

В какой коллекции содержатся все WebControls на Web-странице
На странице имеется уйма WebControls. Мне необходимо в цикле "оббежать" их и...

Получить два файла со строками не найденными во втором и первом
Доброго Вам дня, форумчане! Подскажите, как быть, пожалуйста) Передо мной...

Автовыбор элемента во втором ComboBox при выборе в первом
на форме 2 комбобокса. Первый комбобокс: name 1 name 2 Второй комбобокс...

При выборе значения в первом DataGridViewComboBoxColumn, менять список значений во втором
Имеется: 2 DataGridViewComboBoxColumn в datagridview Цель: При выборе...

1
OldFedor
7453 / 4120 / 471
Регистрация: 25.08.2012
Сообщений: 11,503
Записей в блоге: 11
17.10.2012, 17:53 2
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'объявить общими и убрать из первой процедуры
'Dim A(12) As Integer
'Dim B(10) As Integer
Dim i, j, r As Integer, b as boolean
  For i = 1 To 12
     r = A(i): b=true
     For j = 1 To 10
       If r = B(j) Then b=false:exit for
     Next j
     If b Then Label3.Text = Label3.Text +r
  Next i
End Sub
В первой процедуре вы, видимо, формируете массивы.
А во второй переопределяли и... затирали.
Только я не понял, зачем суммировать?
Удачи.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2012, 17:53

Опрделить в массиве и вывести на экран простые числа во введёном массиве
Занести в одномерный массив целые числа с клавиатуры. Опрделить в массиве и...

Вывести количество чисел во втором списке, которые также содержатся в первом
Ребят, срочно нужна ваша помощь 1196. Экзамен по истории Ограничение...

Вывести количество чисел во втором списке, которые содержатся в первом (как уменьшить время работы программы)
подскажите пожалуйста как уменьшить время работы программы примерно на 0.5...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru