这样叫什么？给变量的变量名赋值？

[zgjzgjkyo]

在模块里定义了一堆随机公共数组如：
Public ABC(8) As Double
Public DEF(8) As Double
Public safX(8) As Double
.
.
.
.
定义很多很多公共数组.



然后再在模块里造一个子程序。
Public Sub FontTestSet(aaa As Double, bbb As Double)
aaa(bbb)=Form1.Text1.text
End Sub
然后在窗体的某处:
if XX=XX then
call FontTestSet("ABC",2)
elseif XX=XX then
call FontTestSet("DEF",2)
elseif XX=XX then
call FontTestSet("safX",2)
.
.
.
据据上面很多很多公共数组来elseif
end if

不过这样做好象不行，到底要怎么做才行？
其实我就是想在“模块”的子程序里响应窗体 if XX=XX then 的公共数值变量赋值。

[xrongzhen]

[Quote=引用楼主 zgjzgjkyo 的帖子:]
在模块里定义了一堆随机公共数组如：
Public ABC(8) As Double
Public DEF(8) As Double
Public safX(8) As Double
.
.
.
.
定义很多很多公共数组.


然后再在模块里造一个子程序。
Public Sub FontTestSet(aaa As Double, bbb As Double)
aaa(bbb)=Form1.Text1.text
End Sub
然后在窗体的某处:
if XX=XX then
call FontTestSet("ABC",2)
elseif XX=XX then
call FontTestSet("DEF",2) …
[/Quote]

'把这个放到窗体里
Public Sub FontTestSet(aaa As Double, bbb As Double) '这里aaa是一个数，下面当数组用了，改成aaa() As Double
 '这里用的时候，数组要先为aaa分配存储控件ReDim aaa(bbb)
aaa(bbb)=Form1.Text1.text
End Sub 

[xrongzhen]

更正：
是分配存储空间ReDim

[神马都能聊]

[Quote=引用 1 楼 xrongzhen 的回复:]
…
[/Quote]
sub/function 里是不可以传递aaa()的

楼主既然在模块定义公共的了就没必要传递了,注意别串了数据

[SYSSZ]

存在一些错误:
aaa As Double, bbb As Double;那么aaa(bbb)=Form1.Text1.text 是什么?
既然Public Sub FontTestSet(aaa As Double, bbb As Double)

call FontTestSet("ABC",2) ,aaa传的参数又是字串"ABC"?而ABC(8)还是数组,
要将Public Sub FontTestSet(aaa As Double, bbb As Double)
改为Public Sub FontTestSet(aaa() As Double, bbb As Double)
要将 call FontTestSet("ABC",2)
改为call FontTestSet(ABC,2)

思路可以实现