填空题

在窗体上画一个名称为Commmld1的命令按钮，编写如下事件过程
Private Sub Command1 Click()
Dim a As String
a=______
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
请填空。