如何编写vb程序

Dim i As Integer
For i = 1 To 9
Print Space(9 - i); String(2 * i - 1, Trim(Str(10 - i)))
Next i

Private Sub Command1_Click()
Dim i As Integer
For i = 9 To 1 Step -1
Print String(2 * (9 - i) + 1, CStr(i))
Next
End Sub

新建窗体，画一个命令按钮，双击命令按钮，输入以下代码：
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
b = 0
For a = 9 To 1 Step -1
b = b + 1
Print String(2 * b - 1, Trim(Str(a)))
Next a
End Sub