下列VB程序?qū)崿F(xiàn)數(shù)字字母混合序列分離后分別排序，最后又合并輸出。具體算法如下：在文本框Text1輸入若干組混合序列，每組序列中僅包含一組字母和一個(gè)多位數(shù)字，序列之間用逗號(hào)隔開，以逗號(hào)結(jié)束。單擊“排序”按鈕command1，把每組序列中的字母和數(shù)字分開，并分別排序，最后在列表框list1輸出。排序規(guī)則如下：所有數(shù)字按從小到大升序排序，字母序列按長度升序排序，若長度相同，直接按字母序列大小升序排序（按字母的ASCII碼排序，“A”＜“Z”＜“a”＜“z”）。實(shí)現(xiàn)算法的部分程序界面如圖所示，VB程序代碼如下，回答下列問題：

Private Sub Command1_Click（　　）
Dim a（1 To 6）As Integer,b（1 To 6）As String,I as integer,j as integer
Dim c As String,k As Integer,tmp1 As Integer,tmp2 As String
s=text1．text
i=1：k=1：tmp1=0：tmp2=″″
Do While i＜=Len（s）
c=Mid（s,i,1）
If c=“，“Then
a（k）=tmp1：b（k）=tmp2
tmp1=0：tmp2=″″

①

①

Else
If Then
tmp2=tmp2+c
Else
tmp1=tmp1*10+val（c）
End If
End If
i=i+1
Loop
For i=1 To 5
For j=1 To 6-i
If a（j）＞a（j+1）Then tmp1=a（j）：a（j）=a（j+1）：a（j+1）=tmp1
If Len（b（j））＞Len（b（j+1）） Or

②

②

 Then
tmp2=b（j）：b（j）=b（j+1）：b（j+1）=tmp2
End If
Next j
Next i
For i=1 To 6
List1．AddItem Str（a（i））+b（i）
Next i
End Sub
（1）代碼“l(fā)ist1．AddItem”中的AddItem是

C

C

（單選，填字母：A．屬性名   B．對(duì)象名   C．方法   D．事件名 ）
（2）在程序橫線處填入合適代碼，使程序完整
（3）加框處代碼有錯(cuò)，請(qǐng)改正
（4）若輸入的字符串為“21ckk,gho63，TCP43，23Yes,no62，phy46，”，則程序運(yùn)行后第3組字符是

43ckk

43ckk