Private Sub Command1_Click()
n = CInt(InputBox("N="))
Print "N="; n
For i = 1 To n
Print Tab(n + 1 - i);
枣差 For j = 1 To 2 * i - 1
Print "*";
搏岩猛 Next j
Next i
For i = n - 1 To 1 Step -1
Print Tab(n + 1 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i 基桥
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024