小张编写了一个VB程序来解这个游戏，功能如下：点击“初始化”按钮Command1初始化游戏，程序随机地将1~8这8个整数填入到数阵的外层圆圈中，同时将该状态下的数阵显示在列表框List1中。点击“开始”按钮Command2，程序开始移数字，并将移动过程中的每一步输出在列表框List2中，最后统计总移动步数到标签Label1中。为了清楚地描述输出数字在数阵中的每一步移动步骤，小张给数阵中的每一个圆圈都进行了编号，具体编号方法如图c所示，因此1号圈中的数字移动到2号圈可以表示为“1#-->2#”。程序运行界面如图d所示。

实现上述功能的VB代码如下。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 100) As Integer

Sub sort(left As Integer,right As Integer)

Dim i As Integer,j As Integer,t As Integer

For i=1 To right-left

For j= 　'{#blank#}1{#/blank#}

If a(j)>a(j+1) Then

   t=a(j):a(j)=a(j+1):a(j+1)=t

End If

Next j

Next i

End Sub

Private Sub Command1_Click()

Dim p As Integer,q As Integer

Dim i As Integer,j As Integer,n As Integer,x As Integer

Randomize

n=Val(Text1.Text):Text2.Text=″ ″:Text3.Text=″ ″

p=0

　'{#blank#}2{#/blank#}

For i=1 To n

x=Int(Rnd*100)

Text2.Text=Text2.Text+Str(x)

If x Mod 2=0 Then

   p=p+1

   a(p)=x

Else

   q=q-1

   a(q)=x

End If

Next i

Call sort(1,p)

Call sort(p+1,n)

For i=1 To n

Text3.Text=Text3.Text+Str(a(i))

Next i

End Sub

Dim a(8) As Integer For i = 2 To 8

           a(0) = a(i)

           Do While a(0) < a(j)  

                  j = j - 1

           Loop

       Next i

数组元素 a(1)~a(8)的值为随机生成的整数，为实现升序排序，则上述程序段3个方框处的表达式分别为（  ）

s=“7218634594” : n=Len(s): c=0

For i=1 To n-1

  a(i)=Val(Mid(s, i, 2))

Next i

For i=1 To n-2 Step 2

  k=i

  For j=i+2 To n-1 Step 2

    If a(j) < a(k) Then k=j

  Next j

 If k <> i Then

   t=a(i): a(i)=a(k): a(k)=t: c=c+1

 End If

Next i

Text1.Text=Str(c)

该程序段运行后，Text1中显示的内容是（  ）

鞋子尺码换算：常用的两种鞋码一种是欧制的码m，而我国采用的标准为厘米数g，鞋子尺码的换算公式：欧制m=中国制g*2-10。例如25是我国采用的厘米数，换算成欧制的码为25*2-10=40(码)。

p = 1: q = 10

Do While p < q

  iMin = p: iMax = p

  For i = p + 1 To q

    If a(i) < a(iMin) Then iMin = i

    If a(i) > a(iMax) Then iMax = i

  Next i

t = a(iMin): a(iMin) = a(p): a(p) = t

  t = a(iMax): a(iMax) = a(q): a(q) = t

  p = p + 1

  q = q - 1

Loop