```vb
Private Sub Form_Click（）
Dim a（1 To 5） As Integer
For j = 1 To 5
a（j） = j
Next j
For i = 1 To 5
Print Tab（30 - i * 3）；
For j = 1 To 2 * i - 1
If j > i Then
Print a（2 * i - j）；
Else
Print a（j）；
End If
Next j
Next i
End Sub
```
这段代码首先定义了一个整数数组`a`，用于存储金字塔的每一层的数字。然后通过两个嵌套的`For`循环来打印金字塔。外层循环控制行数，内层循环控制每行的打印内容。`Tab`函数用于设置打印前的缩进，以形成金字塔的形状。
如果你想要一个更复杂的数字金字塔，例如一个由用户输入的数字构成的倒金字塔，你可以使用以下代码：
```vb
Private Sub Command1_Click（）
Dim i As Integer
Dim j As Integer
Dim s As String
For i = 1 To 5
s = String（i * 2 - 1, CStr（i））
Print Spc（（10 - i * 2） / 2）； s
Next i
For j = 6 To 9
s = String（9 - 2 * （j - 5）, CStr（j））
Print Spc（j - 5）； s
Next j
End Sub
```
这段代码首先定义了三个整数变量`i`、`j`和`s`。然后通过两个嵌套的`For`循环来构建并打印数字金字塔。`String`函数用于生成指定长度的数字字符串，`Spc`函数用于设置打印前的空格数。
这些代码示例应该能够帮助你开始编写自己的数字金字塔程序。你可以根据自己的需求调整代码，例如改变金字塔的大小、形状或者使用不同的输入方式。