用编写
最后在左上角显示
12345
1234
123
12
1


谢谢，帮帮我

Dim temp, strTemp As String
        Dim x, i As Integer
        For x = 5 To 1 Step -1
            temp = ""
            For i = 1 To x
                temp = temp & i
            Next
            strTemp = strTemp & temp & vbCrLf
        Next
        Me.Label1.Text = strTemp

label1的textalivgn 設置為：MiddleLeft