Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
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
Это я понятно. Но даже в этом случае цикл не нужен:
If KolVoprTest>0 Then Form2.B1.Text = PravOtvetS(0)
...
If KolVoprTest>18 Then Form2.B19.Text = PravOtvetS(18)
If KolVoprTest>19 Then Form2.B20.Text = PravOtvetS(19)
обещаю, я по нему буду очень скучать. Зато кол-во ответов можно менять без изменения кода. Все таки алгоритм должен обладать достаточной (кофе готовить ему уметь необязательно) универсальностью
Комментарии (23) RSS