怎样在16个姓中取12个然后再按升序排序？

第二个排序方法:(不使用控件)
将给每个姓氏前加一个便于排序的标识,如,A白 B邓 C方 D胡 E黄 G江 H李 I林 J刘 K马 L毛 M苏 N王 O吴 P张 Q赵,排序时以按第一字符的ascii码进行,显示时只显示第二字符.代码如下:

Dim a As String
Dim c As String
Dim b(12) As String

Private Sub Command1_Click()
Text1.Text = ""
c = a
For i = 0 To 11
x = Int(((Len(c) / 2) * Rnd)) * 2 + 1
b(i) = Mid(c, x, 2) '随机取一个姓氏
c = Replace(c, b(i), "") '将取到的姓氏从源字符串中抹去,避免重复出现
Text1.Text = Text1.Text & Right(b(i), 1)
Next i
End Sub

Private Sub Command2_Click()
For i = 0 To 10
Debug.Print Left(b(i), 1)
For j = i + 1 To 11
If Left(b(i), 1) > Left(b(j), 1) Then
t = b(i)
b(i) = b(j)
b(j) = t
End If
Next j
Next i
Text1.Text = ""
For i = 0 To 11
Text1.Text = Text1.Text & Right(b(i), 1)
Next i
End Sub

Private Sub Form_Load()
Command1.Caption = "生成" <