Question

VB题:如何利用for循环打出可以利用text文档控制大小的星号菱形？

Answer 1

Private Sub Command1_Click()

  Open "d:\0.txt" For Input As #1

  Dim n As Integer

  Input #1, n

  For i = 1 To n

    For j = 1 To n - i

      Print " ";

    Next j

    For j = 1 To 2 * i - 1

      Print "*";

    Next j

    Print

  Next i

  For i = n - 1 To 1 Step -1

    For j = 1 To n - i

      Print " ";

    Next j

    For j = 1 To 2 * i - 1

      Print "*";

    Next j

    Print

  Next i

End Sub