Избежать повторных вопросов в программе для тестирования

@D@gon · Регистрация: 20.02.2011

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

Здравствуйте, помогите пожалуйста избавится от повторения randrom

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim mas(47) As Integer
        Button2.Text = "Следующий вопрос >"
        Label4.Visible = False
        GroupBox2.Visible = True
        GroupBox1.Visible = True
        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = True
        If Val = ProgressBar1.Maximum Then
            Return
        End If
        Val = Val + 1
        ProgressBar1.Value = Val
 
        W = W + 1
        Label3.Text = W
 
 
        If RadioButton1.Checked = True Then
 
            If a(i) = 1 Then
                P = P + 1
            Else
                N = N + 1
            End If
 
        End If
 
 
        If RadioButton2.Checked = True Then
 
            If a(i) = 2 Then
                P = P + 1
            Else
                N = N + 1
            End If
 
        End If
 
 
        
        i = CInt(Int((47 * Rnd()) + 1))
 
        pbxQuestion.Image = v(i)
 
        Label6.Text = N
        Label7.Text = P
 
        If W = 47 Then
            GroupBox2.Visible = False
            GroupBox1.Visible = False
            Button2.Visible = False
            Label1.Visible = False
            Label2.Visible = False
            Label3.Visible = False
            Form3.Show()
            Me.Close()
 
        End If
    End Sub

Памирыч · 01.12.2011, 21:43

D@gon, или в загрузке формы напиши

VB.NET
1
Randomize()

Или используй класс Random

@D@gon · 01.12.2011, 21:46 **[ТС]**

Randomize() прописан в загрузке формы формы

Памирыч · 01.12.2011, 21:54

D@gon, это аномалия. Сейчас проверил, числа всегда разные.
Разумеется я из твоего кода взял только

VB.NET
1
        I = CInt(Int((47 * Rnd()) + 1))

Рандомизация прописана в загрузке первой формы? В ней же и вызов переменной I?
В любом случае
Randomize()
должен быть вызван раньше, чем функция Rnd()

Если все сделано верно - звони уфологам

@D@gon · 01.12.2011, 22:02 **[ТС]**

