Public Statement

ΠžΠΏΡ€Π΅Π΄Π΅Π»ΡΠ΅Ρ‚ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ ΠΈΠ»ΠΈ массив Π½Π° ΡƒΡ€ΠΎΠ²Π½Π΅ модуля (Ρ‚ΠΎ Π΅ΡΡ‚ΡŒ Π½Π΅ Π²Π½ΡƒΡ‚Ρ€ΠΈ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹ ΠΈΠ»ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ), Ρ‚Π°ΠΊ Ρ‡Ρ‚ΠΎ пСрСмСнная ΠΈΠ»ΠΈ массив Π²ΠΈΠ΄Π½Ρ‹ Π²ΠΎ всСх Π±ΠΈΠ±Π»ΠΈΠΎΡ‚Π΅ΠΊΠ°Ρ… ΠΈ модулях.

Бинтаксис

Public Имя_ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ[(Начало To ΠšΠΎΠ½Π΅Ρ†)] [As Π’ΠΈΠΏ_ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ][, Имя_ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ2[(Начало To ΠšΠΎΠ½Π΅Ρ†)] [As Π’ΠΈΠΏ_ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ][,...]]

ΠŸΡ€ΠΈΠΌΠ΅Ρ€:

Public iPublicVar As Integer

Sub ExamplePublic

    iPublicVar = iPublicVar + 1

    MsgBox iPublicVar

End Sub