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
        textbox1.Text = strTemp

[[italic] 本帖最后由 lbyjin 于 2008-1-8 14:41 编辑 [/italic]]

textbox1.Text = strTemp
   要你的textbox1的多行数型设置为真才可以支持！
Dim temp, strTemp As String
   前者被声明为变体类型，而不是字符串类型
For x = 5 To 1 Step -1
是说得是从5开始直到1结束，每次循环-1
这句是说得行
对吗？

temp = ""
            For i = 1 To x
                temp = temp & i
这句什磨意思

temp=""   '賦初始值
for i=1 to x
   temp=temp&i
next
決定當前行數字
因為每次換行，數據不一樣，所以要把temp賦予初始值！

谢谢你

strTemp = strTemp & temp & vbCrLf
        Next
        textbox1.Text = strTemp
是什磨意思