【文件属性】：
文件名称：图形的输出
文件大小：508KB
文件格式：EXE
更新时间：2015-11-08 16:14:30
倒三角形
Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("请输入行数："))
For i = 1 To n
Picture1.Print Tab(i); String((n - i) * 2 + 1, "$"); Space(2); String(i * 2 - 1, "$")
Next
End Sub