Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5703)
2. C++ (2740)
3. Куча (2341)
4. JavaScript (2030)
5. C# (1930)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (32)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

1. Список говнокодов пользователя Index

   Всего: 1

2. 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)