设计一个程序,对给定的n,输出2n-1行2n-1列星号.

Question

如题所述

Answer 1

不知你要什么语言的，下面是VB的：

Private Sub Form_Click()
Dim i As Long, j As Long, n As Long
n = Val(InputBox("请输入n值"))
For i = 1 To 2 * n - 1
    For j = 1 To 2 * n - 1
        Print "*";
    Next j
    Print
Next i
End Sub