Question

如何用VB循环语句编写输出星星阵型

我做到一个题 用VB的循环语句编写当用户输入不同的N时，如出不同的*组成的行 如输如4 输出图形 * * *** * * ***** * * ******* * * ***** * * *** * * * * 就是一种是是实心的 一种是空心的菱形块

Answer 1

实心 Private Sub Command1_Click() n = InputBox("请输入n的值", "输入") For i = 1 To 2 * n - 1 s = Abs(n - i) Print Space(s) & String(2 * n - 1 - s * 2, "*") Next i End Sub 空心 Private Sub Command1_Click() n = InputBox("请输入n的值", "输入") Print Space(n) & "*" For i = 1 To 2 * n - 1 s = Abs(n - i) Print Space(s) & "*" & Space(2 * n - 1 - s * 2) & "*" Next i Print Space(n) & "*" End Sub