vb编程问题

Private Sub Command1_Click()
For i = 1 To 9
If i <= 5 Then
Print Space(5 - i); String(i + i - 1, Trim(Str$(i)))
Else
Print Space(i - 5); String((9 - i) * 2 + 1, Trim(Str$(i)))
End If
Next
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim n As Integer

n = 9
k = 1
For i = 1 To n \ 2
For j = 1 To k
Print CStr(i);
Next j
Print
k = k + 2
Next i
If n Mod 2 = 0 Then k = k - 2
For i = n \ 2 + 1 To n
For j = 1 To k
Print CStr(i);
Next j
Print
k = k - 2
Next i

End Sub