Question

vb在窗体上输出正三角形。用循环的方式怎么做？

* 第一行
***
*****
.......
***************第8行

Answer 1

Private Sub Form_Activate()
For i = 1 To 8
Print Spc(8 - i); String(i * 2 - 1, "*")
Next
End Sub

Answer 2

Private Sub Form_Activate()
Dim i, j, n
n = 8
For i = 1 To n
Print Space(n - i);
For j = 1 To 2 * i - 1
Print "*";
Next
Print
Next
End Sub