满分求助listbox问题。

Question

有如下数组b(1)一直到达b(150)
我想在listbox中从b(1)一直排到b(150)
一行一行的排。如何排？这是第一个问题。
第二就是这150个数，其中某一个变化了，但其它的没变化。我希望listbox中增加一排，显示出来变化的那个数，而其它行则为空。。如此这样，哪个数变化了就在listbox中增加一列，除了这个数其它都显示为空。
举个例子。。
下面数组全在listbox中：假设第一次b(3)和b(149)变化了，其它没变，第二次b(2)变化，其它没变。
b(1)   
b(2)            b(2) 
b(3)    b(3)
..
..
..
b(149)  b(149)
b(150)谢了。
绝对给分。

Answer 1

Option ExplicitPrivate Sub Form_Load()
    
    Dim n As Long
    Dim b(150) As String
    '将数组放入listbox
    For n = 1 To 150
        b(n) = n
        List1.AddItem b(n)
    Next n
    
    '在这里检查 我只是粒子，至于怎么检查，你自己看。。
    For n = 0 To 149
        If n = 2 Or n = 148 Then
            List1.List(n) = List1.List(n) & vbTab & b(n)
        End If
    Next n
    '
    '类推..
End Sub