Создать проект, который в форме будет просвещать 5 случайные неповторимые чётные цифры

@NelAs · Регистрация: 26.01.2015

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

@fever brain · 09.01.2016, 16:43

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

в форме будет просвещать 5 случайные неповторимые чётные цифры

Ох уж ваш Русский ..
Так чтоли ?

Visual Basic
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Option Explicit
Const r = 90, n = 4
Dim WithEvents cb As CommandButton, l&, t&, w&, h&, b As Boolean
Dim sh(n) As Shape: Dim lb(n) As Label
 
 
Private Sub cb_Click()
    Const z = ","
    Dim i&, j$(), ll&, tt&, ww&, s$, rn&
    Randomize    'Сброс генератора случайных чисел RND
    rn = Fix(Rnd * 50)
    For i = 0 To n 'Находим неповторимые
        While InStr(1, s, z & rn & z): rn = Fix(Rnd * 50)
            'Этот цикл будет повторяться, пока не сгенерируеться _
            то число, которого не будет в списке занятых
        Wend
        s = s & z & rn & z 'Новая запись в список
    Next
    'Преобразование текста в массив
    j = Split(Replace(Replace(s, ",,", " "), ",", ""))
    ll = r
    tt = t + r * 5
    ww = r * 4
    If Not lb(0) Is Nothing Then
        'Если кружочки уже созданны, значит только _
        заносим новые данные
        For i = 0 To n
            lb(i) = j(i) * 2
        Next
        Exit Sub 'Выход из процедуры
    End If
    For i = 0 To n
        'Создание кружочков, а попутно занос туда цифирек
        Set sh(i) = Controls.Add("vb.Shape", "sh" & i)
        Set lb(i) = Controls.Add("vb.Label", "lb" & i)
        With sh(i)
            .Move ll, tt, ww, h
            lb(i).Move .Left + r, .Top + r, r * 4, r * 4
            lb(i).Caption = j(i) * 2
            .Shape = 3
            ll = ll + r * 20
            .Visible = 1: lb(i).Visible = 1
        End With
    Next
    cb.Caption = "Продолжить"
    If Not b Then
        If MsgBox("Понравилась программа ?", 68) = vbNo Then End
    End If
End Sub
 
Private Sub Form_Load()
    l = r: t = r: w = r * 20: h = r * 4
    Set cb = Controls.Add("vb.CommandButton", "cb")
    With cb
        .Move l, t, w, h
        .Caption = "Начать"
        .Visible = 1
    End With
    With Me
        .Caption = "в форме будет просвещать 5 случайные неповторимые чётные цифры"
        .Width = 8500
        .Height = 1500
    End With
End Sub

@fever brain · 09.01.2016, 18:06

А если всё понимать буквально

Сообщение от fever brain

будет просвещать 5 случайные неповторимые чётные цифры

то можно еще так.. при наведении на кружок курсора, этот кружок подсвечиваеться !

Visual Basic
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Option Explicit
Const r = 90, n = 4
Dim WithEvents pb As PictureBox
Dim WithEvents cb As CommandButton, l&, t&, w&, h&, b As Boolean
Dim crd(n, 3)
Dim sh(n) As Shape: Dim lb(n) As Label
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim i&
    On Error Resume Next
    For i = 0 To n
        If X > crd(i, 0) And X < (crd(i, 0) + crd(i, 2)) And _
            Y > crd(i, 1) And Y < (crd(i, 1) + crd(i, 3)) Then
            sh(i).BorderWidth = 5
        Else: sh(i).BorderWidth = 1
        End If
     Next
End Sub
 
