Question

如何用VB实现星号的奇数排列，具体如下：

第一行输出1个*，第二行输出***，第三行输出*****，第四行输出*******，成等腰三角形，用循环，不胜感激！

Answer 1

 
for i=1 to 4
    s=""
    for j=1 to 2*i-1
        s=s & "*"
    next
    s=space(4-i) & s
    print s
next

        

Answer 2

Private Sub Command1_Click()
   Const LINESUM As Long = 6   '输出行数
   Dim i As Long
   Me.Cls
   For i = 1 To LINESUM
      Me.Print Space$(LINESUM - i) & String$(i + i - 1, "*")
   Next
End Sub

Answer 3

Private Sub Form_Click()

  For i = 1 To 4

    Print Space(4 - i); String(i + i - 1, "*")

  Next i

End Sub

Answer 4

Private Sub Command1_Click()
dim i as integer
dim j as integer
dim k as integer
for i=1 to 4
for j=1 to 4-i
print" ";
next j
for k=1 to 2*i-1
print"*";
next k
print
next i
End Sub