求用vb ，用双重循环，打印一个等腰梯形，等腰三角形和正方形图案，用“*”打印，谢谢！

Private Sub Command1_Click() '等腰三角形

Dim i As Integer, n As Integer

n = 5

For i = 1 To n

    Print Space(n - i) String(2 * i - 1, "*")

Next

End Sub

Private Sub Command2_Click() '正方形

Dim i As Integer, n As Integer

n = 5

For i = 1 To n

    For j = 1 To n

        Print "* "

    Next

    Print

Next

End Sub

Private Sub Command3_Click() '等腰梯形

Dim i As Integer, n As Integer, m As Integer

n = 5

m = 5

For i = 1 To n

    Print Space(n - i) String(2 * i - 1 + m, "*")

Next

End Sub

Private Sub Form_Load()

Me.Show

a = Val(InputBox("请输入梯形上底"))

b = Val(InputBox("请输入梯形下底"))

h = Val(InputBox("请输入梯形的高"))

Print "梯形上底="a

Print "梯形下底="b

Print "梯形高="h

Print "梯形面积="(a + b) * h / 2

End Sub