请编写下列图形的VB程序 For循环结构 谢谢

1 333 55555 7777777 55555 333 1第一个1有点问题啊这个图形是上下对称的

Private Sub Command1_Click()
For i = 1 To 7 Step 2
s = ""
For j = 1 To 7 - i Step 2
s = s & " "
Next j
m = ""
For k = 1 To i
m = m & i
Next k
s = s & m
Print s
Next i
If i = 9 Then
For i = 5 To 1 Step -2
s = ""
For j = 7 - i To 1 Step -2
s = s & " "
Next j
m = ""
For k = i To 1 Step -1
m = m & i
Next k
s = s & m
Print s
Next i
End If
End Sub

Private Sub Command1_Click() Dim i%, j% For i = 1 To 7 Step 2 Print Tab(7 - i); For j = 1 To i - 1 Print i; Next j Print i Next i For i = 5 To 1 Step -2 Print Tab(7 - i); For j = 1 To i - 1 Print i; Next j Print j Next i End Sub

private sub command1_click()     for i = -4 to 4     print spc(3 * abs(i)); 5 - abs(i); spc(6 * (4 - abs(i)) - 1);     currentx = currentx - 270     print 5 - abs(i)     print     next i

end sub