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
REM B. Исходные данные (массив)
Dim aa(10, 10) As Integer REM Массив со случайными данными
REM C. Генерация данных в массиве
For a = 0 To 9
For b = 0 To 9
aa(a, b) = Int(Rnd() * 11)
Next
Next
REM 40.9.5.1
If T1.Text = "1" Then
L3.Text = "1. "
For a = 1901 To 1999
L3.Text = L3.Text & a & " - 36"
If a Mod 4 = 0 Then
L3.Text = L3.Text & "6"
Else
L3.Text = L3.Text & "5"
End If
L3.Text = L3.Text & " "
Next
End If
REM 41.2.6.2
If T1.Text = "2" Then
L3.Text = "2. "
For a = 1 To 9
For b = 1 To 9
L3.Text = L3.Text & a * b & " "
Next
L3.Text = L3.Text & Chr(10)
Next
End If
REM 101.21.24.3
If T1.Text = "3" Then
L3.Text = "" REM Выводим таблицу на экран
For a = 0 To 9
For b = 0 To 9
L3.Text = L3.Text & aa(a, b) & " "
Next
L3.Text = L3.Text & Chr(10)
Next
c = aa(0, 0) REM Искомый максимум
For a = 0 To 9
d = aa(a, 0) REM Максимум в строке
For b = 0 To 9
If d < aa(a, b) Then d = aa(a, b)
Next
If c > d Or a = 0 Then c = d
Next
L3.Text = L3.Text & Chr(10) & "3. Максимум " & c
End If
REM 102.24.27.4. Напечатайте в порядке возрастания первые 1000 чисел, которые не
REM имеют простых делителей, кроме 2, 3 и 5. (Начало списка: 1, 2, 3, 4, 5, 6, 8, 9, 10,
REM 12, 15, ... .)
If T1.Text = "4" Then
L3.Text = "4. "
For a = 1 To 1000
b = a
Do While b Mod 5 = 0
b = b \ 5
Loop
Do While b Mod 3 = 0
b = b \ 3
Loop
Do While b Mod 2 = 0
b = b \ 2
Loop
If b = 1 Then L3.Text = L3.Text & a & " "
Next
End If
REM 102.28.31.5
If T1.Text = "5" Then
L3.Text = "5. "
For a = 0 To 300
L3.Text = L3.Text & bb(a) & " "
Next
End If
End Sub
Function bb(ByVal a As Integer) As Integer
Dim b As Integer
If a < 1 Then Return 0
If a = 1 Then Return 1
If a Mod 2 = 0 Then Return bb(a \ 2)
b = bb(a \ 2) + bb(a \ 2 + 1)
Return b
End Function