составить программу и алгоритм на языке vba!

[Маришка бирюкова]

офис! 2007!
Последовательность Хэмминга образуют натуральные числа, не имеющие других простых делителей, кроме 2, 3 и 5. Найти N-й элемент;
на языке vba

[Маришка бирюкова]

помогите решить очень срочно надо

[doober]

такой алгоритм нашару писать не буду.Нет никаких наработок и мыслей у вас.Контакты в профиле.

[Маришка бирюкова]

Sub Макрос1()
a = InputBox("Введите конечное значение")
s = 0
For i = 1 To a

b = i Mod 2
If b <> 0 Then GoTo n1
s = s + i
GoTo n3

n1:
b = i Mod 3
If b <> 0 Then GoTo n2
s = s + i
GoTo n3
n2:
b = i Mod 5
If b <> 0 Then GoTo n3
s = s + i

n3:
Next i
MsgBox "Сумма =" & s

End Sub

[Маришка бирюкова]

Вот это есть!ну это что бы найти сумму n!и то кажется не правильно!не могли бы вы посмотреть

[Маришка бирюкова]

Sub Макрос1()
a = InputBox("Введите конечное значение")
s = 0
For i = 1 To a

b = i Mod 2
If b <> 0 Then GoTo n1
s = s + i
GoTo n3

n1:
b = i Mod 3
If b <> 0 Then GoTo n2
s = s + i
GoTo n3
n2:
b = i Mod 5
If b <> 0 Then GoTo n3
s = s + i

n3:
Next i
MsgBox "Сумма =" & s

End Sub

[doober]

формула для расчета

f(x,y,z) = (2^x)*(3^y)*(5^z) = exp( Kx*x + Ky*y + Kz*z) = exp( d(x,y,z) )

где x,y,z - натуральные числа, Kx = Log(2), Ky = Log(3), Kz = Log(5),