QUESTÃO 1 - LISTA 1 SEGUNDO ESTÁGIO ICC

Public Sub Q1_L1()
'LOCAIS DE MEMÓRIA
Dim X As Double, Y As Double, LOG10 As Double
Dim LINHA As Integer
'CÁLCULOS
LINHA = 2
For X = 0.5 To 5# Step 0.25
    LOG10 = Log(X) / Log(10)
    Y = 1 / X - 4.3 * LOG10 + X ^ 4
    Cells(LINHA, 1) = X
    Cells(LINHA, 2) = Y
    LINHA = LINHA + 1
Next X
End Sub