Эээ... Ну, скажем... Короче, присвоение значения функции...

[GSerg]

Как известно, имя функции можно юзать внутри тела функции в качестве переменной. Если это имя стоит в выражении слева, то компилятор однозначно понимает, что это мы хотим достучаться до этой самой переменной, а вовсе не вызываем функцию рекурсивно.
Если же имя стоит в выражении справа, то:

• если у функции есть параметры, а мы их не указываем, то происходит достукивание до переменной
• если параметры есть, и мы их указываем, происходит рекурсия
• если параметров нет, то рекурсия происходит всегда!

Спрашивается, как достучаться до переменной-имени функции, если оно стоит в выражении справа, а у функции нет параметров? До сих пор приходилось заводить дополнительную переменную, и в конце присваивать её имени, но не нравится мне это как-то…

[sanches]

ну ты бы код высветил на обозрение, а то вот так на словах как-то не так ..

[alibek]

А код-то зачем?

GSerg, мне кажется тут ничего не сделаешь. И так VB много вольностей позволяет (не в каждом языке можно использовать имя функции слева, не то что справа). То бишь дополнительная переменная -- это удел VBшников
Я например для каждой более-менее сложной функции сразу объявляю переменную (ret или res), что-бы потом не мучаться соблазном от нее избавиться.

[GSerg]

И на том спасибо.
В смысле, что разрешил мои сомнения

[Vi]

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
  Dim x As Long, y As Long
  x = FuncWithoutRecursion()
  y = FuncWithRecursion()
  Debug.Print x, y
End Sub

Public Function FuncWithoutRecursion() As Long
  FuncWithoutRecursion = 1
  FuncWithoutRecursion = 2 * FuncWithoutRecursion + 1
End Function

Public Function FuncWithRecursion() As Long
  Static iRepeater As Long
  FuncWithRecursion = 1
  iRepeater = iRepeater + 1
  If iRepeater < 3 Then
    FuncWithRecursion = 2 * FuncWithRecursion() + 1
  End If
End Function


Результат - 3 и 7.
В VB6 FuncWithoutRecursion не вызывается рекурсивно.