用结构体啊
Structure D
<VBFixedArray(4099)> Dim d() As double
Public Sub Initialize()
ReDim buf(4099)
End Sub
End Structure
Dim d as D
d.Initialize()‘初始化
在for循环赋值
呵呵,你用EXCEL,
A1填入 DIM D
B1填入 1
C1填入 as double
然后选定 A1至C1,往下一拖,定义100个就拖到100,然后粘贴到VS,
替换"D"+TAB 为D 《---就是 D后面加上TAB键 替换成D
完成
就会变成
Dim D1 As Double
Dim D2 As Double
Dim D3 As Double
Dim D4 As Double
Dim D5 As Double
Dim D6 As Double
Dim D7 As Double
Dim D8 As Double
Dim D9 As Double
Dim D10 As Double