Private Sub cb_Click()
    Const z = ","
    Dim i&, j$(), ll&, tt&, ww&, s$, rn&
    Randomize    'Сброс генератора случайных чисел RND
    rn = Fix(Rnd * 50)
    For i = 0 To n 'Находим неповторимые
        While InStr(1, s, z & rn & z): rn = Fix(Rnd * 50)
            'Этот цикл будет повторяться, пока не сгенерируеться _
            то число, которого не будет в списке занятых
        Wend
        s = s & z & rn & z 'Новая запись в список
    Next
    'Преобразование текста в массив
    j = Split(Replace(Replace(s, ",,", " "), ",", ""))
    ll = r
    tt = t + r * 5
    ww = r * 4
    If Not lb(0) Is Nothing Then
        'Если кружочки уже созданны, значит только _
        заносим новые данные
        For i = 0 To n
            lb(i) = j(i) * 2
        Next
        Exit Sub 'Выход из процедуры
    End If
    Set pb = Controls.Add("vb.PictureBox", "pb")
    With pb
        .Move 0, tt, Width, h + r * 2
        .Enabled = 0
        .BorderStyle = 0
        .Visible = 1
    End With
    For i = 0 To n
        'Создание кружочков, а попутно занос туда цифирек
        Set sh(i) = Controls.Add("vb.Shape", "sh" & i, pb)
        Set lb(i) = Controls.Add("vb.Label", "lb" & i, pb)
        With sh(i)
            .Move ll, r, ww, h
            crd(i, 0) = .Left: crd(i, 1) = .Top: crd(i, 2) = .Width: crd(i, 3) = .Height
            lb(i).Move .Left + r, .Top + r, r * 4, r * 4
            lb(i).Caption = j(i) * 2
            .Shape = 3
            ll = ll + r * 20
            .Visible = 1: lb(i).Visible = 1
        End With
    Next
    For i = 0 To n: crd(i, 1) = crd(i, 1) + pb.Top: Next
    cb.Caption = "Продолжить"
    If Not b Then
        If MsgBox("Понравилась программа ?", 68) = vbNo Then End
    End If
End Sub
 
Private Sub Form_Load()
    l = r: t = r: w = r * 20: h = r * 4
    Set cb = Controls.Add("vb.CommandButton", "cb")
    With cb
        .Move l, t, w, h
        .Caption = "Начать"
        .Visible = 1
    End With
    With Me
        .Caption = "в форме будет просвещать 5 случайные неповторимые чётные цифры"
        .Width = 8500
        .Height = 2000
    End With
End Sub

@gaw · 09.01.2016, 19:16

"Создать проект, который в форме будет просвещать 5 случайные неповторимые чётные цифры"
Спортлото 5 Х 36 : Выбрасываем очень маловероятные варианты

@fever brain · 09.01.2016, 19:37

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

Спортлото 5 Х 36

Ну да, можно это сделать вроде как лотерею

Visual Basic
1
2
    'Все числа будут выводиться в промежетке от Min до Max
    Const Min = 1, Max = 36

И кстати, я ускорил получение уникального числа тем, что теперь будет не угадывание
следующего уникального, а сложение (+1), от совпавшего но в модуле заданного промежутка
в нашем случае от 1 до 36

Visual Basic
1
2
3
4
5
6
7
8
    For i = 0 To n 'Находим неповторимые
        md = (MMax - Min + 1)
        rn = Min + Fix(Rnd * md)
        Do
            rn = (rn + 1) Mod md
        Loop While InStr(1, s, z & rn & z)
        s = s & z & rn & z 'Новая запись в список
    Next

Улучшенный код целиком

Кликните здесь для просмотра всего текста

Visual Basic
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Option Explicit
Const r = 90, n = 4
Dim WithEvents pb As PictureBox
Dim WithEvents cb As CommandButton, l&, t&, w&, h&, b As Boolean
Dim crd(n, 3)
Dim sh(n) As Shape: Dim lb(n) As Label
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim i&
    On Error Resume Next
    For i = 0 To n
        If X > crd(i, 0) And X < (crd(i, 0) + crd(i, 2)) And _
            Y > crd(i, 1) And Y < (crd(i, 1) + crd(i, 3)) Then
            sh(i).BorderWidth = 5
        Else: sh(i).BorderWidth = 1
        End If
     Next
End Sub
 
