Public Statement

рдЖрдпрд╛рдорд┐рдХрд╣рд░реВ рдЪрд▓ рд╡рд╛ рдПрд░реЗ рдореЛрдбреНрдпреБрд▓ рд╕реНрддрд░рдорд╛(рддрд┐рдиреАрд╣рд░реВ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рд╡рд╛ рдкреНрд░рдХрд╛рд░реНрдпрдорд╛ рд╣реБрдБрджреИрдирдиреН)рд╣реБрдиреНрдЫрдиреН рддреНрдпрд╕реИрд▓реЗ рдЪрд▓ рд░ рдПрд░реЗ рд╕рдмреИ рд▓рд╛рдЗрдмреНрд░реЗрд░реАрд╣рд░реВ рд░ рдореЛрдбреНрдпреБрд▓рд╣рд░реВрдорд╛ рд╡реИрдз рд╣реБрдиреНрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рд╕рд╛рд░реНрд╡рдЬрдирд┐рдХ VarName[(рд╕реБрд░реБ рджреЗрдЦрд┐ рдЕрдиреНрддреНрдп)] [As VarType][, VarNameреи[(рд╕реБрд░реБ рджреЗрдЦрд┐ рдЕрдиреНрддреНрдп)] [As VarType][,...]]

рдЙрджрд╛рд╣рд░рдг:


Public iPublicVar As Integer
Sub ExamplePublic
    iPublicVar = iPublicVar + 1
    MsgBox iPublicVar
End Sub

Please support us!