1 222 33333 4444444 555555555 如何用vb做出来 编写程序，谢谢了！

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

 Dim i As Integer
        Dim n As Integer
        For i = 1 To 5
            For n = 1 To i * 2 - 1
                Label1.Text &= i
            Next
        Next

一个循环就搞定的，可以用以下代码：
Private Sub Command1_Click()
Dim i As Long, myTemp As String
For i = 0 To 4
myTemp = i + 1
Print String(2 * i + 1, myTemp) & " ";
Next
End Sub

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim s As String

For i = 1 To 9
s = ""
For j = 1 To 2 * i - 1
s = s & CStr(i)
Next j
Print s
Next i
End Sub

Private Sub Command1_Click()
For i = 1 To 9
b = ""
For j = 1 To 2 * i - 1
b = b & i
Next j
Print b
Next i
End Sub