【推荐1】执行下列VB程序段后，变量s的值等于15的是（   ）

A．A

B．B

C．C

D．D

【推荐2】有如下VB程序段：
s = Text1.Text
For i = 1 To Len(s)
       c = Mid(s, i, 1)
       If c >= "A" And c <= "Z" Then c =       ①      
       If c >= "a" And c <= "z" Then
             m =        ②        
             c = Chr(Asc("a") + m)
       End If
       s1 = s1 + c
Next i
Label1．Caption = s1
程序运行时，在文本框Text1中输入“ABC123xyz”，在标签框Label1中输出“bcd123yza”，则划线处的代码为（       ）

A．① Chr(Asc(c) + 32)        ②(Asc(c) - Asc("a")) Mod 26 + 1

B．① Chr(Asc(c) + 32)        ②(Asc(c) - Asc("a") + 1) Mod 26

C．① Chr(Asc(c) - 32)        ②(Asc(c) - Asc("a")) Mod 26 + 1

D．① Chr(Asc(c) - 32)        ②(Asc(c) - Asc("a") + 1) Mod 26

【推荐3】有如下程序段：
st = Text1.Text
1x = Len(st)
m = 0:k = 1
For i = 2 To 1x

If Mid(st, i, 1)> Mid(st, i-1, 1)   Then

k = k+1

If k = 2 Then m = m+1

Else

k = 1

End If

Next i
Text2. Text = Str(m)
若在Text1中输入"abcddecaab"，则该程序段运行后，文本框Text2中显示的内容是（       ）

A．2

B．3

C．4

D．1

【推荐1】某算法部分流程图如图所示。执行这部分流程，输入a，b的值分别为60，27，则输出值为（）

A．1

B．3

C．6

D．9

【推荐2】可以用二分法来求算术平方根近似值。对f(x)=x²来说，在x∈[1,2]的范围内，f(x)单调递增，这就给二分法创造了条件，例如求解√2 ，由于√2 是无理数，因此只能获得它的近似值，我们以一定精度为例来逼近√2。
（1）如果f(mid)>2，说明mid>√2，应当在[left,mid]的范围内继续逼近，故令right=mid。
（2）如果f(mid)<2，说明mid<√2，应当在[mid,right]的范围内继续逼近，故令left=mid。
为实现这一算法，编写VB程序如下：
Function f(x As Single) As Single

f = x ^ 2

End Function
Private Sub Command1_Click()

Dim i As Integer, j As Single, m As Single

Dim n As Integer

n = Val(text1.Text)

i = 1: j = 2

Do While j - i > 10 ^ -5

m = (i + j) / 2

If f(m) > n Then j = m Else i = m

Loop

label1.Caption = Str(n) & "的算术平方根近似值为" & Str(m)

End Sub
下面说法错误的是（       ）

A．该程序不可用于计算10的算术平方根

B．该程序的精度j、i差值小于等于10-5

C．代码“Function f(x As Single) As Single”不可修改为“Function f(x As Double) As Single”

D．代码中j=m可修改为j=m-1

【推荐3】以下表达式中，表示”a 大于等于b并且a小于c”的表达式是（     ）。

A．a≥b and a <c	B．a>="b" or a <c
C．a>="b" and a <c	D．a≥b or a <c