用VB编写代码，完成下面的图形输出：

OK

Private Sub Command1_Click()
Cls
For i = 1 To 5
For j = 1 To i * 2 - 1
Print Mid(i, 1, 1);
Next j
Print
Next i

For i = 4 To 1 Step -1
For j = 1 To i * 2 - 1
Print Mid(i, 1, 1);
Next j
Print
Next i

End Sub

Private Sub Command1_Click()
Cls
Print 1
Print 222
Print 33333
Print 4444444
Print 555555555
Print 4444444
Print 33333
Print 222
Print 1
End Sub

Private Sub Form_click()
Dim i As Integer
Dim j As Integer
Dim start As Integer
Dim num As Integer
For i = 1 To 9
If i <= 5 Then
start = 20 - i
num = 2 * i - 1
Else
start = 10 + i
num = 19 - 2 * i
End If
For j = 1 To num
Form1.Print Format(i);
Next j
Print
Next i
End Sub

Privat