Question

新手求助，vb用for循环输出一个由"*"符号组成的菱形图案求代码

Answer 1

Private Sub Command1_Click()

n = CInt(InputBox("N="))

Print "N="; n

For i = 1 To n

If i > 1 Then Print Tab(n + 1 - i); "*";

Print Tab(n - 1 + i); "*"

Next i

For i = n - 1 To 1 Step -1

If i > 1 Then Print Tab(n + 1 - i); "*";

Print Tab(n - 1 + i); "*"

Next i

End Sub