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

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