Информатика. Основы программирования на VISUAL BASIC 6.0. Индришенок В.И - 11 стр.

                               13

      После вызова процедуры ByValue изменится только значе-
ние переменной x, а переменная y останется без изменений.
П р и м е р ы определения областей видимости переменных:
A) З а к р ы т ы е п е р е м е н н ы е л о к а л ь н о г о т и п а
      Sub Func1()As Integer
            Dim i, S As Integer
                  For i=1 To 10
                         S=S+i
                  Next i
            Func1=S
      End Function
      В данном случае после выхода из подпрограммы Func1=55, а
переменные i и S теряют свои значения (при входе в подпрограмму
их начальные значения нулевые). Имена i и S могут использоваться
в других частях программы для обозначения иных величин.
B) З а к р ы т ы е п е р е м е н н ы е S t a t i c
      Sub Func2()As Integer
            Dim i As Integer
            Static S As Integer
                  For i=1 To 10
                         S=S+i
                  Next i
            Func2=S
      End Function
      В данном случае после выхода из подпрограммы Func2 пе-
ременная S сохраняет свое значение до следующего обращения к
ней. После первого вызова значение функции Func2 будет 55,
после второго – 110 и т.д., однако в этом случае другие части
программы не могут изменить значение S.
C) О т к р ы т ы е п е р е м е н н ы е Private и Public
      Private S As Integer
      Sub Func3()As Integer
            Dim i As Integer
                  For i=1 To 10
                         S=S+i
                  Next i
            Func3=S
      End Function