Question

新手怎样用vb写一个菱形 要用循环的

Answer 1

Private Sub Command1_Click()

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

Print "N="; n

For i = 1 To n

Print Spc(n + 1 - i);

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i

For i = n - 1 To 1 Step -1

Print Spc(n + 1 - i);

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i  

End Sub