Вычислить значения функции - VB (63049)

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

Помогите plz решить 2 задания: 1) Вычислить значения функции: x^2 z = -------------------- для всех x, удовлетворяющих 2*x + sin(x) - 2*lg(x^2) условию 5,6<x<10. где х = 3*а*lg(a) - a*sin(a); a принадлежит [1;13] c шагом 0,59. Все значения х, не удовлетворяющие условию, просуммировать. 2) Вычислить значения функции z = tg(ln(abs(x-3))) - 8,6*x для х принадлежащем [-8,3;15,6] с шагом 2,1. Вывести на печать все положительные значения z, отрицательные значения просуммировать и подсчитать их количество

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

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

                            Private Sub Command1_Click()
Dim a, x, z(), sum
Dim i
k = 0
For a = 1 To 13 Step 0.59
x = 3 * a * Log(a) - a * Sin(a)
If x < 10 And x > 5.6 Then
k = k + 1
ReDim Preserve z(1 To k)
z(k) = (x ^ 2) / (2 * x + Sin(x) - 2 * Log(x ^ 2))
Else
sum = sum + x
End If
Next a
sss = ""
For i = 1 To k
sss = sss & z(i) & " ; "
Next i
MsgBox sum
MsgBox sss
End Sub
                        