UC知道高分 急求 VB 2005 金字塔 编程！完成后继续追加分数
来源：百度知道 编辑：UC知道 时间：2024/05/20 15:06:28
高分 急求 VB 2005 金字塔 编程！完成后继续追加50分。
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 5 6 5 4 3 2 1
1 2 3 4 5 6 7 6 5 4 3 2 1
显示在listbox里面。 感激
是 2005版的vb，
这里有正式版下载,免费的:
http://www.microsoft.com/express/download/#webInstall
抱歉， 都没居中了。。。
应该是居中的/. 还有, VB6.0的代码跟2005的很多不通用..所以楼下的,VB6.0是不可以大..:S
` 1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 5 6 5 4 3 2 1
1 2 3 4 5 6 7 6 5 4 3 2 1
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 5 6 5 4 3 2 1
1 2 3 4 5 6 7 6 5 4 3 2 1
显示在listbox里面。 感激
是 2005版的vb，
这里有正式版下载,免费的:
http://www.microsoft.com/express/download/#webInstall
抱歉， 都没居中了。。。
应该是居中的/. 还有, VB6.0的代码跟2005的很多不通用..所以楼下的,VB6.0是不可以大..:S
` 1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 5 6 5 4 3 2 1
1 2 3 4 5 6 7 6 5 4 3 2 1
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Long, y As Long, z As String, m As Long, n As Long, now As String
n = InputBox("请输入数字金字塔的层数！")
For y = 1 To n
z = Space(n - y)
For x = 1 To y * 2 - 1
m = x
If m > y Then m = y * 2 - x
now = (m.ToString)
z = z + now
Next x
ListBox1.Items.Add(z)
z = ""
Next y
End Sub
End Class
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
如果要加空格分开
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\