Вычислить сумму ряда - VB

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

Я надеюсь, что Вы мне сможете помочь. Иначе я в большой беде. Пожалуйста, очень прошу откликнуться тех, кто может помочь с решением задачи. Необходимо вычислить сумму ряда в Visual Basic. Сумма: S=1+3x/1!+(3x)^(2)/2!+...+(3x)^(n)/n! Диапазон изменения аргумента: 0.1=<x=<1 При n = 15 Функция y: y=e^(3x) Заранее огромное спасибо за внимание и надеюсь на помощь.

Решение задачи: «Вычислить сумму ряда»

textual
                            Листинг программы 
                        

                            Function f(x As Double, n As Integer) As Double
Dim s As Double
Dim a As Double
 
    s = 1
    a = 1
    
    For i% = 1 To n
        a = a * 3 * x / CDbl(i%)
        s = s + a
    Next i%
   
    f = s
 
End Function
 
 
Sub Test()
 
    For x# = 0.1 To 1 Step 0.05
        f1# = Exp(3 * x)
        f2# = f(x, 15)
        d# = Abs(f1# - f2#)
        Debug.Print x#, f1#, f2#, d#
    Next x#
 
End Sub
                        