задача, взаимоотменяемые условия уравнения

[Sagara2_kis7]

Написать программу для вычисления функции y для значений х, изменяющихся от 0,1 до 1 с шагом 0,1. Значение a ввести с клавиатуры (задать самостоятельно). Значения x, a и y вывести на экран дисплея и построить график зависимости y от x.
ряд:
http://programmersforum.ru/attachmen...1&d=1298915037

немогу разобраться конкретно в том что...условия противоречивые или взаимоотменяемые и как эту взаимоотменяемость ввести в код VBA

вот все что у меня получилось,но вроде бы не правельно...
Sub Пример_6()
x = 0.1
a = InputBox("введите a", "пример 6")
If x > a - 7 Then
M5: y = Sqr(a) + a * Sqr(Log(x) + 10)
End If
Debug.Print "x="; x, "a="; a, "y="; y
x = x + 0.1
If 0 < x > 1 Then GoTo M5
x = 0.1
If x <= a - 7 Then
M6: y = Sqr(x) * Exp(2 * x)
End If
Debug.Print "x="; x, "a="; a, "y="; y
x = x + 0.1
If 0 < x > 1 Then GoTo M6
End Sub

программа дает 20 вариантов ответов,а должен дать 10 в чем ошибка понять не могу....

[gsg]

Может, так попробовать?

Sub test()

a = InputBox("введите a", "пример 6")

For x = 0.1 To 1 Step 0.1
    If x > a - 7 Then
        y = Sqr(a) + a * Sqr(Log(x) + 10)
        Debug.Print "x="; x, "a="; a, "y="; y
    Else
        y = Sqr(x) * Exp(2 * x)
        Debug.Print "x="; x, "a="; a, "y="; y
    End If
Next x

End Sub