主题：问个代码

我有一串字符串  a,b,c,d,e,f,g,h,i,j  不固定总数不能超过30个

怎么写?

Dim s As String = "abcdefghijkl"
Dim l As Integer = 0
For i As Integer = 0 To s.length-1
    Dim t = (i) \ 5
    If i Mod 5 = 0 Then
        l = 0
    Else
        l += 1
    End If
    output.show(l & t)
    Tables("表a")(l, t) = s(i)
Next

硬塞? 我学习下

用一个  集合  记录   随机选择的字母 ，如果集合里没有，就增加到表；如果集合里有这个字母，得新选择，直到结束。