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

Private Sub Command1_Click()
Cls
Print
Dim h0 As Single, hk As Single, h As Single, r0 As Single, rk As Single, r As Single,               dh As Single, dr As Single, S As Single, V As Single
h0 = InputBox("Введите начальное значение переменной h")
hk = InputBox("Введите конечное значение перемннной h")
dh = InputBox("Введите значение переменной dh")
r0 = InputBox("Введите начальное значение переменной  r")
rk = InputBox("Введите конечное значение переменной r")
dr = InputBox("Введите значение переменной dr")
Print Spc(4); "Результат вычисления"
For h = h0 To hk Step dh
Print Spc(8); "h=" & Format(h, "#.##")
For r = r0 To rk Step dr
S = 2 * 3.14 * r * h
V = 2*3.14 * h ^ 2 *(R-h/3)
Print Spc(8); "r=" & Format(r, "#.##") & "S=" & Format(S, "#.##") & "V=" &               Format(V, "#.##")
Next
Next
End Sub

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