1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
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
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 77

Public Class F1
    Inherits System.Windows.Forms.Form

    Dim number(3, 30) As Integer REM Массив для хранения 200-значного числа

    Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click
        REM 52.5.16. Используя алгоритм вычисления функции n! в качестве вспомогательного,
        REM напишите алгоритм вычисления суммы факториалов всех чётных чисел от 2 до 100.

        Dim input As Integer REM Число, вводимое с клавиатуры
        Dim a As Integer, b As Integer REM Временные переменные

        REM Ввод числа с клавиатуры
        L3.Text = ""
        input = Int(Val(T1.Text))
        If input < 0 Then input = 0
        If input > 100 Then input = 100

        For a = 1 To 3
            For b = 1 To 30
                number(a, b) = 0
            Next
        Next

        number(1, 1) = 1
        For a = 1 To input
            multiply(a)

            If a = input Or a Mod 20 = 0 Then
                L3.Text = L3.Text & a & "! = "
                shownumber(1)
                L3.Text = L3.Text & "   "
            End If

        Next
    End Sub

    Sub multiply(ByVal a As Integer) REM Умножение массива "number (1)" на число "a"
        Dim d As Integer, e As Integer REM Временные переменные

        For d = 1 To 30
            number(1, d) = number(1, d) * a
        Next

        REM Перенос остатка, большего 10 млн., в следующий разряд массива
        For d = 1 To 29
            e = number(1, d) \ 10000000
            number(1, d) = number(1, d) Mod 10000000
            number(1, d + 1) = number(1, d + 1) + e
        Next

        If number(1, 30) > 10000000 Then
            For d = 1 To 30
                number(1, d) = 0
            Next
        End If
    End Sub

    Sub shownumber(ByVal a As Integer) REM Вывод на экран массива "number (a)"
        Dim d As Integer, e As Integer, f As Integer REM Временные переменные

        d = 30 REM Верхняя граница отображения числа (элемент не равен нулю)
        While d > 1 And number(a, d) = 0 REM Вычисляем, где кончается ненулевая часть числа
            d = d - 1
        End While

        REM Вывод старших разрядов
        L3.Text = L3.Text & number(a, d)

        REM Вывод младших разрядов
        d = d - 1
        For e = d To 1 Step -1 REM Какое число в массиве выводим (по одной цифре)
            f = number(a, e)
            L3.Text = L3.Text & f \ 1000000 & f \ 100000 Mod 10 & f \ 10000 Mod 10 & f \ 1000 Mod 10 & f \ 100 Mod 10 & f \ 10 Mod 10 & f Mod 10
        Next
    End Sub
End Class