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

    • ava Мистер Хэнки 25.06.2010 10:37 # +2

      васик такой васик
      Ответить

    • ava TIMHOK 25.06.2010 11:29 # 0

      ахахаха , ну жесть а не код
      Ответить

      • ava Lure Of Chaos 25.06.2010 16:42 # +2

        боян, а вы удивляетесь
        Ответить

        • ava xXx_totalwar 25.06.2010 16:56 # +2

          ньюфаг
          Ответить

          • ava Lure Of Chaos 25.06.2010 17:11 # +2

            опять же, где массив контролов не додумались сделать
            Ответить

            • ava Index 25.06.2010 20:03 # +1

              Тут ведь не в массиве контролов дело, а в феерическом, взаимоисключающем симбиозе свич-кейса и фора.
              Ответить

              • ava inkanus-gray 25.06.2010 21:25 # 0

                Спасибо, кэп! А свич-кейс в форе иногда пишут даже преподаватели. Это секретная методика показать, как не надо делать?
                Ответить

              • ava Lure Of Chaos 25.06.2010 21:31 # +1

                а между прочим, не очевидно, что KolVoprTest ==20. потому, видимо, и фор-свитчкейс
                Ответить

                • ava inkanus-gray 25.06.2010 21:36 # 0

                  То есть если KolVoprTest < 20, то часть полей должна остаться неинициализированной? Интересная мысль.
                  Ответить

                  • ava Lure Of Chaos 25.06.2010 21:43 # 0

                    если KolVoprTest < 20, то останется.
                    Ответить

                    • ava inkanus-gray 25.06.2010 22:24 # 0

                      Это я понятно. Но даже в этом случае цикл не нужен:
                      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)
                      Ответить

                      • ava Lure Of Chaos 25.06.2010 22:48 # +1

                        если сделать массив контролов, то нужен, зато будет три строчки вместо 20 или сколько там нужно.
                        Ответить

                        • ava inkanus-gray 25.06.2010 23:30 # 0

                          Точно. Но тогда не будет кейса.
                          Ответить

                          • ava Lure Of Chaos 25.06.2010 23:40 # +1

                            обещаю, я по нему буду очень скучать. Зато кол-во ответов можно менять без изменения кода. Все таки алгоритм должен обладать достаточной (кофе готовить ему уметь необязательно) универсальностью
                            Ответить

    • ava Wеbkill 25.06.2010 23:32 # −9

      показать все, что скрытоЯ дрочу каждый день и буду делать это снова и снова, а вы лузеры!
      Ответить

    • ava shishi 25.08.2021 19:33 # 0

      - Я уже, - он указал на место ниже пояса и пошло улыбнулся.
      Ответить

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