字母排隊(duì)游戲。有一組不重復(fù)的字母串，現(xiàn)根據(jù)大小寫(xiě)分別進(jìn)行排隊(duì)。排隊(duì)規(guī)則如下：
（1）根據(jù)字母大小寫(xiě)按原順序提取字母，大寫(xiě)字母排一隊(duì)，小寫(xiě)字母排一隊(duì)；
（2）固定兩隊(duì)字母中最小字母在各隊(duì)中的位置：
（3）將兩隊(duì)其余字母按從小到大的順序排在各自最小字母的兩邊。大寫(xiě)字母隊(duì)列先從最小字母右邊排隊(duì)，排到最后位置再?gòu)淖钚∽帜缸筮呴_(kāi)始排，直到第一個(gè)位置為止。同理，小寫(xiě)字母隊(duì)列先從左邊開(kāi)始排隊(duì)，再排右邊。過(guò)程如圖 1 所示：

編寫(xiě) VB 程序，實(shí)現(xiàn)字母排隊(duì)功能：在文本框 Text1 中輸入待排字母串后，單擊“排隊(duì)”按鈕
Command1，在列表框 List1 中顯示排隊(duì)結(jié)果。程序運(yùn)行界面如圖 2 所示。

請(qǐng)回答下列問(wèn)題：
（1）根據(jù)程序運(yùn)行界面，“字母排隊(duì)”是窗體 Forml 的

C

C

（單選，填字母：A.對(duì)象名/B.屬性名
/C.屬性值/D.過(guò)程名）。
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
（3）程序中加框處代碼有錯(cuò)，請(qǐng)改正。
Dim flag（1 To 52）As Boolean'flag 數(shù)組初值為 False Private Sub Command1_Click （　?。?br />Dim su As String,sd As String,ch As String'su,sd 分別存儲(chǔ)大小寫(xiě)字母隊(duì)
Dim i As Integer,n As Integer Dim ku As Integer,kd As Integer s=Text1.Text：n=Len（s）
For i=1 To n
ch=①

Mid（s,i,1）或Mid（Text1.jye.ai,i,1）

Mid（s,i,1）或Mid（Text1.jye.ai,i,1）

If ch＞=“A“And ch＜=“Z“Then su=su+ch If ch＞=“a“And ch＜=“z“Then sd=sd+ch
Next i
ku=search（su,0）kd=search（sd,6）su=““：sd=““
For i=1 To 52
If flag（i）And i＜=26 Then su=su+Chr（i+64）If flag（i）And i＞26 Then 
Next i
List1.AddItem sort（su,ku,1）List1.AddItem sort（sd,kd,-1）End Sub
Function search（s As String,k As Integer）As Integer'確定字母隊(duì)列并查找最小元素位置Min=Mid（s,1，1）
flag（Asc（Min）-64-k）=True mini=1
For i=2 To Len（s）ch=Mid（s,i,1）
If ch＜Min Then mini=i：Min=ch
②

flag（Asc（ch）-64-k）=True

flag（Asc（ch）-64-k）=True

Next i
search=mini End Function
Function sort（s As String,wz As Integer,k As Integer）As String'排隊(duì)nx=Len（s）
sort=Mid（s,1，1）
i=2
nc=1
Do While nc＜=2
For j=wz+k To nx^（（1+k）\2）Step k If k=1 Then
sort=sort+Mid（s,i,1）
Else
sort=Mid（s,i,1）+sort
End If
i=i+1 Next j
 ③

k=-k

k=-k

nc=nc+1 Loop
End Function