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

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

小诗收集了全市部分教职员工的工资数据，设计了找中位数的程序如下。小诗收集的人员工资数据放在了Access数据库中。小诗的程序在窗体加载时读出了所有人员的数据：姓名放在数组a中，对应的工资放在数组b中，数据总记录数放在n中。单击按钮Command1后先以工资按非升的次序排序，然后找出中位数。

Dim a(1 To 1000) As String

Dim b(1 To 1000) As Single

Dim n As Integer

‘数据库读取所有人员的数据代码略

Private Sub Command1_Click()

Dim i As Integer , j As Integer , k As Integer

Dim tmp1 As Single, tmp2  As String

Dim median As Single

For i = n To 2 step -1

k = i

For j = i-1 To 1 step -1

If  Then

k = j

End If

Next j

If k <> i Then

tmp1 = b(k): b(k) = b(i): b(i) = tmp1

tmp2 = a(k): a(k) = a(i): a(i) = tmp2

End If

Next i

For i = 1 To n

List1.AddItem Str(i) & " " & a(i) & " " & Str(b(i))

Next i

If n Mod 2 = 0 Then

median =                 

Else

median = b(n\2+1)

End If

Label1.Caption = "中位数是：" & Str(median)

End Sub

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

    随机产生 n 个不重复的整数存数组 a，并在列表框 list1 中显示。代码略。

End Sub

Private Sub Command1_Click()

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

    Dim imin1 As Integer, imin2 As Integer

    For i = 1 To n \ 2

      imin1 = i: imin2 = i + 1

    If a(imin1) > a(imin2) Then t = imin1: imin1 = imin2: imin2 = t

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

      If a(j) < a(imin1) Then

      imin2 = imin1: imin1 = j

      '①

      imin2 = j

    End If

Next j

If i <> imin1 Then t = a(i): a(i) = a(imin1): a(imin1) = t

If imin2 = i Then    '②

If n - i + 1 <> imin2 Then

    t = a(n - i + 1): a(n - i + 1) = a(imin2): a(imin2) = t

End if

Next i

For i = 1 To n

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

Next i

End Sub

①{#blank#}1{#/blank#}  ②{#blank#}2{#/blank#}

Dim a(1 To 1000) As Single, b(1 To 1000) As Integer Private Sub Form_Load()

Randomize    '生成 1000 个随机数 For i = 1 To 1000

       ①   '产生随机数，保留二位小数

   b(i) = 1                                           '初始排位为 1

   List1.AddItem "a(" & i & ")=" & a(i) Next i

End Sub

Private Sub Command1_Click()

Dim ks As Integer, js As Integer

ks = Val(Text1.Text)  

js = Val(Text2.Text)

For i = ks To js

  For j = ks To js

    If  Then b(i) = b(i) + 1         ②

  Next j

Text1  Text2

  List2.AddItem "a(" & i & ")" & "在 a(" & ks & ")~a(" & js & ")中排位为" & b(i) Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

n = 0 : i =1 : j = 7

Key = Val(Textl.Text)

f = False

Do While i <= j And Not f

   m = fix((i + j)/2+0.5)

   n = n + 1

       If key = d(m) Then

          f = True

       Elseif key > d(m) then

          j = m - 1

   Else

          i = m + 1

       end if

Loop

i=1

Do While <=6

    t= Int(Rnd*10)+1

    If t Mod 2=i Mod 2 Then a(i)=t: i=i+1

Loop

For i=1 To 2

    k=1

    For j=1 To 6-i*2

        If a(j)*k>a(j +2)*k Then

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

        End If

        k=-k

    Next j

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（   ）