有如下VB程序段：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
x = 1
For i = 1 To 5 Step 2
x = x + i
Text1.Text = Str(x)
Next i
End Sub 
则该程序运行后，文本框Text1中显示的数据个数是

A．1个

B．2个

C．3个

D．5个

以下程序段运行时出现如图所示的错误提示:
 For i=1 To 100
If Rnd>0.5 Then
n=n+1
Else
m=m+1
Next i
分析该程序段,该代码中缺少了(  )

A．For

B．End If

C．Next

D．If

下列VB程序段用于读取某数据库中的数据。相应数据表结构如图所示。

下列对于该程序段的理解正确的有
①程序连接的数据库文件名是“\mydata.accdb”
②程序打开的数据表名称是“Score”
③程序将数据表中的数学成绩存入数组b
④程序运行后，变量n的值表示该数据表中记录的总数
⑤关闭数据表的语句为adoConn.close

A．①②④

B．②③④

C．②④⑤

D．②③④⑤

（加试题）有如下VB程序段：
i = 1: j = 10：x=18
Do While i<= j
m = Int((i + j) / 2)
If x = f(m) Then  Exit Do
If x <f(m) Then  j = m - 1  Else i = m + 1
Loop
数组元素f(1)到f(10)的值依次为： 2,7,8,10,12,13,16,18,19,20，该程序段运行后，下列表达式值为True的是

A．i=m+1

B．j=m-1

C．j>m+1

D．i>m-1

有如下程序段：
tail = 6：i = 1：r = Val(Text1.Text)
Do While i < r
For j = tail To i + 1 Step -1
If a(j) > a(j - 1) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
i = i + 1
For j = i To tail - 1
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
tail = tail - 1
Loop
数组元素a(1)到a(6)的值依次为“73、56、28、61、44、92”，若在文本框Text1中输入“2”，则经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为

A．73,61,56,92,44,28	B．92,73,56,61,44,28
C．92,73,61,56,28,44	D．92,73,61,56,44,28