s = 1: t = 1

If a > 0 Then s = s + 1

If a > b Then

t = s + t

ElseIf a = b Then

t = 5

Else

t = 2 * t

End If

Dim x As Integer, y As Integer, s As Integer

    x=3:y=4

    If x<y And y<0 Then

        s=x Mod y

    ElseIf y>0 and y<x Then

        s=x*y

    ElseIf x=0 Or y=0 Then

        s=x+y

    Else

        s=0

    End If

该程序段运行之后，变量s的值为（  ）

Const n = 8

Dim a(1 To n) As Integer

For i = 1 To n

    a(i) = Int(Rnd * 20)

Next i

x = n \ 2

For i = x To 2 Step -1

    For j = 1 To i - 1

      If a(j) < a(i) Then

        t = a(j): a(j) = a(i): a(i) = t

      End If

    Next j

Next i

i = n

Do While i > x + 1

    k = i

    For j = i - 1 To x + 1 Step -1

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

    Next j

    If k <> i Then

      t = a(k): a(k) = a(i): a(i) = t

    End If

    i = i - 1

Loop

执行完这段代码后，数组 a 中各个元素的值可能的是（  ）

Dim a(1 to 20) As Integer

For i=2 to 10

For j=2 to 20\i

a(i*j)=a(i*j) +1

Next j

Next i

该程序段运行后，数组a中元素值为0的个数是（  ）

用于输出“购全价票”的图框编号是（  ）

a(1)=2: a(2)=6: a(3)=8: a(4)=9: a(5)=12

a(6)=15: a(7)=17: a(8)=18: a(9)=22: a(10)=30

k=Val(Text1.Text)

i=1: j=10

Do While i <=j

 m=(i+j) \ 2

 If a(m) <=k Then

    i=m+1

 Else

    j=m-1

 End If

Loop

Text2.Text=Str(a(i))+"← →"+Str(a(j))

程序运行时，文本框Text1中输入5，文本框Text2中显示的内容是（  ）