вот полный текст

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
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
Public Class Form2
    Dim W As Double
    Dim i As Integer
    Dim s, P, N, Val As Double
    Dim v(48) As Bitmap
    Dim a(48)
    Dim ee As TimeSpan
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Form1.ListBox2.Text = 1 Then
            v(1) = My.Resources._1
            v(2) = My.Resources._2
            v(3) = My.Resources._3
            v(4) = My.Resources._4
            v(5) = My.Resources._5
            v(6) = My.Resources._6
            v(7) = My.Resources._7
            v(8) = My.Resources._8
            v(9) = My.Resources._9
            v(10) = My.Resources._10
            v(11) = My.Resources._11
            v(12) = My.Resources._12
            v(13) = My.Resources._13
            v(14) = My.Resources._14
            v(15) = My.Resources._15
            v(16) = My.Resources._16
            v(17) = My.Resources._17
            v(18) = My.Resources._18
            v(19) = My.Resources._19
            v(20) = My.Resources._20
            v(21) = My.Resources._21
            v(22) = My.Resources._22
            v(23) = My.Resources._23
            v(24) = My.Resources._24
            v(25) = My.Resources._25
            v(26) = My.Resources._26
            v(27) = My.Resources._27
            v(28) = My.Resources._28
            v(29) = My.Resources._29
            v(30) = My.Resources._30
            v(31) = My.Resources._31
            v(32) = My.Resources._32
            v(33) = My.Resources._33
            v(34) = My.Resources._34
            v(35) = My.Resources._35
            v(36) = My.Resources._36
            v(37) = My.Resources._37
            v(38) = My.Resources._38
            v(39) = My.Resources._39
            v(40) = My.Resources._40
            v(41) = My.Resources._41
            v(42) = My.Resources._42
            v(43) = My.Resources._43
            v(44) = My.Resources._44
            v(45) = My.Resources._45
            v(46) = My.Resources._46
            v(47) = My.Resources._47
            v(48) = My.Resources._48
 
            a(1) = 2
            a(2) = 2
            a(3) = 2
            a(4) = 2
            a(5) = 1
            a(6) = 1
            a(7) = 1
            a(8) = 2
            a(9) = 2
            a(10) = 1
            a(11) = 2
            a(12) = 2
            a(13) = 2
            a(14) = 2
            a(15) = 2
            a(16) = 1
            a(17) = 1
            a(18) = 2
            a(19) = 2
            a(20) = 2
            a(21) = 2
            a(22) = 1
            a(23) = 2
            a(24) = 1
            a(25) = 2
            a(26) = 1
            a(27) = 2
            a(28) = 2
            a(29) = 2
            a(30) = 2
            a(31) = 1
            a(32) = 1
            a(33) = 1
            a(34) = 1
            a(35) = 2
            a(36) = 2
            a(37) = 1
            a(38) = 1
            a(39) = 1
            a(40) = 1
            a(41) = 2
            a(42) = 1
            a(43) = 2
            a(44) = 1
            a(45) = 2
            a(46) = 1
            a(47) = 1
            a(48) = 1
 
        ElseIf Form1.ListBox2.Text = 2 Then
 
            v(1) = My.Resources._2_1
            v(2) = My.Resources._2_2
            v(3) = My.Resources._2_3
            v(4) = My.Resources._2_4
            v(5) = My.Resources._2_5
            v(6) = My.Resources._2_6
            v(7) = My.Resources._2_7
            v(8) = My.Resources._2_8
            v(9) = My.Resources._2_9
            v(10) = My.Resources._2_10
            v(11) = My.Resources._2_11
            v(12) = My.Resources._2_12
            v(13) = My.Resources._2_13
            v(14) = My.Resources._2_14
            v(15) = My.Resources._2_15
            v(16) = My.Resources._2_16
            v(17) = My.Resources._2_17
            v(18) = My.Resources._2_18
            v(19) = My.Resources._2_19
            v(20) = My.Resources._2_20
            v(21) = My.Resources._2_21
            v(22) = My.Resources._2_22
            v(23) = My.Resources._2_23
            v(24) = My.Resources._2_24
            v(25) = My.Resources._2_25
            v(26) = My.Resources._2_26
            v(27) = My.Resources._2_27
            v(28) = My.Resources._2_28
            v(29) = My.Resources._2_29
            v(30) = My.Resources._2_30
            v(31) = My.Resources._2_31
            v(32) = My.Resources._2_32
            v(33) = My.Resources._2_33
            v(34) = My.Resources._2_34
            v(35) = My.Resources._2_35
            v(36) = My.Resources._2_36
            v(37) = My.Resources._2_37
            v(38) = My.Resources._2_38
            v(39) = My.Resources._2_39
            v(40) = My.Resources._2_40
            v(41) = My.Resources._2_41
            v(42) = My.Resources._2_42
            v(43) = My.Resources._2_43
            v(44) = My.Resources._2_44
            v(45) = My.Resources._2_45
            v(46) = My.Resources._2_46
            v(47) = My.Resources._47
            v(48) = My.Resources._48
 
            a(1) = 2
            a(2) = 2
            a(3) = 2
            a(4) = 2
            a(5) = 1
            a(6) = 1
            a(7) = 2
            a(8) = 1
            a(9) = 2
            a(10) = 1
            a(11) = 1
            a(12) = 1
            a(13) = 1
            a(14) = 1
            a(15) = 2
            a(16) = 2
            a(17) = 1
            a(18) = 1
            a(19) = 1
            a(20) = 1
            a(21) = 1
            a(22) = 2
            a(23) = 2
            a(24) = 2
            a(25) = 2
            a(26) = 1
            a(27) = 2
            a(28) = 2
            a(29) = 1
            a(30) = 2
            a(31) = 2
            a(32) = 1
            a(33) = 2
            a(34) = 1
            a(35) = 1
            a(36) = 1
            a(37) = 2
            a(38) = 2
            a(39) = 1
            a(40) = 1
            a(41) = 2
            a(42) = 2
            a(43) = 2
            a(44) = 1
            a(45) = 1
            a(46) = 1
            a(47) = 1
            a(48) = 1
        End If
 
       
        Label9.Visible = False
        GroupBox2.Visible = False
        GroupBox1.Visible = False
        Button2.Visible = False
        Label1.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        Label6.Visible = False
        Label7.Visible = False
        Randomize()
 
 
 
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim mas(47) As Integer
        Button2.Text = "Следующий вопрос >"
        Label4.Visible = False
        GroupBox2.Visible = True
        GroupBox1.Visible = True
        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = True
        If Val = ProgressBar1.Maximum Then
            Return
        End If
        Val = Val + 1
        ProgressBar1.Value = Val
 
        W = W + 1
        Label3.Text = W
 
 
        If RadioButton1.Checked = True Then
 
            If a(i) = 1 Then
                P = P + 1
            Else
                N = N + 1
            End If
 
        End If
 
 
        If RadioButton2.Checked = True Then
 
            If a(i) = 2 Then
                P = P + 1
            Else
                N = N + 1
            End If
 
        End If
 
 
        
        i = CInt(Int((47 * Rnd()) + 1))
 
        pbxQuestion.Image = v(i)
 
        Label6.Text = N
        Label7.Text = P
 
        If W = 47 Then
            GroupBox2.Visible = False
            GroupBox1.Visible = False
            Button2.Visible = False
            Label1.Visible = False
            Label2.Visible = False
            Label3.Visible = False
            Form3.Show()
            Me.Close()
 
        End If
    End Sub
 
   
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ee = ee - New TimeSpan(0, 0, 1)
        Label5.Text = ee.ToString()
 
 
        If ee = New TimeSpan(0, 0, 0) Then
            Form3.Show()
            Me.Close()
            MessageBox.Show("К сожалению Ваше время истекло.")
        End If
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button2.Text = "Начать тест"
        Button2.Visible = True
        Button1.Visible = False
        ee = New TimeSpan(1, 10, 0)
        Label9.Text = TimeOfDay
        Label9.Visible = False
    End Sub
