REM A.

Временные переменные
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim g As Single
Dim j As String
REM B. Исходные данные
Dim aa(10) As Integer REM Массив со случайными данными
Dim bb As Integer, bc As Integer REM Исходные числовые данные в полях ввода
REM C. Ввод исходных данных
For a = 0 To 9 REM Заполнение массива случайными числами
aa(a) = Int(Rnd() * 11)
Next
bb = Int(Val(T1.Text))
bc = Int(Val(T2.Text))
REM 43.8.10.1
b = 0 REM Вычисляем среднее арифметическое массива
For a = 0 To 9
b = b + aa(a)
Next
g = b / 10
b = 0
c = 0
d = 0
For a = 0 To 9
If aa(a) < g Then b = b + 1
If aa(a) = g Then c = c + 1
If aa(a) > g Then d = d + 1
Next
L1.Text = "1. " REM Вывод массива
For a = 0 To 9
L1.Text = L1.Text & aa(a) & " "
Next
L1.Text = L1.Text & Chr(10) & "Среднее " & g & ", меньше " & b & ", равно " & c
L1.Text = L1.Text & ", больше " & d
REM 62.4.21.2
a = 0 REM Счётчик числа букв в слове
b = T1.Text.Length - 1 REM Число букв текстового поля T1
j = ""
If T2.Text.Length > 0 Then j = T2.Text.Chars(0) REM Первая буква текстового поля T2
For c = 0 To b
If T1.Text.Chars(c) = j Then a = a + 1
Next
REM c - процентное соотношение буквы в слове
If b < 0 Then c = 0 Else c = a / (b + 1) * 100
L1.Text = L1.Text & Chr(10) & Chr(10) & "2. Число букв " & a
L1.Text = L1.Text & ", процентное соотношение " & c & "%."
REM 70.4.22.3
If bc < 180 Then j = "высота не взята" Else j = "норма выполнена"
L1.Text = L1.Text & Chr(10) & "3. " & T1.Text & " - " & j
REM 77.4.23.4
a = bb
If a < bc Then a = bc
L1.Text = L1.Text & Chr(10) & "4. " & a
REM 101.22.25.5. Постройте алгоритм разложения натуральных чисел на простые множители.
REM В какой форме будут представлены результаты работы этого алгоритма?
a = bb REM a - число, вводимое с клавиатуры
If a < 1 Then a = 1
If a > 1000000000 Then a = 1000000000
L1.Text = L1.Text & Chr(10) & "5. Разложение на множители " & a & ": "
b = 2 REM b - число, которое проверяется, является ли оно делителем числа c
c = a REM c - число, для которого ищутся делители
Do While b < c
If c Mod b = 0 Then
L1.Text = L1.Text & b & " " REM Выводим очередной множитель
c = c / b
Else
If b * b > c Then Exit Do
b = b + 1
End If
Loop
L1.Text = L1.Text & c
REM 101.23.26.6. Натуральное число называют совершенным, если оно равно сумме всех
REM своих делителей, не считая его самого (например, 6 = 1 + 2 + 3 - совершенное
REM число). Напишите алгоритм, проверяющий, является ли заданное число совершенным.
a = bb REM a - число, вводимое с клавиатуры
If a < 2 Then a = 2
c = 0 REM с - сумма делителей введённого числа
L1.Text = L1.Text & Chr(10) & Chr(10) & "6. " & a & ":"
For b = 1 To a - 1 REM b - проверяемый делитель
If a Mod b = 0 Then
c = c + b
L1.Text = L1.Text & " " & b
End If
Next
L1.Text = L1.Text & Chr(10)
If c = a Then
L1.Text = L1.Text & "Является."
Else
L1.Text = L1.Text & "Не является."
End If