Question

用*号打印一个菱形的VB代码。提示用先打印一个正三角形再打印一个倒置三角形的方法解决！一共11行

最多中间是11*

Answer 1

Private Sub Command1_Click()

  For i = -10 To 10

    Print Tab(2 + Abs(i));

    For j = 1 To 21 - 2 * Abs(i)

      Print "*";

    Next j

    Print

  Next i

End Sub

Answer 2

Private Sub Command1_Click()
Dim i As Integer
For i = -5 To 5
Print Spc(3 + Abs(i)); String(2 * (5 - Abs(i)) + 1, "*")
Next

End Sub