UC知道vb金字塔编程
来源：百度知道 编辑：UC知道 时间：2024/05/28 00:25:24
请问怎么编写个程序，显示这个图形？？
*
* * *
* * * * *
* * * * * * *
* * * * *
* * *
*
我的图形是个菱形的。百度知道把我的空格都消去了
答案还是这个吗？？？
*
* * *
* * * * *
* * * * * * *
* * * * *
* * *
*
我的图形是个菱形的。百度知道把我的空格都消去了
答案还是这个吗？？？
'在窗体上增加一个command1按钮，然后复制下面代码即可。
Private Sub Command1_Click()
Dim i As Integer
Me.Cls
N = 4 '用于控制层数
For i = 1 To N
Print Tab(N - i + 1); String(2 * i - 1, "*")
Next
For i = N - 1 To 1 Step -1
Print Tab(N - i + 1); String(2 * i - 1, "*")
Next
End Sub
'在窗体上增加一个command1按钮，然后复制下面代码即可。
Private Sub Command1_Click()
Dim i As Integer
Me.Cls
For i = 1 To 4
Print String(2 * i - 1, "*")
Next
For i = 3 To 1 Step -1
Print String(2 * i - 1, "*")
Next
End Sub