如何提取字符串？（保证给分)

Question

现有一字符串：123@321@213
如何将123、321、213分别提取出来按顺序列于列表框(combox)中？

Answer 1

没有MSDN呀
能否给段源码呢？

Answer 2

dim a() as string
dim s as string,i as integer
s="123@321@213"
a=split(s,"@")
for i=0 to ubound(a)
    combo1.additem a(i)
next i

Answer 3

Private Sub Command1_Click()
    Dim strValue As String
    strValue = "123@321@213"
    
    Dim strA() As String
    strA = Split(strValue, "@")
    
    Dim i As Integer
    For i = LBound(strA) To UBound(strA)
        Combo1.AddItem strA(i)
    Next
    
    Combo1.ListIndex = 0
End Sub

Answer 4

http://msdn.microsoft.com/library/default.asp