⑴根据每试场安排的人数，判断输入的试场号是否在试场总数范围内，若是则转到⑵，否则重输试场号；

⑵根据考生次序和试场人数，计算每一考生所在试场号存入数组sc；

⑶计算考生在本试场中的次序，再根据试场安排的排数，计算考生座位所在的组数和排数，分别存人数组z和数组P。座位分布为“S”形，奇数组和偶数组座位排列顺序不同。

根据以上算法编写VB程序，在文本框Text1中输入组数，在文本框Text2中输入排数，在文本框Text3中输入试场号，单击“查询”按钮Command1，在List1中显示该试场座位表(名字前的数字是考生在名单中的次序)，运行界面如图2所示。

小敏编写了一个VB程序，用来求一个偶数（6到100之间）可能存在多少这样是素数岁（注：A+B与B+A认为是相同素数对，不重复统计），并把这些结果输出到一个列表框中，通过逻辑推理，小敏发现这些素数对都是奇数，所以她只需要验证奇数的素数对即可，运行界面如图所示，程序代码如下。但加框处代码有错误，请改正。

Dim IsPrime(100)As B00lean  ‘用来存储是否素数，True为素数，False为非素数

privatw Suh Command1_Click()

Dim x As Integer，y As Integer，i As Integer，num As Integer

Call Init              ‘调用Init函数

x=Val(Text1．Text)

y=x＼2

num==0

For i==3 To y Step 2

If  Then                  ‘①

    num=num+1

    List1．AddItem Str(x)+“=”+Str(i)+“+”+Str(x-i)

End If

 Next i

Label2.Caption=“偶数”+Str(x)+“共有”+Str(num)+“个素数对。”

End Sub

Sub Init()           ‘初始化IsPrime数组的值

  Dim i As Integer．j As Integer，X As Integer

  For i=3 To 100 Step 2

    X=Int(Sqr(i))

    For  Step 2                ‘②

    If i Mod j=0 Then Exit For

    Next j

    If i>x Then IsPrime(i)-True Else IsPrime(i)=False

  Next i

End Sub

①处加框代码应该为{#blank#}1{#/blank#}。

②处加框代码应该为{#blank#}2{#/blank#}。

  a = "360"

  b = Val(a)

  c = Len(a)

  If b > c Then

    Label1.Caption = "取数值"

  Else

    Label1.Caption = "取字符"

  End If

该程序段运行后，在标签Label1上显示的是{#blank#}1{#/blank#}。

Dim a(1To 5)As Integer

i=1:n=5

Randomize

For i=1 To n

    x=Int(Rnd*10)*2+1

    If(x Mod 10+x\10)Mod 2=0 Then

        a(i)=x

    Else

        a(n-i+1)=x

    End If

Next i

数组元素的初值均为0，执行该程序段后，a（1）至a（5）的值可能的是（    ）