i=1:j=10

  Key=Val(Text1．Text)

    If a(m)=Key Then Exit Do      ‘Exit Do表示退出循环

    If Key Mod 2=1 And a (m)Mod 2=0 Then

    ElseIf Key Mod 2=0 And a(m)Mod 2=1 Then

Else

End If

  Loop

  If i>j Then s=“没有找到!”Else s=“位置：”+Str(m)

  Text2.Text=s

  上述程序中方框处可选语句为：

    ①i=m+1

    ②j=m-1

    @If Key<a(m)Then j=m-1 Else i=m+1

则(1)(2)(3)处语句依次是（  ）

综上所述：原文为Jim is at room 4！，加密后输出密文为：NMQ MW EX VSSQ 2！

Private Sub Command1_Click()

 Dim a(1 To 8) As Integer

 Dim n, i, j, x As Integer

 List1.Clear

 List2.Clear

 a(1) = -5: a(2) = 3: a(3) = 4: a(4) = 12: a(5) = 20: a(6) = 45: a(7) = 70

 For j = 1 To 7

  List1.AddItem Str(a(j))

 Next j

 x = Val(Text1.Text)

 i = 1

 Do While x > a(i) And i < 8 ’找x的插入位置

  ① 

 Loop

 For j = 8 To i + 1 Step -1 ’移动数据

  ② 

 Next j

 a(i) = x

 For j = 1 To 8

  List2.AddItem Str(a(j))

 Next j

 Label1.Caption = “插入的位置是” &Str(i)

End Sub

参赛班级用数字1，2，3，4……number表示，依次存入数组a(1)～a(number)，若1号班级的编号为5，则a(1)=5。