如何用VB实现这样的输出效果

循环打印

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim l As Integer

l = 7
For i = 1 To 4
For j = 1 To i - 1
Print CStr(j);
Next j
For j = 1 To l + 2 - i * 2
Print CStr(i);
Next j
Debug.Print i
For j = i - 1 To 1 Step -1
Print CStr(j);
Next j
Print
Next i
For i = 3 To 1 Step -1
For j = 1 To i - 1
Print CStr(j);
Next j
For j = 1 To l + 2 - i * 2
Print CStr(i);
Next j
Debug.Print i
For j = i - 1 To 1 Step -1
Print CStr(j);
Next j
Print
Next i
End Sub

手动一行一行的print不行吗?

一个简单的输出语句加回车换行就可以了 不过我的VB还老师了

Private Sub Command1_Click()
Dim s(3) As String
s(0) = "1111111"
s(1) = "1222221"
s(2) = "1233321"
s(3) = "1234321"
For i = 0 To 3
Print s(i)
Next
For i = 2 To 0 Step -1
Pri