vb中能不能再过程中定义全局的数组

Question

可以先定义Public Var As Variant

Answer 1

用ReDim 语句为动态数组变量重新分配存储空间。

Answer 2

把Public AvgData() As LineDataType写到模块里.

Answer 3

这个我知道，我是想根据一个标志位，如果flag = true的时候生成一个数组

Answer 4

是限的办法：不用全局，那么怎么传出呢？这样做：
Private Sub AddAveVal(v_DataTime As String, v_Val As Long，AvgData as Variant)定义一个字串，然后将变量传给字串，
Dim StrAvgData as String
    If len (StrAvgData )=0 then
      StrAvgData = StrAvgData & ","  
    End if
    StrAvgData = StrAvgData & Cstr(YourVar)
    AvgData =Array(Split(StrAvgData))
End Sub这样你在另一函数中即可以通过给本函数传递第三个变体参数，（地址传参），从而能获取这一数组了
如：
Dim P as Variant AddAveValv_DataTime, v_Val，P 此时你可以读出这一数组： dim k as integer
 k=Ubound(P)
 
 For i= 0 to k
   From.Print p(i)
 next i  

Answer 5

上面 
Split 的和二个参数应是 ","