[silverlight]

ده مثال أخر عبارة عن Loop لكل الحروف
ايضا تستطيع تحديد عدد مرات تكرار الحرف الأول التي تريدها 

PHP كود :

       Dim str As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim i As Integer = 0
        ' عدد مرات تكرار الحرف الأول
        Dim count As Integer = 3
        Dim values As String() = New String(str.Length - 1) {}
        While i < str.Length
            Dim s As String = New String(str, i, 1)
            s = New String(s, count)
            values(i) = s
            i += 1
        End While

        For Each value As String In values
            For j = 0 To values.Length - 1
                ListBox1.Items.Add(value + str(j).ToString)
            Next

        Next