Private Sub Command1_Click()
Dim sz() As Integer
x = UBound(sz, 1)
sz(x) = Text1.Text
x = x + 1
ReDim Preserve sz(x)
End Sub

Private Sub Form_Load()
x = 0
End Sub


这是代码，程序有问题，我要的目的就是可以往数组sz()中不停的添加数据。请稍微懂的人带一带，我自己研究不透。

版主，求加个QQ或者微博，我在一边学一边研究，头都大了，实在是不想每个问题都发论坛求解，但是自己看书，又有疑问，所以求师啊！

我正在研究我们公司的一个程序软件，里面的内容太复杂了，问题很多，我百度过，太难找到对应的问题，所以希望版主加个方便联系的QQ或者微博 MSN之类的，我有问题的时候可以求教。谢谢了