Private Sub cb_Click()
    'Все числа будут выводиться в промежетке от Min до Max
    Const Min = 1, Max = 36
    '======================================
    Const z = ",", MMax = Max \ 2 + 1
    Dim i&, j$(), ll&, tt&, ww&, s$, rn&, md&
    Randomize    'Сброс генератора случайных чисел RND
    For i = 0 To n 'Находим неповторимые
        md = (MMax - Min + 1)
        rn = Min + Fix(Rnd * md)
        Do
            rn = (rn + 1) Mod md
        Loop While InStr(1, s, z & rn & z)
        s = s & z & rn & z 'Новая запись в список
    Next
    'Преобразование текста в массив
    j = Split(Replace(Replace(s, ",,", " "), ",", ""))
    ll = r
    tt = t + r * 5
    ww = r * 4
    If Not lb(0) Is Nothing Then
        'Если кружочки уже созданны, значит только _
        заносим новые данные
        For i = 0 To n
            lb(i) = j(i) * 2
        Next
        Exit Sub 'Выход из процедуры
    End If
    Set pb = Controls.Add("vb.PictureBox", "pb")
    With pb
        .Move 0, tt, Width, h + r * 2
        .Enabled = 0
        .BorderStyle = 0
        .Visible = 1
    End With
    For i = 0 To n
        'Создание кружочков, а попутно занос туда цифирек
        Set sh(i) = Controls.Add("vb.Shape", "sh" & i, pb)
        Set lb(i) = Controls.Add("vb.Label", "lb" & i, pb)
        With sh(i)
            .Move ll, r, ww, h
            crd(i, 0) = .Left: crd(i, 1) = .Top: crd(i, 2) = .Width: crd(i, 3) = .Height
            lb(i).Move .Left + r, .Top + r, r * 4, r * 4
            lb(i).Caption = j(i) * 2
            .Shape = 3
            ll = ll + r * 20
            .Visible = 1: lb(i).Visible = 1
        End With
    Next
    For i = 0 To n: crd(i, 1) = crd(i, 1) + pb.Top: Next
    cb.Caption = "Продолжить"
End Sub
 
Private Sub Form_Load()
    l = r: t = r: w = r * 20: h = r * 4
    Set cb = Controls.Add("vb.CommandButton", "cb")
    With cb
        .Move l, t, w, h
        .Caption = "Начать"
        .Visible = 1
    End With
    With Me
        .Caption = "в форме будет просвещать 5 случайные неповторимые чётные цифры"
        .Width = 8500
        .Height = 2000
    End With
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Понравилась программа ?", 68) = vbNo Then Cancel = 1
End Sub

@Pro_grammer · 09.01.2016, 20:27

Сообщение от fever brain

И кстати, я ускорил получение уникального числа тем, что теперь будет не угадывание

Есть ещё один способ. Вначале заполонить массив последовательно, а потом его просто перемешать в случайном порядке. Для этого используется процедура Swap. Уж не знаю, по какому случаю её выпилили из VB6, но в Qbasic она стандартная, gaw должен быть счастлив

Вот мой очень простой для понимания код, уж простите, без кружочков, для начинающих

Visual Basic
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
Option Explicit
 
' Очень полезная процедура обмена переменных
' пригодится любым реальным программерам
Private Sub Swap(ByRef var1 As Integer, ByRef var2 As Integer)
Dim var As Integer
  var = var1
  var1 = var2
  var2 = var
End Sub
 
' А это сам код, работает с кнопки
Private Sub Command1_Click()
Dim r As Integer, i As Integer, A(36) As Integer
' Наполняем барабан шарами
For i = 1 To 36
   A(i) = i
Next
' Перемешиваем шары в барабане
Randomize Timer
For i = 36 To 1 Step -1
    r = 36 * Rnd()
    Swap A(i), A(r)
Next
'показываем 5 шаров ( или сколько надо )
For i = 1 To 5
Print A(i)
Next
 
End Sub

@fever brain · 09.01.2016, 20:39

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

Перемешиваем шары в барабане

Ну да, тогда это будет еще быстрее, хотя есть и минусы, к примеру если у меня числовой промежуток, больше чем вместимость оперативной памяти ПК ?

@Genn55 · 09.01.2016, 20:54

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

Вначале заполонить массив последовательно, а потом его просто перемешать в случайном порядке

