Private Sub Command1_Click()
D.im a As String
a = "123456789"
F.or i = 1 To 5
Print Space(6 - i); Mid$(a, ( 8 ) , 2 * i - 1)
Next i
E.nd Sub
程序运行后,单击命令按钮,窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。