排序的穩(wěn)定性。假定在待排序的記錄序列中，存在多個具有相同的關(guān)鍵字的記錄，若經(jīng)過排序，這些記錄的相對次序保持不變，即在原序列中，r[i]=r[j]，且r[i]在r[j]之前，而在排序后的序列中，r[i]仍在r[j]之前，則稱這種排序算法是穩(wěn)定的；否則稱為不穩(wěn)定的。
現(xiàn)編寫一個VB程序，實現(xiàn)功能如下：隨機生成n-1個不重復(fù)的[10，99]之間的正整數(shù)，在這n-1正整數(shù)中隨機選取一個位置i,將其值r[i]作為第n個數(shù)插入到某一位置j處，然后對數(shù)據(jù)序列進(jìn)行排序，驗證排序前和排序后這兩個相同數(shù)相對次序的變化，若均不變，則排序穩(wěn)定，若有改變，則排序不穩(wěn)定。實現(xiàn)該功能的VB程序及界面如下，請回答以下問題。
（1）分析程序代碼，若某次運行顯示“穩(wěn)定”，則是否能確定選擇排序是穩(wěn)定排序？

否

否

（填：是/否）
（2）補充完整以下代碼
Constn=10
Dima（1To10）AsInteger,b（1To10）AsInteger
Dimk1AsInteger,k2AsInteger‘k1，k2為相同數(shù)據(jù)的前、后次序PrivateSubCommand1_Click （　?。?br />DimiAsInteger,tmpAsInteger,tAsInteger
Randomize
List1．Clear
Fori=1To9′隨機生成9個不重復(fù)數(shù)
b（i）=Int（Rnd*90）+10
DoWhile ①
b（i）=Int（Rnd*90）+10
Loop
Nexti
′以下代碼為隨機選取數(shù)組中的1個數(shù)作為第
10個數(shù)字再隨機的插入到原數(shù)組的1-9位置
k1=Int（Rnd*9+1）
tmp=b（k1）
k2=Int（Rnd*9+1）
Fori=10Tok2+1Step-1b（i）=b（i-1）
Nexti
b（k2）=tmp
Fori=1Tona（i）=i
List1．AddItemStr（a（i））+″″+Str（b（i））Nexti
Ifk1＞=k2Then
②
t=k1：k1=k2：k2=t
EndIf
Text1．Text=Str（k1）+Str（k2）EndSub
PrivateSubCommand2_Click （　　）
DimiAsInteger,jAsInteger,kAsInteger,tAsInteger
List2．Clear
Fori=1Ton-1k=i
Forj=i+1Ton
Ifb（j）＜b（k）Thenk=j
Nextj
Ifk＜＞iThen
t=a（k）：a（k）=a（i）：a（i）=tt=b（k）：b（k）=b（i）：b（i）=t
EndIf
Nexti
Fori=1Ton
List2．AddItemStr（a（i））+″″+Str（b（i））Nexti
i=1
DoWhilei＜=n-1Andb（i）＜＞b（i+1）
i=i+1
Loop
Text2．Text=Str（a（i））+Str（a（i+1））
If③ThenLabel1．Caption=″穩(wěn)定″ElseLabel1．Caption=″非穩(wěn)定″EndSub
Functioncheck（xAsInteger,yAsInteger）AsBoolean
DimjAsIntegercheck=False
Forj=1Toy-1
Ifb（j）=xThencheck=TrueExitFor
EndIf
Nextj
EndFunction