Школоло / Говнокод #3566 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 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

Тут прям без фора и без кейса никак не обойтись.

Запостил: Index Index, (Updated )

Комментарии (23) RSS

          • Тут ведь не в массиве контролов дело, а в феерическом, взаимоисключающем симбиозе свич-кейса и фора.
            Ответить
            • Спасибо, кэп! А свич-кейс в форе иногда пишут даже преподаватели. Это секретная методика показать, как не надо делать?
              Ответить
            • а между прочим, не очевидно, что KolVoprTest ==20. потому, видимо, и фор-свитчкейс
              Ответить
              • То есть если KolVoprTest < 20, то часть полей должна остаться неинициализированной? Интересная мысль.
                Ответить
                  • Это я понятно. Но даже в этом случае цикл не нужен:
                    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)
                    Ответить
                    • если сделать массив контролов, то нужен, зато будет три строчки вместо 20 или сколько там нужно.
                      Ответить
                        • обещаю, я по нему буду очень скучать. Зато кол-во ответов можно менять без изменения кода. Все таки алгоритм должен обладать достаточной (кофе готовить ему уметь необязательно) универсальностью
                          Ответить
  • Я дрочу каждый день и буду делать это снова и снова, а вы лузеры!
    Ответить
  • - Я уже, - он указал на место ниже пояса и пошло улыбнулся.
    Ответить

Добавить комментарий

Семь раз отмерь — один отрежь, guest!

    А не использовать ли нам bbcode?


    8