..................................
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编辑过]

首先数组q有没有在模块中PUBLIC A() AS STRING

然后
Private Sub Command1_Click()
Dim c As Integer
For c = LBOUND(Q) To UBOUND(Q)
Print q(c)
Next c
End Sub

学习了!谢谢