定义变量s表示团购价，则在窗口上显示团购价的语句应该是？（   ）

A．label4.caption=str(s)	B．label4.text=val(s)
C．s=str(label4.caption)	D．s=val(label4.caption)

（加试题）数组a中存储的是一组正整数，特征是：①以三个数为一组的话，每组中任意一个数都比前面一组中的任意一个数要大；②每组中三个数依次递减；③数组中数的总个数为3的倍数。依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。

8

5

3

17

15

10

32

23

18

53

43

37

82

72

63

……

 
Private Sub Command1_Click()
Const n = 15
Dim a(1 To n) As Integer, search As Integer, key As Integer
Dim i As Integer, j As Integer, m As Integer
'读取一组正整数,按上述规则存入数组a中,代码略。
key = Val(Text1.Text)
i = 1: j = n: search = 0
Do While i <= j
m = (i + j) \ 2
If m Mod 3 <> 0 Then m= m -2   '(1) 把m调整到三个一组的最后一个数的位置
If key = a(m) Then
search = m : Exit Do
ElseIf key < a(m) Then
j = m - 3
ElseIf  key <= a(m - 2)  Then    '(2)
i = m + 1
ElseIf key = a(m - 2) Then
search = m - 2 : Exit Do
ElseIf key = a(m - 1) Then
search = m - 1 : Exit Do
Else
search = 0 : Exit Do
End If
Loop
If search <> 0 Then
Text2.Text = Str(search)
Else
Text2.Text = "找不到"
End If
End Sub
加框处代码应修改为：（1）【小题1】 （2）【小题2】

已知单调函数f(x)在0，1区间存在一个x₀，使f(x₀)＝0。现用对分查找法搜索x₀的值，开始搜索区间为0，1，若经过10次对分查找后还需继续搜索，则第11次搜索区间的长度为(  )

A．1/2	B．1/10
C．1/102	D．1/210

（加试题）小王编写了一个猜价格的VB程序，程序界面如图所示。程序运行时，在列表框List1中显示20个随机生成的在150,250之间的价格及其序号。在文本框Text1中输入报价，单击Command1 “猜测”按钮后，在Label3中输出猜中价格对应的序号。

实现上述功能的VB程序如下，但加框处代码有误，请改正。
Dim d(1 To 20) As Integer
Private Sub Form_Load()
For i = 1 To 20 '生成20个随机价格
d(i)=Int(Rnd*100)+150 ‘（1）________
Next i
For i = 1 To 19
For j = 20 To i + 1 Step -1
If  d(j) < d(j - 1) Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If

  Next j

Next i
For i = 1 To 20

List1.AddItem Str(i) + Str(d(i))

Next i
End Sub
Private Sub Command1_Click()
Dim baojia As Integer,i as integer, j as integer, t as integer , m as integer
Randomize
List1.Clear
baojia = Val(Text1.Text)
i = 1
j = 20
Do While i<= j
m=(i+j)/2   ‘（2）________
If  baojia = d(m) Then
Label3.Caption = "猜中  第" + Str(i) + "个"
Exit Do
ElseIf  baojia<d(m) Then
j = m - 1
Else
i=m-1 ‘（3）________
End If
Loop
End Sub

依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等0.3mg/ml 驾驶机动车的属酒后驾车；大于或等于1.0mg/ml 驾驶机动车的属醉酒驾车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。
解决此问题的流程图如图所示，
 
（1）该算法属于  （填：顺序/选择/循环）结构
（2）要在窗体Form1的标题栏内显示字符串“酒精测试”，需要更改的是 属性（填：name/caption/text）

（3）根据流程图编写的VB程序如下：
Private Sub Command1_Click( )
Dim x As Single
x =  Val(Text1.Text)  
If    ①   Then
Label2.Caption = "你属于醉酒驾车!"
 ②  x >=" 0.3" Then
Label2.Caption = "你属于酒后驾车!"
Else 
  ③  
End If   
End Sub
则划线处填入的语句为①  ②     ③ 。