Можно и расчитать случайное число без повтора

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub Form_Click()
Cls
Randomize
Dim Ni As Integer, i As Integer, Count As Integer
Ni = Fix(Rnd() * 100) 'Расчет первого случайного числа
For i = 0 To 99
    Ni = (Ni * 74) - Fix(Ni * (74 / 101)) * 101 ' Ni целое не повторяющееся случайное число
    If Ni Mod 2 = 0 Then Print Ni: Count = Count + 1 ' если Ni четное печатаем на форме и наращиваем счетчик
    If Count = 5 Then Exit For 'печатаем сколько нужно и выходим из цикла
Next
End Sub

SoftIce · 09.01.2016, 20:56

Сообщение от fever brain

А если всё понимать буквально

Тогда понимай буквально до конца

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

просвещать 5 случайные неповторимые чётные цифры

@fever brain · 09.01.2016, 21:10

Есть еще способ !
Создаём строку пробелов в модуле числового промежутка,

Кликните здесь для просмотра всего текста

Visual Basic
1
ss = Space$(md + 1)

и заполняем (занимаем свободые места)
с условием что оно уже свободно и также +1 при совпадении ..

Код полностью:

Visual Basic
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
Option Explicit
Const r = 90, n = 4
Dim WithEvents pb As PictureBox
Dim WithEvents cb As CommandButton, l&, t&, w&, h&, b As Boolean
Dim crd(n, 3)
Dim sh(n) As Shape: Dim lb(n) As Label
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim i&
    On Error Resume Next
    For i = 0 To n
        If X > crd(i, 0) And X < (crd(i, 0) + crd(i, 2)) And _
            Y > crd(i, 1) And Y < (crd(i, 1) + crd(i, 3)) Then
            sh(i).BorderWidth = 5
        Else: sh(i).BorderWidth = 1
        End If
     Next
End Sub
 
Private Sub cb_Click()
    'Все числа будут выводиться в промежетке от Min до Max
    Const Min = 1, Max = 36
    '======================================
    Const z = "*", MMax = Max \ 2
    Dim i&, j$(), ll&, tt&, ww&, s$, rn&, md&, ss$
    Randomize    'Сброс генератора случайных чисел RND
    md = (MMax - Min + 1)
    ss = Space$(md + 1)
    For i = 0 To n 'Находим неповторимые
        rn = Fix(Rnd * md)
        Do
            rn = (rn + 1) Mod md
        Loop While Mid(ss, rn + 1, 1) = z
        Mid(ss, rn + 1, 1) = z
        s = s & " " & rn + Min 'Новая запись в список
    Next
    'Преобразование текста в массив
    j = Split(Mid(s, 2))
    ll = r
    tt = t + r * 5
    ww = r * 4
    If Not lb(0) Is Nothing Then
        'Если кружочки уже созданны, значит только _
        заносим новые данные
        For i = 0 To n
            lb(i) = j(i) * 2
        Next
        Exit Sub 'Выход из процедуры
    End If
    Set pb = Controls.Add("vb.PictureBox", "pb")
    With pb
        .Move 0, tt, Width, h + r * 2
        .Enabled = 0
        .BorderStyle = 0
        .Visible = 1
    End With
    For i = 0 To n
        'Создание кружочков, а попутно занос туда цифирек
        Set sh(i) = Controls.Add("vb.Shape", "sh" & i, pb)
        Set lb(i) = Controls.Add("vb.Label", "lb" & i, pb)
        With sh(i)
            .Move ll, r, ww, h
            crd(i, 0) = .Left: crd(i, 1) = .Top: crd(i, 2) = .Width: crd(i, 3) = .Height
            lb(i).Move .Left + r, .Top + r, r * 4, r * 4
            lb(i).Caption = j(i) * 2
            .Shape = 3
            ll = ll + r * 10
            .Visible = 1: lb(i).Visible = 1
        End With
    Next
    For i = 0 To n: crd(i, 1) = crd(i, 1) + pb.Top: Next
    cb.Caption = "Продолжить"
End Sub
 
