十万火急，谁知道这个的VB代码？

Dim i As Integer, j As Integer
For i = 9 To 0 Step -1
Print Space(9 - i);
For j = 1 To i * 2 + 1
Print Trim(i);
Next
Print
Next

很简单么：
Private Sub Command_Click()
Dim i As Integer, j As Integer
For i = 9 To 0 Step -1
Print Space(9 - i);
For j = 1 To i * 2 + 1
Print Trim(i);
Next
Print
Next
End Sub