进入洁净区的空气如何净化？

在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As String
a="123456789"
For i=1 To 5
Print Space(6-i);Mid $(a, ______, 2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。