图形的输出

【文件属性】：

文件名称：图形的输出

文件大小：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