---

Нет, это было выполнение только первого задания из «Уровня 1». В лабораторной работе представлены задания разных уровней сложности.
Ниже представлен код для оставшихся задач из списка.
### Уровень 1
**Задача 2: Сумма 15 случайных чисел из диапазона [-5, 5]**
```vba
Private Sub CommandButton1_Click()
    Dim i As Integer, summ As Integer, randNum As Integer
    Randomize
    summ = 0
    For i = 1 To 15
        randNum = Int((5 - (-5) + 1) * Rnd + (-5))
        summ = summ + randNum
    Next i
    Label1.Caption = "Сумма случайных чисел: " & summ
End Sub

```
### Уровень 2 (Примеры)
**Задача 5: Вычисление суммы \sum_{n=1}^{10} \frac{1}{n+1}**
```vba
Private Sub CommandButton1_Click()
    Dim n As Integer
    Dim summ As Double
    summ = 0
    For n = 1 To 10
        summ = summ + 1 / (n + 1)
    Next n
    Label1.Caption = "Сумма: " & summ
End Sub

```
**Задача 6: Факториал числа n (n! = 1 \cdot 2 \cdot ... \cdot n)**
```vba
Private Sub CommandButton1_Click()
    Dim n As Integer, i As Integer, fact As Long
    n = InputBox("Введите число n:")
    fact = 1
    For i = 1 To n
        fact = fact * i
    Next i
    Label1.Caption = "Факториал " & n & " равен " & fact
End Sub

```
### Уровень 3 (Пример)
**Задача 1: Сортировка массива (метод пузырька)**
```vba
Sub SortArray()
    Dim m(1 To 25) As Integer, i As Integer, j As Integer, temp As Integer
    ' ... (заполнение массива m) ...
    For i = 1 To 24
        For j = i + 1 To 25
            If m(i) > m(j) Then
                temp = m(i)
                m(i) = m(j)
                m(j) = temp
            End If
        Next j
    Next i
End Sub

```
Вам помочь с решением остальных специфических задач или разобрать ответы на контрольные вопросы в конце листа?