Question

用VB实现如下功能怎样实现

比如：一串联固定的数字，011,202,033,452,278,022,101,.......... 上面的数字个不确定，然后以逗号为分界，把这些数字去掉首位的0后分行显示到textbox中，我是这样用的：
Private Sub changedate_Click()
Dim temp, a
temp = Split(Text1.Text, Chr$(10))
Dim i As Long
For i = LBound(temp) To UBound(temp)
Dim b, c
If Left(temp(i), 1) = "0" Then
b = Right(temp(i), Len(temp(i)) - 1)
c = Split(b, ",")
a = c(0) & Space(1) & "," & c(1)
Else
a = temp(i)
End If
Text1.Text = a
Next i
但是这样最后在Text1里显示是最后一个a的值，原因在于，Next i后，后面a的值覆盖掉了前面a的值，有什么办法能让每个a的逐条在文本框Text1中分行显示？
我可能没说清楚，原数据是
011,1
202,2
033,3
452,4
,..........
然后要实现后的效果
11 ,1
202,2
33 ,3
452,4
,..........

Answer 1

Private Sub changedate_Click()
Dim temp, a
temp = Split(Text1.Text, Chr$(10))
Text1 = ""
Dim i As Long
For i = LBound(temp) To UBound(temp)
Dim b, c
If Left(temp(i), 1) = "0" Then
b = Right(temp(i), Len(temp(i)) - 1)
c = Split(b, ",")
a = c(0) & Space(1) & "," & c(1)
Else
a = temp(i)
End If
Text1.Text = Text1 & a & vbCrLf
Next i
End Sub

追问

这样最后显示出来的还有原来首位带0的那些数字的吧？

追答

11 ,1
202,2
33 ,3
452,4
和上边一模一样

Answer 2

Text1要设置为多行：
Private Sub changedate_Click()
Dim temp, a
temp = Split(Text1.Text, ",")
Dim i As Long
For i = 0 To UBound(temp)
If Val(temp(i)) > 0 Then a = Val(temp(i))
Text1.Text = Text1.Text & a & vbCrLf
Next i
End Sub

追问

这个原来的文本也在，我的意思是用新的逐条取代原来的