Private Sub B1_Click(ByVal sender As System.

Object, ByVal e As System.EventArgs) Handles B1.Click REM A. Временные переменные
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim f As Integer, g As Integer, h As Integer
Dim j As String, k As String
REM B. Исходные данные
Dim aa(30) As Integer REM Массив со случайными данными
Dim ab(10) As Integer
Dim ac(10) As Integer
REM C. Ввод исходных данных
For a = 0 To 9 REM Заполнение массива случайными числами
aa(a) = Int(Rnd() * 11)
Next
REM 12.3.1.1
L1.Text = "1. " & 5 + 7 + 8
REM 42.3.7.2
For a = 0 To 9
ab(a) = aa(a)
ac(a) = aa(9 - a)
Next
L1.Text = L1.Text & Chr(10) & Chr(10) & "2. "
For a = 0 To 9
L1.Text = L1.Text & aa(a) & " "
Next
L1.Text = L1.Text & Chr(10)
For a = 0 To 9
L1.Text = L1.Text & ab(a) & " "
Next
L1.Text = L1.Text & Chr(10)
For a = 0 To 9
L1.Text = L1.Text & ac(a) & " "
Next
REM 52.5.16.3. Используя алгоритм вычисления функции n! в качестве вспомогательного,
REM напишите алгоритм вычисления суммы факториалов всех чётных чисел от 2 до 100.
REM Найти 100!
For a = 0 To 30 REM Обнуление исходного массива
aa(a) = 0
Next
aa(1) = 1
For a = 1 To 100 REM Начало главного цикла умножения
For b = 1 To 30 REM Внутренний цикл умножения
aa(b) = aa(b) * a
Next
REM Перенос остатка, большего 10 млн., в следующий разряд массива
For b = 1 To 29
c = aa(b) \ 10000000
aa(b) = aa(b) Mod 10000000
aa(b + 1) = aa(b + 1) + c
Next
If aa(30) > 10000000 Then
For b = 1 To 30
aa(b) = 0
Next
End If
Next REM Конец главного цикла умножения
REM Вывод результата
L1.Text = L1.Text & Chr(10) & Chr(10) & "3. 100! = "
a = 30 REM Верхняя граница отображения результата (элемент не равен нулю)
While a > 1 And aa(a) = 0 REM Вычисляем, где кончается ненулевая часть числа
a = a - 1
End While
REM Вывод старших разрядов
L1.Text = L1.Text & aa(a)
REM Вывод младших разрядов
a = a - 1
For b = a To 1 Step -1 REM Какое число в массиве выводим (по одной цифре)
c = aa(b)
L1.Text = L1.Text & c \ 1000000 & c \ 100000 Mod 10 & c \ 10000 Mod 10
L1.Text = L1.Text & c \ 1000 Mod 10 & c \ 100 Mod 10 & c \ 10 Mod 10 & c Mod 10
Next
REM 52.10.18.4. Напишите алгоритм подсчёта количества "счастливых" автобусных билетов.
REM (Билет называется "счастливым", если сумма первых трёх цифр номера билета равна
REM сумме последних трёх цифр.)
h = -1
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
For f = 0 To 9
For g = 0 To 9
If a + b + c = d + f + g Then h = h + 1
Next
Next
Next
Next
Next
Next
L1.Text = L1.Text & Chr(10) & Chr(10) & "4. Число счастливых билетов " & h
REM 56.1.19.5
j = "компьютеризация"
k = j.Chars(3) + j.Chars(1) + j.Chars(6) + j.Chars(7) + j.Chars(8) + j.Chars(14)
L1.Text = L1.Text & Chr(10) & "5. " & k
k = j.Chars(3) + j.Chars(8) + j.Chars(9) + j.Chars(10)
L1.Text = L1.Text & ", " & k
REM 56.8.20.6
j = "интеграл"
k = j.Chars(4) + j.Chars(6) + j.Chars(1) + j.Chars(2) + j.Chars(3) + j.Chars(7) + j.Chars(0)
L1.Text = L1.Text & Chr(10) & "6. " & k
k = j.Chars(5) + j.Chars(3) + j.Chars(1) + j.Chars(2) + j.Chars(4) + j.Chars(3) + j.Chars(1)
L1.Text = L1.Text & ", " & k
k = j.Chars(2) + j.Chars(0) + j.Chars(4) + j.Chars(5)
L1.Text = L1.Text & ", " & k
k = j.Chars(6) + j.Chars(4) + j.Chars(3) + j.Chars(1) + j.Chars(2)
L1.Text = L1.Text & ", " & k
End Sub
Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click REM A. Временные переменные
Dim a As Integer, b As Integer
REM B. Исходные данные
Dim aa(10) As Integer REM Массив со случайными данными
Dim ab(10) As Integer
REM C. Ввод исходных данных
For a = 0 To 9 REM Заполнение массива случайными числами
aa(a) = Int(Rnd() * 21 - 10)
Next
REM 126.2.43.7
REM Часть 1.
For a = 0 To 9
ab(a) = aa(a) + 1
Next
L1.Text = "7. "
For a = 0 To 9
L1.Text = L1.Text & aa(a) & " "
Next
L1.Text = L1.Text & Chr(10) & Chr(10)
For a = 0 To 9
L1.Text = L1.Text & ab(a) & " "
Next
REM Часть 2.
For a = 0 To 9
ab(a) = 0
Next
L1.Text = L1.Text & Chr(10)
For a = 0 To 9
L1.Text = L1.Text & ab(a) & " "
Next
REM Часть 3.
ab(0) = 1
For a = 1 To 9
ab(a) = ab(a - 1) - 1
Next
L1.Text = L1.Text & Chr(10)
For a = 0 To 9
L1.Text = L1.Text & ab(a) & " "
Next
REM Часть 4.
For a = 0 To 9
ab(a) = -aa(a)
Next
L1.Text = L1.Text & Chr(10)
For a = 0 To 9
L1.Text = L1.Text & ab(a) & " "
Next
REM Часть 5.
b = 0
For a = 0 To 9
b = b + aa(a)
Next
L1.Text = L1.Text & Chr(10) & Chr(10) & "Сумма " & b
REM Часть 6.
b = 0
For a = 0 To 9
If aa(a) < 0 Then b = b - aa(a) Else b = b + aa(a)
Next
L1.Text = L1.Text & ", сумма модулей " & b
REM Часть 7.
b = 0
For a = 0 To 9
If aa(a) > 0 Then b = b + aa(a)
Next
L1.Text = L1.Text & ", сумма положительных " & b
REM Часть 8.
b = aa(0)
For a = 1 To 9
If b > aa(a) Then b = aa(a)
Next
L1.Text = L1.Text & ", минимум " & b
REM Часть 9.
b = 0
For a = 1 To 9
If aa(b) > aa(a) Then b = a
Next
L1.Text = L1.Text & ", адрес " & b
REM Часть 10.
b = 0
For a = 0 To 9
If aa(a) > 0 Then b = b + 1
Next
L1.Text = L1.Text & ", число положительных " & b
REM Часть 11.
b = 0
For a = 0 To 9
If aa(a) > 5 Then b = b + 1
Next
L1.Text = L1.Text & "; " & b & "."
End Sub