Исследовать изменение значений поверхности и объема шарового сегмента - VB

Формулировка задачи:

Ребят, всем привет, помогите с циклом, мне нужно разработать технологию, позволяющую исследовать изменение значений поверхности и объема шарового сегмента при изменении высоты шарового сегмента от начального значение h0 до конечного hк с шагом deltah и радиуса шара от начального значения R0 до конечного Rк с шагом delta R Внешний и внутренний циклы - с предусловием Для Отладки принять h0=50, hк=100, deltah=10, R0=60, Rк=70, deltaR=5 И вторую: Разработать информационную технологию вычисления приближенного значения корня уравнения с точностью E. Начальное приближение к корню принять равным 0,6 x-(1-0,4x)^(1/2)=0 У меня есть похожая работа, я ее прикрепил

Решение задачи: «Исследовать изменение значений поверхности и объема шарового сегмента»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    Dim S As Single, V As Single, mes As String
    Dim h As Single, h0 As Single, hk As Single, dh As Single
    Dim r As Single, r0 As Single, rk As Single, dr As Single
    Const PI As Single = 3.14
    
    h0 = 50
    hk = 100
    dh = 10
    r0 = 60
    rk = 70
    dr = 5
    
    h = h0
    Do While h <= hk
           r = r0
           Do While r <= rk
                  '''''''''''''''''''''
                  S = 2 * PI * r * h
                  V = 2 * PI * h ^ 2 * (r - h / 3)
                  ''''''''''''''''''''''
                  mes = mes & "h = " & h & vbTab & "r = " & r & vbTab & "S = " & S & vbTab & "V = " & V & vbCrLf
                  r = r + dr
           Loop
           h = h + dh
    Loop
    
    MsgBox mes
End Sub