Написать процедуру - функцию - VB

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

Написать процедуру - функцию, возвращающее значение функции . Используйте созданную вами функцию в приложении для вычисления суммы чисел (количество чисел n и основание а указывается пользователем)

Решение задачи: «Написать процедуру - функцию»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Form_Load()
    MsgBox Calc(5, 4)
End Sub
Private Function Calc(ByVal n As Long, ByVal a As Double) As Double
    If n >= 0 Then Calc = 1 / (a ^ n) + Calc(n - 1, a)
End Function

Оцени полезность:

6 голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы