求教一道vb编程题

VB6新建一工程，拖一个的按钮控件。

进入代码区，删除所有代码后，粘贴以下代码即可。

Option Explicit
Dim X1() As Double '记录输入的数据
Dim L As Long
Dim Y1 As Long '记录输入的负数个数

Private Sub Command1_Click()
Dim T1 As String, X2 As Long
Cls
Y1 = 0
L = 0
Do
T1 = InputBox("", "", 0)
If T1 = "" Then
   MsgBox "你点击了取消按钮，请重新输入数据"
Else
   X2 = Val(T1)
   If X2 = 0 Then
        Exit Do
    Else
       ReDim Preserve X1(L)
       X1(L) = X2
       If L > 1 And L Mod 5 = 0 Then
       Print
       End If
       If X2 < 0 Then Y1 = Y1 + 1
       Print X1(L);
        L = L + 1
    End If
   
End If
Loop While X2 <> 0
Print
Print "共有" & L & "个数。其中正数个数有：" & L - Y1 & "   负数个数有：" & Y1
End Sub

运行测试图如下：

这个要用到redim preserve
明天做吧