填空题

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