[求助]有关模块中数组的问题
..................................Public Function shuzhu(ByVal jingcheng As String)
Dim i As Integer
ReDim q(1 To i)
q(i) = jingcheng
End Function
模块中有这样一数组,我想在窗体上打印出这个数组
下面这个是在窗体上的
Private Sub Command1_Click()
Dim c As Integer
For c = 1 To i
Print q(c)
Next c
End Sub
怎么老是说我没声名
请问这样的思路有没错?
是不是上面有错有错请问这个怎么改?
[此贴子已经被作者于2007-9-26 16:22:21编辑过]