排序的稳定性。假定在待排序的记录序列中，存在多个具有相同的关键字的记录，若经过排序，这些记录的相对次序保持不变，即在原序列中，r[i]=r[j]，且r[i]在r[j]之前，而在排序后的序列中，r[i]仍在r[j]之前，则称这种排序算法是稳定的；否则称为不稳定的。
现编写一个VB程序，实现功能如下：随机生成n-1个不重复的[10，99]之间的正整数，在这n-1正整数中随机选取一个位置i,将其值r[i]作为第n个数插入到某一位置j处，然后对数据序列进行排序，验证排序前和排序后这两个相同数相对次序的变化，若均不变，则排序稳定，若有改变，则排序不稳定。实现该功能的VB程序及界面如下，请回答以下问题。
（1）分析程序代码，若某次运行显示“稳定”，则是否能确定选择排序是稳定排序？

否

否

（填：是/否）
（2）补充完整以下代码
Constn=10
Dima（1To10）AsInteger,b（1To10）AsInteger
Dimk1AsInteger,k2AsInteger‘k1，k2为相同数据的前、后次序PrivateSubCommand1_Click （　　）
DimiAsInteger,tmpAsInteger,tAsInteger
Randomize
List1．Clear
Fori=1To9′随机生成9个不重复数
b（i）=Int（Rnd*90）+10
DoWhile ①
b（i）=Int（Rnd*90）+10
Loop
Nexti
′以下代码为随机选取数组中的1个数作为第
10个数字再随机的插入到原数组的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=″稳定″ElseLabel1．Caption=″非稳定″EndSub
Functioncheck（xAsInteger,yAsInteger）AsBoolean
DimjAsIntegercheck=False
Forj=1Toy-1
Ifb（j）=xThencheck=TrueExitFor
EndIf
Nextj
EndFunction