循环排序。任意生成10个[1，100]之间的整数，编程实现将这10个数进行循环升序排序，即首尾相连后是一个升序序列。要求最小值位置不变，然后依次进行排列。程序运行界面如图所示：
实现上述功能的VB程序如下，加框处的代码有误，请改正。
Dim a（1 To 10）As Integer,b（1 To 10）As Boolean
Private Sub Command1_Click （　　）
Dim min As Integer,pmin As Integer
min=a（1）：pmin=1
For i=2 To 10
If a（i）＜=min Then min=a（i）：pmin=i
Next i
b （pmin）=True
pmin=
If pmin=0 Then pmin=10
For i=1 To 8
k=pmin
For j=1 To 10
If  Then k=j
Next j
If k＜＞pmin Then
temp=a（k）：a（k）=a（pmin）：a（pmin）=temp
End lf
b（pmin）=True
pmin=pmin-1
If pmin=0 Then pmin=10
Next i
将排序后的结果输出在列表框List2中，代码略。
End Sub
Private Sub Form Load （　　）
随机生成10个[1，100]之间的整数，存储在数组a中，并初始化数组b为 False,按顺序输出在列表框List1中，代码略。
End sub