Private Sub Command1_Click()
Dim a As Integer
Dim m, n, i As Integer
Dim Zs() As Variant

Open "d:\1.txt" For Input As #1
n = 0
ReDim Preserve Zs(0)

Do While Not EOF(1)
   Input #1, a
       For i = 1 To 7
       For j = 2 To 8
       If a >= i And a <= j Then n = n + 1
   If n > UBound(Zs) Then ReDim Preserve Zs(n)

Next j
Next i
Loop
For m = LBound(Zs) To UBound(Zs)
Debug.Print Zs(m)
Next m
    
Close #1
End Sub

以上无法运行。
文件1里的数据为单列的大量数字，大小范围大概为1-50。
我想对每一个（i,j）都显示次数，如i=1，j=5的次数为70，及i=1,j=7的次数为65等等，但现在结果却可能是整个循环的次数和。另外显示每一个次数，同时显示出现此次数的i,j值。然后把i，j值转化为等差为1的数组元素，如i=4,j=6转化为a=array（4，5，6）.本人菜鸟一个，请高手帮忙一下，给15分，希望能有注释，谢谢了.