怎么做啊，求助

不要沉啊😭😭😭

1

1

1

1

1

1

Dim a(1 To 10) As Integer '设a是一个具有10个元素的一维整型数组，下标从1到10
Dim b() As Integer '数组b的元素个数不确定，定义为动态数组
For i = 1 To 10
a(i) = Val(InputBox("输入第" & i & "个数")) '数组a每个元素的值由用户输入
If a(i) Then '如果是非0数据
k = k + 1 '则令数组b的元素个数加1
ReDim Preserve b(1 To k) '在数组b当中增加一个元素
b(k) = a(i) '把数组a的非0数据按照原来的次序存入数组b中
End If
Next i
For i = 1 To k
Print b(i); '输出数组b各元素的值
Next i