Напишите математическую модель, у меня не получается - VB

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

Заполнить одномерный массив значениями функции alpha=(e)^(x) + ctg(lnx), при изменении x от 12 до 22 c шагом 2.

Private Sub Command1_Click()
Dim A() As Double, i As Integer, N As Integer, x As Single, x0 As Single, xk As Single, dx As Single
x1 = InputBox("Введите x0")
xk = InputBox("Введите xk")
dx = InputBox("Введите dx")
Print "x1 = " & x1 & ", xk = " & xk & ", dx = " & dx
N = (xk - x1) / dx + 1
ReDim A(1 To N)
x = x1
For i = 1 To N
A(i) = Exp(x) + (1 / Tan(Log(x)))
x = x + dx
Next
Print "Заполненный массив:"
For i = 1 To N
Print Format(A(i), "0"); " ";
Next
End Sub

Решение задачи: «Напишите математическую модель, у меня не получается»

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

                            Private Sub Command1_Click()
    Dim A() As Double, i As Integer, xk As Single, dx As Single, X1
    X1 = InputBox("Введите x0", , 12)
    xk = InputBox("Введите xk", , 22)
    dx = InputBox("Введите dx", , 2)
    Print "x1 = " & X1 & ", xk = " & xk & ", dx = " & dx
    
    ReDim A(X1 To xk)
    
    For i = X1 To xk Step dx
        A(i) = Exp(i) + (1 / Tan(Log(i)))
    Next
    
    Print "Заполненный массив:"
    For i = X1 To xk Step dx
    Print Format(A(i), "0"); "   ";
    Next
End Sub
                        