求用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