张志晨：有多种方法。一是：Private Sub Command1_Click()Print "*
*"Print "**
**"Print "******"Print "********"Print "******"Print "**
**"Print "*
*"End Sub二是： Private Sub Command2_Click()For m = 1 To 4
For i = 1 To m
Print Tab(i); "*";
Next
i = 8 - 2 * m + 1
For j = i...