Private Sub Form_Load()
    l = r: t = r: w = r * 20: h = r * 4
    Set cb = Controls.Add("vb.CommandButton", "cb")
    With cb
        .Move l, t, w, h
        .Caption = "Начать"
        .Visible = 1
    End With
    With Me
        .Caption = "в форме будет просвещать 5 случайные неповторимые чётные цифры"
        .Width = 5000
        .Height = 2000
    End With
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Понравилась программа ?", 68) = vbNo Then Cancel = 1
End Sub

@fever brain · 09.01.2016, 21:12

Не по теме:

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

Тогда понимай буквально до конца
Сообщение от NelAs просвещать 5 случайные неповторимые чётные цифры

%-) %-) %-) %-)

@Pro_grammer · 09.01.2016, 21:14

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

Можно и расчитать случайное число без повтора

Как вариант тоже пойдет. Хотя и не так очевидно, как переделать для произвольных промежутков.
Таки мой вариант мне больше нравится наглядностью. Взяли шары, положили в мешок, перемешали мешок и вытаскиваем в произвольном порядке, можно пока не кончится.

SoftIce · 09.01.2016, 21:18

fever brain, не кривляйся

Опять трудности перевода. Скорее всего не "просвещать" а "отобразить" или "показать"

А буквально:
5 случайные неповторимые чётные цифры
Это всего лишь.

0, 2, 4, 6, 8

Поэтому не надо понимать все буквально

@The trick · 09.01.2016, 21:23

Вот еще вариант генерации без повтора, без предварительных заполнений массивов, работает очень быстро:
https://www.cyberforum.ru/post6536079.html

@fever brain · 09.01.2016, 21:31

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

А буквально: 5 случайные неповторимые чётные цифры
Это всего лишь.
0, 2, 4, 6, 8

А где же они случайные?, числа идут в произвольном порядке
один от другого отличаються двойкой
Хотя, чтобы посмеяться можно было бы и это подкинуть в качестве ответа

SoftIce · 09.01.2016, 21:34

Сообщение от fever brain

А где же они случайные?

Тогда предложи свой вариант пяти случайных неповторяющихся четных цифр

@fever brain · 09.01.2016, 21:36

10, 8, 6, 4, 2 .. а что?, и такое могла выбить моя программа с кружочками

SoftIce · 09.01.2016, 21:39

Не по теме:

Сообщение от fever brain

10

С тобой спорить бесполезно, поэтому я лучше промолчу, а то опять будешь обижаться;D

@NelAs · 02.02.2016, 19:13 **[ТС]**

уважаемыe если можно помогите решить задачу на visual basic 6.0 !!

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@NelAs 0 / 0 / 0 Регистрация: 26.01.2015 Сообщений: 32

	Создать проект, который в форме будет просвещать 5 случайные неповторимые чётные цифры 09.01.2016, 15:53. Показов 1823. Ответов 18 Метки нет (Все метки) Создать проект, который в форме будет просвещать 5 случайные неповторимые чётные цифры 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	09.01.2016, 19:16
	"Создать проект, который в форме будет просвещать 5 случайные неповторимые чётные цифры" Спортлото 5 Х 36 : Выбрасываем очень маловероятные варианты 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	09.01.2016, 21:18
	fever brain, не кривляйся Опять трудности перевода. Скорее всего не "просвещать" а "отобразить" или "показать" А буквально: 5 случайные неповторимые чётные цифры Это всего лишь. 0, 2, 4, 6, 8 Поэтому не надо понимать все буквально 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	09.01.2016, 21:23
	Вот еще вариант генерации без повтора, без предварительных заполнений массивов, работает очень быстро: https://www.cyberforum.ru/post6536079.html 1

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	09.01.2016, 21:36
	10, 8, 6, 4, 2 .. а что?, и такое могла выбить моя программа с кружочками 0

@NelAs 0 / 0 / 0 Регистрация: 26.01.2015 Сообщений: 32
	02.02.2016, 19:13 [ТС]
	уважаемыe если можно помогите решить задачу на visual basic 6.0 !! 0

Создать проект, который в форме будет просвещать 5 случайные неповторимые чётные цифры

Решение