End Class

Памирыч · 01.12.2011, 22:14

Я в таком коде вывихнул глаза.
Но ты попробуй

VB.NET
1
i = CInt(Int((47 * Rnd()) + 1))

Поместить сразу после

VB.NET
1
Private Sub Button2_Click(ByVal sender As System.Object,...

Вдруг?

@D@gon · 01.12.2011, 22:16 **[ТС]**

Не код работает, т.е. в случайном порядке всё показывает, вот тока некоторые повторяются, как мне избежать повторения.

Памирыч · 01.12.2011, 22:28

Не по теме:

Вот оно что, я не про то подумал.

D@gon, Ну что могу посоветовать в таком случае?
Чтобы не было повторов при рандоме, надо следовать например, такой схеме:
Получаем коллекцию чисел от 1 до, скажем, 10.
Именно коллекцию, а не массив.
Случайным образом получаем элемент коллекции и тут же его удаляем из оной.
Таким образом, второй раз он уже не выпадет.
За диапазоном рандома нужно будет следить и при каждой операции уменьшать на единицу, чтобы не получилось так, что мы получаем 9 элемент в коллекции, разбомбленной до 4.

Есть и другие способы, один страшнее другого.

@D@gon · 03.12.2011, 15:43 **[ТС]**

А можно пример какой-нибудь?

Памирыч · 03.12.2011, 17:18

Есть готовый пример.

Новые блоги и статьи Все статьи Все блоги /
Чистый C и C++ в Qt Creator: ставим среду без VPN и настраиваем MinGW/CMake, без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@D@gon 0 / 0 / 0 Регистрация: 20.02.2011 Сообщений: 50
	01.12.2011, 21:46 [ТС]
	Randomize() прописан в загрузке формы формы 0

@D@gon 0 / 0 / 0 Регистрация: 20.02.2011 Сообщений: 50
	01.12.2011, 22:16 [ТС]
	Не код работает, т.е. в случайном порядке всё показывает, вот тока некоторые повторяются, как мне избежать повторения. 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	01.12.2011, 22:28
	Не по теме: Вот оно что, я не про то подумал. D@gon, Ну что могу посоветовать в таком случае? Чтобы не было повторов при рандоме, надо следовать например, такой схеме: Получаем коллекцию чисел от 1 до, скажем, 10. Именно коллекцию, а не массив. Случайным образом получаем элемент коллекции и тут же его удаляем из оной. Таким образом, второй раз он уже не выпадет. За диапазоном рандома нужно будет следить и при каждой операции уменьшать на единицу, чтобы не получилось так, что мы получаем 9 элемент в коллекции, разбомбленной до 4. Есть и другие способы, один страшнее другого. 0

@D@gon 0 / 0 / 0 Регистрация: 20.02.2011 Сообщений: 50
	03.12.2011, 15:43 [ТС]
	А можно пример какой-нибудь? 0

Избежать повторных вопросов в программе для тестирования

Решение