字母排隊游戲。有一組不重復的字母串，現根據大小寫分別進行排隊。排隊規則如下：
（1）根據字母大小寫按原順序提取字母，大寫字母排一隊，小寫字母排一隊；
（2）固定兩隊字母中最小字母在各隊中的位置：
（3）將兩隊其余字母按從小到大的順序排在各自最小字母的兩邊。大寫字母隊列先從最小字母右邊排隊，排到最后位置再從最小字母左邊開始排，直到第一個位置為止。同理，小寫字母隊列先從左邊開始排隊，再排右邊。過程如圖 1 所示：

編寫 VB 程序，實現字母排隊功能：在文本框 Text1 中輸入待排字母串后，單擊“排隊”按鈕
Command1，在列表框 List1 中顯示排隊結果。程序運行界面如圖 2 所示。

請回答下列問題：
（1）根據程序運行界面，“字母排隊”是窗體 Forml 的

C

C

（單選，填字母：A.對象名/B.屬性名
/C.屬性值/D.過程名）。
（2）實現上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
Dim flag（1 To 52）As Boolean'flag 數組初值為 False Private Sub Command1_Click （　　）
Dim su As String,sd As String,ch As String'su,sd 分別存儲大小寫字母隊
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'確定字母隊列并查找最小元素位置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'排隊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