VB list控件问题

变量 mysj
mysj中是动态生成的N个以逗号（，）分割的字符串，例如：（135，7899，2588，1234...........）
求助：如何把mysj中以逗号（，）分割的字符串（例如：135 7899 2588 1234...........）提取出来，并分开显示在list1中！
我现在写到这了：
List1.Clear '首先清空List1
Dim aaa As String
Dim bbb As Integer, lssz1 As Variant
lssz1 = Split(mysj, ",") '因为mysj变量里的数据是一整体的，所以要把mysj内的数据拆分开
For i = 0 To UBound(lssz1)
aaa = lssz1(i)
Next

For bbb = 0 To UBound(lssz1)
List1.AddItem aaa
Next
可问题是：
For i = 0 To UBound(lssz1)
aaa = lssz1(i)
Next
循环出来的是最后一个！

Option Explicit
Dim p() As String, k As Integer, m As String
Private Sub Command1_Click()
p = Split(Text1.Text, ",")
For k = 0 To UBound(p)
m = p(k)
List1.AddItem m
Next
End Sub

需要那么长吗？？

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/2p8q24744.html