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()中不停的添加数据。请稍微懂的人带一带，我自己研究不透。

Private Sub Command1_Click()
Dim sz() As Integer              '定义数组，位置错，应该放在 所有过程之前。
x = UBound(sz, 1)                '取数组下标。错。不需要第二个参数。
sz(x) = Text1.Text               '给值
x = x + 1                        '自加1
ReDim Preserve sz(x)             '重定义大小，保留原数据。位置错，与上面一行应该放在 本过程的最开头。
End Sub

Private Sub Form_Load()
x = 0                      '置数据个数为 0
End Sub

-------------------------
修正后的代码如下。未经测试。
dim x as Integer                '定义为全局变量
Dim sz() As Integer

Private Sub Form_Load()
x=0
End Sub

Private Sub Command1_Click()
x=x+1
ReDim Preserve sz(x)  
sz(x) = Text1.Text
End Sub

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

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