有如下VB程序段：
Dim a(1 To 10) As Integer
s = "7218634594": n = Len(s)
t = 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
temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1
End If
Next i
Text1.Text = Str(t)
该程序段运行后，文本框Text1中显示的内容是

A．1	B．2
C．3	D．4

Visual Basic表达式x^2+k/(1+a*x-b))对应的数学式子为__ ____。

“如果a，b中任意一个为0，那么y=y+l”。能实现该功能的VB语句是（   ）

A．If a="0" And b="0" Then y=y+1

B．If a*b="0" Then y=y+1

C．If a="0,b=0" Then y=y+1

D．If a,b="0" Then y=y+1

某算法流程图如图所示，执行该算法后，“s←s+i”共被执行的次数是（    ）

A．0

B．6

C．7

D．8

对以下程序段的说法正确的是（   ）
s=0
i=0
Do While s<10
i=i+1
s=s+i*i
Loop

A．该程序的循环体执行了3次

B．该程序段结束后i的值为3

C．该程序段结束后i的值为4

D．该程序段结束后s的值为13