Question

用VB编写星号组成的等腰三角形

我要的效果如下：
*
**
****
******
********
**********
************
**************
****************

**************
**************
****** ******
***** *****
**** ****
*** ***
** **
* *

Answer 1

放一个command1和Text1
Text1的Alignment设置成3，Multiline设置成true
==========插入以下代码================
Private Sub Command1_Click()
Dim s
For i = 1 To 10
s = s & String(i, "*") & vbCrLf
Next
s = s & vbCrLf
For i = 10 To 1 Step -1
s = s & String(i, "*") & vbCrLf
Next
Text1.Text = s
End Sub