y=e^x-ln2x (интервал от 1 до 10) ШАГ 0.5
нужно написать программу в vba excel. СРОЧНО!!!

Sub aaa()    Cells(1, 1) = "x"    Cells(1, 2) = "y"    Dim a(0 To 19, 0 To 1) As Double    For i = 0 To 19        x = 0.5 * i + 1        a(i, 0) = x        a(i, 1) = Exp(x) - Log(2 * x)        Next i    Range("A2:B20") = aEnd SubВставить на лист рабочей книги и запустить