Запоминание переменных

[KPEATOP]

У меня вот такая функция:

Function bessk0(X As Double)
Dim p1, p2, p3, p4, p5, p6, p7, Y

p1 = -0.57721566: p2 = 0.4227842: p3 = 0.23069756: p4 = 0.0348859: p5 = 0.00262698: p6 = 0.0001075: p7 = 0.0000074
.............
.............
End Function

То же самое на Фортране:
FUNCTION bessk0(x)
IMPLICIT DOUBLE PRECISION bessk0,x
DOUBLE PRECISION p1,p2,p3,p4,p5,p6,p7,y
SAVE p1,p2,p3,p4,p5,p6,p7
DATA p1,p2,p3,p4,p5,p6,p7/-0.57721566d0,0.42278420d0,0.23069756d0,
*0.3488590d-1,0.262698d-2,0.10750d-3,0.74d-5/
...........
............
END

Обратите внимание на строку Save p1, p2, p3, p4, p5, p6, p7. Я вычитал, что на Фортране, если к этой функции обратиться еще раз, Save запоминает присвоенные величины. Это очень ускоряет процесс выполнения программы. Я хотел узнать, есть ли в Visual Basic что-нибудь подобное?

[alibek]

Что именно?

[Денис]

KPEATOP
Если я правильно понял, то тебе нужен Static

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

Function bessk0(X As Double)
Static p1 As Double, p2 As Double, p3 As Double, p4 As Double, p5 As Double, p6 As Double, p7 As Double, Y  As Double

p1 = -0.57721566: p2 = 0.4227842: p3 = 0.23069756: p4 = 0.0348859: p5 = 0.00262698: p6 = 0.0001075: p7 = 0.0000074
.............
.............
End Function

[alibek]

Нет.

[KPEATOP]

точно!!!!...как это я сразу не просек.....Static же сохраняет переменные.
Спасибо

[Proxy]

Либо Static, либо объявляй их не в теле функции. И то и то сохранит значения переменных на период выполнения.

[Antonariy]

А Const уже не катит?

[Proxy]

если к этой функции обратиться еще раз, Save запоминает присвоенные величины. Это очень ускоряет процесс выполнения программы. Я хотел узнать, есть ли в Visual Basic что-нибудь подобное?

А Const уже не катит?

не катит как видишь. О чём просили - то и дал.
А насчёт примера: там видимо речь идёт о const.