Question

用VB编写星号组成的倒三角形（双重循环）

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

Answer 1

for i=7 to 1
str=""
for j=1 to j
str=space(7-i) & str & "*"
nxet j
form1.print str
next i

Answer 2

Private Sub Form_Click()
For i = 1 To 6
Print Tab(12 + i);
For j = 1 To 12 - (2 * i - 1)
Print "*";
Next j
Next i