有如下程序段：
i = 1: j = 8: count = 0:
f = False
Key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2

If a(m) = Key Then

count = count + 1
f = True
End If
If a(m) < Key Then
i = m + 1
Else
j = m - 1
End If Loop
数组元素 a(1)到 a(8)分别为 1,2,3,4,5,6,6,7，在 Text1 输入6,执行该程序段后，下 面 说法正确的是

A．f 的值为 False

B．j 的值为 5

C．count 的值为 2

D．m 的值为 6

VB中窗体文件的扩展名是( )

A．VBP

B．FRM

C．VBW

D．PDM

数组a中存储的是左右交替上升的n个正整数，如下表所示：

a（1）	a（2）	a（3）	……	a（n —2）	a（n—1）	a（n）
3	25	38	……	55	31	12

 
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = Val（Text1. Text）
i = 1
j = （n + 1） \ 2
flag = False
Do While i<j And Not flag '（1）
m = （i + j） \ 2
If key = a（m） Then
flag = True
ElseIf key< a（m） Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a（m） Then flag = True
End If
If flag Then
Text2. Text = Str（m）
Else
Text2. Text = "找不到"
End If
End Sub

有如下VB程序段：
a(1)= 5:a(2)= 3:a(3)= 6:a(4)= 8:a(5)= 9
For i = 0 To 10
b(i)= i
Next i
j = 0
For i = 1 To 5
b(j)= a(i):j = b(j)
Next i
j = 0:key = Val(Text1.Text)
Do While j < > b(j)
If key < > b(j) Then
List1. AddItem Str(b(j))
j = b(j)
Else
If b(b(j)) < > b(j)Then
t = b(j):b(j)= b(t):b(t)= t
Else
b(j)= j
End If
End If
Loop
运行该程序段，在文本框Text1中输入6，则列表框List1中第3行显示的内容为（ ）

A．3

B．5

C．8

D．9

（加试题）有如下VB程序段：
Dim a(1 To 6) As String
Text1.Text = ""
For i = 1 To 3
For j = 1 To 6 - i
If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Text1.Text = Text1.Text + a(j)
Next i
数组元素a(1)到a(6)的值依次是“231”，“123”，“12”，“59”，“41”，“33”。若该程序段执 行后，文本框Text1显示的内容是（   ）

A．123341

B．23112359

C．12123231

D．594133