關於vb的圖案(很像兩座山)

Question

如下圖
＊　　　　　　　　＊
＊＊　　　　　　＊＊
＊＊＊　　　　＊＊＊
＊＊＊＊　　＊＊＊＊
＊＊＊＊＊＊＊＊＊＊

用ｖｂ的 for......next 喔

Answer 1

Private Sub Form_Activate()

For i = 1 To 5
Print String(i, "*"); Spc((5 - i) * 2); String(i, "*")
Next i

End Sub

Answer 2

Private Sub Form_Click()
　For a = 1 To 5
　　For b = 1 To a
　　　Print "*";
　　Next b
　　　Print Spc(10 - 2 * a);
　　For c = 1 To a
　　　Print "*";
　　Next c
　　　Print
　Next a
End Sub

Answer 3

Private Sub Command1_Click()
Dim I, J
Me.FontName = "細明體"
J = 8
For I = 1 To 5
　　S = String(10, "*")
　　Mid$(S, I + 1) = String$(J, " ")
　　J = J - 2
　　Print S
Next
End Sub