在Text1中輸入一個1-26之間的數(shù)字n,點擊“產(chǎn)生”按鈕，在Text2中產(chǎn)生n個不重復(fù)的大寫字母，中間用逗號隔開（圖a），點擊一次“最小值”按鈕，Text2中最小的字母會掉落到List1中，并將Text2中對應(yīng)的字母和后面的逗號刪除（圖b），再點擊一次“最小值”按鈕，剩余字母中的最小值繼續(xù)掉落（圖c）。（ASC（“A”）=65，CHR（65）=“A”）

（1）根據(jù)描述，如產(chǎn)生的字母為“H，K，C，B，N，”，第三次點擊“最小值”按鈕后Text2中顯示內(nèi)容為

K，N，

K，N，

（2）請在橫線處填入合適的代碼。
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
Dim i As Integer,j As Integer,n As Integer
Dim zm As Integer,flag As Boolean,zf As string
Randomize'重置rnd函數(shù)，確保每次產(chǎn)生的隨機數(shù)不一致
zf=““
n=Val（Text1.Text）
For i=1 To n

flag=False

flag=False

zm=Int（Rnd*26+65）
For j=1 To Len（zf）  Step 2
If Asc（Mid（zf,j,1））=zm Then

i=i-1

i=i-1

flag=True
Exit For
End If
Next j
If flag=False Then zf=zf+Chr（zm）+“，“
Next i
Text2.Text=zf
End Sub
Private Sub Command2_Click

（　?。?/div>

（　?。?/div>
Dim i As Integer,zf As string
zf=Text2.Text
k=1
For i=3 To Len（zf）-1  Step 2
If Mid（zf,k,1）＞Mid（zf,i,1）Then k=i
Next i
List1.AddItem Mid（zf,k,1）
Text2.Text=

mid（zf,1，k-1）+mid（zf,k+2）或mid（zf,1，k-1）+mid（zf,k+2，len（zf）-k-1）

mid（zf,1，k-1）+mid（zf,k+2）或mid（zf,1，k-1）+mid（zf,k+2，len（zf）-k-1）

End Sub