---

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim result As String
    
    ' Начинаем с первого натурального числа
    i = 1 
    result = "Квадраты чисел <= 10:" & vbCrLf
    
    ' Используем цикл Do...Loop с предусловием
    Do While i <= 10
        Dim square As Integer
        square = i * i
        
        ' Формируем строку с результатами
        result = result & i & "^2 = " & square & vbCrLf
        
        ' Увеличиваем счетчик (шаг цикла)
        i = i + 1
    Loop
    
    ' Выводим результат в окно сообщения
    MsgBox result
End Sub