数组d中的数据存放情况如下表，以下流程图的功能是（    ）  。

d(1)	d(2)	d(3)	d(4)	d(5)	d(6)
15	10	33	11	71	9

 

A．在数组d中顺序查找10，找遍所有数据后，若找到输出”Y”，若没找到则输出”N”。

B．在数组d中顺序查找10，一旦找到则结束查找并输出”Y”；若找遍所有数据后仍没找到则输出”N”。

C．在数组d中顺序查找10，一旦找到则输出其存储位置

D．在数组d中顺序查找、统计10的个数并输出

某超市进行打折促销。单次购物总价p（单位：元）小于100时享受98折优惠，100 ≤ p < 500时享受95折优惠，500≤p时享受9折优惠。请你补完算法流程图。

图中：

处应该填写_________________ 
处应该填写_________________

小徐编写程序计算1+2+3+4+...+100的和。但是发现他的程序不能给出正确答案。请你帮他查找程序中错误的地方，并予以改正。

 

第___句存在错误，
该句应该改为________________（完整书写）

将数学表达式，写作为对应的VB表达式_____________________

写出算法执行结果

当X分别为0，6时，表达式X<5 or X>=6 and not (X>=6)的值分别为（ ）。

A．true，false	B．true，true
C．false，true	D．false，false

将浮点数型变量S的值保留两位小数（含四舍五入），
书写VB表达式_____________________________________

写出算法执行结果

（加试题） 数组 a 中依次存放 6 个有序数据“ 23 33 44 55 66 77”。
Dim a(1 To 10) As Integer
Dim s As String, n, key As Integer
a(1) = 23: a(2) = 33: a(3) = 44: a(4) = 55: a(5) = 66: a(6) = 77
i = 1: j = 6: c = 0: key = 35
Do While i <= j
c = c + 1
m = (i + j) \ 2
If (j - i + 1) Mod 2 = 0 Then m = m + 1
If a(m) = key Then Exit Do
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
该程序段运行后，下列各变量的值不正确的是：

A．i=3

B．j=2

C．c=3

D．m=2

（加试题） 有如下 VB 程序段：
Dim a(1 To 10) As Integer
Dim s As String, n, i As Integer
s = "54851845236": n = Len(s)
For i = 1 To n - 1
a(i) = Val(Mid(s, i, 2))
Next i
For i = 1 To n - 2
k = i
For j = i + 1 To n - 1
If a(k) < a(j) Then k = j
Next
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
End If
Next i
Text1.Text = Str(a(1))
该程序段运行后，文本框 Text1 中显示的内容是：

A．18

B．54

C．85

D．8