БЭЙСИК VBA

[Альвина]

3 задачи во вложении по бейсику.
Первую решила, но не знаю, верно ли, проверьте пожалуйста!
остальные 2 задачи не получается решить

Sub Задача_1()
z = (0.3 * Sin(x) ^ 2) / (10 + Sin((y) ^ 2) ^ 2)
x = 25.4
y = 1.3 * 10 ^ 5
Debug.Print z, x, y
For x = 0.1 To 1 Step 0.1
z = z + 0.1
Debug.Print z
Next
End Sub

Ответ:
0 25.4 130000
0,1
0,2
0,3
0,4
0,5
0,6
0,7
0,8
0,9
1