〔求助〕用ＶＢ输出图形

Question

用ＶＢ编写如下图形：
http://029.vip.sina.com/1.png

Answer 1

试试这个链接
http://www.3699.cn/1.png

Answer 2

easy:Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Print Space(10 - i); String(i, StrConv("*", vbWide))
Next
End Sub

Answer 3

Private Function drawText(row As Integer)
    Dim i As Integer
    Dim cx As Single
    Dim cy As Single
    cx = Form1.TextWidth("*")
    cy = Form1.TextHeight("*")
    For i = 0 To row - 1
        Form1.CurrentY = i * cy
        Form1.CurrentX = (cx * row - cx * i) / 2
        Form1.Print String(i + 1, "*")
    Next i
End FunctionPrivate Sub Command1_Click()
  drawText 5
End Sub