---

Sub пример1()
Dim r As Integer, q As Integer, s As Double
MsgBox "моя первая программа"
r = InputBox("Введите превое число")
q = InputBox("Введите второе  число")
s = (r + q) / 2
MsgBox "Среднее арифмитичсекое=" & s
End Sub

Sub ShowMessages()
MsgBox "Моя первая программа", vbOKCancel, "Сайдаминхонов Саид"
MsgBox "добро пожаловать", vbYesNo, "Сайдаминхонов Саид"
MsgBox "Уверен?", vbYesNoCancel, "Сайдаминхонов Саид"
End Sub
Sub Zadanie9()
    Dim r, q, s As Double
    r = InputBox("Введите радиус:")
    H = InputBox("Введите Высоту:")
    s = 2 * 3.14159 * r * q
    MsgBox "площадь боковой поверхности = " & s
End Sub