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

    −110

    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
    45. 45
    46. 46
    47. 47
    Dim num As Integer
        Dim inp As Integer
        Dim wrt As String
        Dim liv As Integer
    
    
    
        Sub Main()
            liv = 3
            Console.WriteLine("LIVES = " & liv)
    pl:
            If liv = 0 Then GoTo st
    
    
            num = Fix(Rnd() * 5)
    
            Console.WriteLine("ENTER NUMBER:")
            inp = Console.ReadLine()
            If inp < num Then
                Console.WriteLine("GREATER")
                liv = liv - 1
                Console.WriteLine("LIVES = " & liv)
                GoTo pl
    
            End If
    
            If inp > num Then
                Console.WriteLine("LESS")
    
                liv = liv - 1
                Console.WriteLine("LIVES = " & liv)
                GoTo pl
            End If
    
    
            If inp = num Then Console.WriteLine("YES!")
    st:
            Console.WriteLine("GAME OVER")
            Console.WriteLine("ENTER ANY NUMBER TO EXIT")
            inp = Console.ReadLine()
    
    
    
    
    
    
        End Sub

    Одна из моих первых "прог" на VB, написанная около 4х лет назад - "Угадай число".

    Запостил: RaZeR, 21 Марта 2011

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

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