请问怎样用REDIM定义局部静态数组，或全局数组。

Question

static 为静态，PUBLIC 为全局。你多试试。

Answer 1

可STATIC和REDIM无法出现在同一条语句中呀！

Answer 2

STATIC a() as long
REDIM a(100)

Answer 3

不对吧这样定义出来的还是静态数组呀！虽然它可以使用REDIM。

Answer 4

首先，数组不允许作为Public定义在模块里。ReDim应该用在事件里而不是公共定义。[定义段：QB和VB通用]
Dim sysListValue() As String
Dim sysListCount As Integer[QB主程序应用]
sysListCount=100                   '设置sysListValue有100个元素。
REDIM sysListValue(sysListCount-1) '定义sysListValue。[VB事件应用]
Sub Form1_Load()
  sysListCount=100                   '设置sysListValue有100个元素。
  ReDim sysListValue(sysListCount-1) '定义sysListValue。
End SubRdDim会刷新数组里原有的数据。比如下面的程序：Dim sysListValue() As String
Public sysListCount As IntegerPrivate Sub Form_Load()
  sysListCount = 100
  ReDim sysListValue(sysListCount - 1)
  sysListValue(2) = "AAAAAA"
  sysListCount = 50
  ReDim sysListValue(sysListCount - 1)
  Text1.Text = sysListValue(2) '输出为空的字符。
End Sub

Answer 5

To: KiteGirl(小仙妹) 用Redim Preserve就不會丟失原來的數據了 
Redim Preserve sysListValue(sysListCount - 1)