通常，过程终止后，此过程中的局部变量将立即消失。静态变量可继续存在，并保留其最新值。您的代码下次调用此过程时，此变量将不会重新初始化，仍然存储已赋给它的最新值。静态变量在定义它的类或模块的生存期内继续存在。

规则

行为

下面的示例说明 Static 的用法。

Public Class Describer

    Public Function NextNumber() As Integer

        Static Number As Integer

        Number += 1
        Return Number

    End Function

End Class

Dim Desc As New Describer

MsgBox(Desc.NextNumber) '1
MsgBox(Desc.NextNumber) '2
MsgBox(Desc.NextNumber) '3

Static 修饰符可用于下面的上下文中：

Dim 语句 (Visual Basic)

但是不可以放在function，sub中进行修饰

那么在msdn中对于shared是怎么解释的呢？请看下面

指定一个或多个声明的编程元素与一个类或结构在整体上相关联，而不是与类或结构的特定实例关联。

 备注

何时使用 Shared

共享类或结构的成员使每个实例都可以使用该成员，而不是采用非共享模式，在非共享模式下，每个实例都需要有自己的副本。例如，如果一个变量的值应用于整个应用程序，这点很有用。如果声明该变量为 Shared，那么所有实例会访问相同的存储位置，而如果一个实例更改了变量值，所有实例都会访问更新后的值。

Shared 修饰符可用于下面的上下文中：

Dim 语句

Event 语句

Function 语句

运算符语句

Property 语句

Sub 语句

Public Class Describer

    Shared Number As Integer

    Public Function NextNumber() As Integer

        Number += 1
        Return Number

    End Function

End Class

Dim Desc1 As New Describer
Dim Desc2 As New Describer

MsgBox(Desc1.NextNumber) '1
MsgBox(Desc1.NextNumber) '2
MsgBox(Desc1.NextNumber) '3

MsgBox(Desc2.NextNumber) '4
MsgBox(Desc2.NextNumber) '5
MsgBox(Desc2.NextNumber) '6