Common
变量声明和范围修饰符
声明代码模块之间共享的变量。匹配的Common语句必须出现在使用该变量的所有其他代码模块中。
Shared可选参数使变量为全局，以便它可以在Sub和Function以及模块级使用。Common数组始终是可变长度的，并且必须使用空参数列表()定义，并且其维度将在稍后的Dim或ReDim语句中设置。
输出：
语法
说明
声明代码模块之间共享的变量。匹配的Common语句必须出现在使用该变量的所有其他代码模块中。
Shared可选参数使变量为全局，以便它可以在Sub和Function以及模块级使用。Common数组始终是可变长度的，并且必须使用空参数列表()定义，并且其维度将在稍后的Dim或ReDim语句中设置。
例子
''common1.bas
Declare Sub initme()
Common Shared foo() As Double
ReDim foo(0 To 2) As Double
initme()
Print foo(0), foo(1), foo(2)
Declare Sub initme()
Common Shared foo() As Double
ReDim foo(0 To 2) As Double
initme()
Print foo(0), foo(1), foo(2)
''common2.bas
Common Shared foo() As Double
Sub initme()
foo(0) = 4*Atn(1)
foo(1) = foo(0)/3
foo(2) = foo(1)*2
End Sub
Common Shared foo() As Double
Sub initme()
foo(0) = 4*Atn(1)
foo(1) = foo(0)/3
foo(2) = foo(1)*2
End Sub
输出：
3.141592653589793 1.047197551196598 2.094395102393195
与QB差别
- 数组将始终是可变长度的。
- blockname 不需要删除，因为声明的顺序不再重要，只有符号名称。
参考