- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
For i = 0 To KolVoprTest - 1
Select Case i
Case 0
Form2.B1.Text = PravOtvetS(i)
Case 1
Form2.B2.Text = PravOtvetS(i)
Case 2
Form2.B3.Text = PravOtvetS(i)
Case 3
Form2.B4.Text = PravOtvetS(i)
Case 4
Form2.B5.Text = PravOtvetS(i)
Case 5
Form2.B6.Text = PravOtvetS(i)
Case 6
Form2.B7.Text = PravOtvetS(i)
Case 7
Form2.B8.Text = PravOtvetS(i)
Case 8
Form2.B9.Text = PravOtvetS(i)
Case 9
Form2.B10.Text = PravOtvetS(i)
Case 10
Form2.B11.Text = PravOtvetS(i)
Case 11
Form2.B12.Text = PravOtvetS(i)
Case 12
Form2.B13.Text = PravOtvetS(i)
Case 13
Form2.B14.Text = PravOtvetS(i)
Case 14
Form2.B15.Text = PravOtvetS(i)
Case 15
Form2.B16.Text = PravOtvetS(i)
Case 16
Form2.B17.Text = PravOtvetS(i)
Case 17
Form2.B18.Text = PravOtvetS(i)
Case 18
Form2.B19.Text = PravOtvetS(i)
Case 19
Form2.B20.Text = PravOtvetS(i)
End Select
Next i
Мистер Хэнки 25.06.2010 10:37 # +2
Webkill 25.06.2010 14:38 # −6
This is obvious 25.06.2010 14:39 # +1
Webkill 25.06.2010 15:35 # −4
This is obvious 25.06.2010 15:44 # 0
TIMHOK 25.06.2010 11:29 # 0
Lure Of Chaos 25.06.2010 16:42 # +2
xXx_totalwar 25.06.2010 16:56 # +2
Lure Of Chaos 25.06.2010 17:11 # +2
Index 25.06.2010 20:03 # +1
inkanus-gray 25.06.2010 21:25 # 0
Lure Of Chaos 25.06.2010 21:31 # +1
inkanus-gray 25.06.2010 21:36 # 0
Lure Of Chaos 25.06.2010 21:43 # 0
inkanus-gray 25.06.2010 22:24 # 0
Lure Of Chaos 25.06.2010 22:48 # +1
inkanus-gray 25.06.2010 23:30 # 0
Lure Of Chaos 25.06.2010 23:40 # +1
inkanus-gray 25.06.2010 23:54 # 0
Lure Of Chaos 25.06.2010 23:59 # 0
inkanus-gray 26.06.2010 00:05 # 0
Wеbkill 25.06.2010 23:32 # −9
shishi 25.08.2021 19:33 # 0