1. VisualBasic / Говнокод #3566

    −101

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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, 25 Июня 2010

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

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

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