---

' Задача 31: Степени двойки через MsgBox
Sub Task31_Msg()
    Dim i As Long
    Dim result As String
    result = "Степени двойки:" & vbCrLf
    
    For i = 0 To 10
        result = result & "2 ^ " & i & " = " & (2 ^ i) & vbCrLf
    Next i
    
    MsgBox result
End Sub

' Задача 11: Таблица функции через MsgBox
Sub Task11_Msg()
    Dim i As Integer
    Dim x As Double, y As Double
    Dim result As String
    result = "Таблица функции y = 2x^2 - 5x - 8:" & vbCrLf
    
    ' Чтобы окно не было слишком огромным, выведем только часть значений
    For i = 0 To 10 
        x = -4 + (i * 0.8) ' Увеличил шаг для наглядности в окне
        y = 2 * (x ^ 2) - 5 * x - 8
        result = result & "x=" & Round(x, 1) & "  y=" & Round(y, 2) & vbCrLf
    Next i
    
    MsgBox result
End Sub

' Задача 21: Расписание через MsgBox
Sub Task21_Msg()
    Dim t As Date
    Dim result As String
    result = "Расписание автобуса (шаг 45 мин):" & vbCrLf
    t = TimeValue("06:00:00")
    
    Do While t <= TimeValue("12:00:00") ' Выведем до обеда, чтобы влезло в экран
        result = result & Format(t, "HH:mm") & " | "
        t = DateAdd("n", 45, t)
    Loop
    
    MsgBox result & " и так далее..."
End Sub