REM A.

Исходные данные на форме
Dim aa As Integer, ab As Integer, ac As Integer
REM B. Временные переменные
Dim a As Integer, b As Integer, c As Integer
Dim d As String
Dim g As Single
REM C. Ввод исходных данных
aa = Int(Val(T1.Text))
ab = Int(Val(T2.Text))
ac = Int(Val(T3.Text))
REM 12.2.1.1
a = aa + ab + ac
L3.Text = "1. " & a
REM 12.4.3.2
a = 2 * aa + 3 * ab
L3.Text = L3.Text & Chr(10) & "2. " & a
REM 12.5.4.3
a = 4 * aa
L3.Text = L3.Text & Chr(10) & "3. " & a
REM 13.3.5.4
a = aa
If ab > a Then a = ab
L3.Text = L3.Text & Chr(10) & "4. " & a
REM 15.4.6.5
a = 0
b = aa
If b > 1000 Then b = 1000
For c = 1 To b
a = a + c
Next
L3.Text = L3.Text & Chr(10) & "5. Сумма " & a
REM 17.1.7.6
a = aa
If a < ab Then a = ab
If a < ac Then a = ac
L3.Text = L3.Text & Chr(10) & "6. Максимум " & a
REM 17.2.8.7
a = 0
b = aa
If b > 1000 Then b = 1000
b = b * 2
For c = 2 To b Step 2
a = a + c
Next
L3.Text = L3.Text & Chr(10) & "7. Сумма " & a
REM 28.1.10.8
a = 0
If aa = 0 Then a = 1
If aa > 0 Then a = 2
L3.Text = L3.Text & Chr(10) & "8. Число корней " & a
REM 29.2.11.9
Select Case aa
Case 5 : d = "Отлично"
Case 4 : d = "Хорошо"
Case 3 : d = "Посредственно"
Case 2 : d = "Плохо"
Case 1 : d = "Очень плохо"
Case Else : d = "Такой оценки не существует"
End Select
L3.Text = L3.Text & Chr(10) & "9. " & d
REM 32.3.12.10
a = 0
If aa = -1 Then a = 1
If aa > -1 Then a = 2
L3.Text = L3.Text & Chr(10) & "10. Число корней " & a
REM 32.4.13.11
Select Case aa
Case Is < 0 : a = -aa
Case Else : a = aa
End Select
L3.Text = L3.Text & Chr(10) & "11. " & a
REM 33.8.15.12
If aa = 0 Then
If ab = 0 Then
d = "Решение - любое число"
Else
d = "Решений нет"
End If
Else
g = -ab / aa
d = "x = " & g
End If
L3.Text = L3.Text & Chr(10) & "12. " & d
REM 33.9.16.13
Select Case aa
Case 2
If ab = 0 Then a = 28 Else a = 29
Case 4, 6, 9, 11 : a = 30
Case Else : a = 31
End Select
L3.Text = L3.Text & Chr(10) & "13. Число дней " & a
REM 33.11.18.14
a = aa Mod 10
a = a * a
a = a Mod 10
L3.Text = L3.Text & Chr(10) & "14. " & a
REM 33.12.19.15
Select Case aa
Case 1 : a = 1
Case 2 : a = 2
Case 3 : a = 3
Case 4 : a = 4
Case 5 : a = 5
Case 6 : a = 1
Case Else : a = 0
End Select
L3.Text = L3.Text & Chr(10) & "15. Число уроков " & a
REM 47.3.51.16
Select Case aa
Case Is < 0 : a = -1
Case 0 : a = 0
Case Else : a = 1
End Select
L3.Text = L3.Text & Chr(10) & "16. sign (" & aa & ") = " & a
REM 49.5.53.17
a = aa
If a > 12 Then a = 12
b = 1
For c = 2 To a
b = b * c
Next
L3.Text = L3.Text & Chr(10) & "17. " & a & "! = " & b
REM 50.7.54.18
a = aa
If a < 0 Then a = -a
If a > 1000 Then a = 1000
b = 0
For c = 1 To a
b = b + a
Next
If aa < 0 Then a = -a
L3.Text = L3.Text & Chr(10) & "18. " & a & "^2 = " & b
REM 52.7.61.19
a = aa Mod 10
b = aa \ 10 Mod 10
L3.Text = L3.Text & Chr(10) & "19. " & a & ", " & b
REM 52.8.62.20
a = aa Mod 10 + aa \ 10 Mod 10 + aa \ 100 Mod 10
L3.Text = L3.Text & Chr(10) & "20. Сумма " & a