在一次学校的运动会上,高一女子100米决赛的成绩已出来，前8名的成绩记录单由于不小心丢掉一张,只剩下7 个成绩,并已按成绩排序，分别是(单位:秒)14.5，15.1，16.5，16.8，17.1，17.5，17.9，后来找到了,请将找到的成绩插入相应的位置,使数据序列仍保持有序,并求出该成绩的名次。根据已有程序段,请补齐流程图中的空格。

程序如下：
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()
x = Val(Text2．Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3．text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1．Text)
List1．AddItem Str(a(n))
Text1．Text = "": Text1．SetFocus ‘准备在text1 接受下一个数据
End If
End Sub

下列说法或用法正确的是(  ）

A．OPTION   BASE   6

B．OPTION   BASE 语句的位置可以任意

C．DIM    A(6,3  TO  7)定义的是二维数组

D．数组元素的下标不能是负数。

为了求数列1²+3²+5²+7²+……+99²的和，以下说法错误的是（ ）。

A．求和通常采用累加器逐个累加，这题要重复累加50次。

B．这个问题通过循环结构解决。

C．在Visual Basic中只能用do语句编程解决这个问题。

D．解决这个问题的算法不需要输入。

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是(  )
Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer ’①
a(0) = 1     '②
For i = 1 To 5
a(i) = 2 * a(i - 1) + 1 '③
Next i
Text1.Text = Str(a(6)) '④
End Sub

A．①

B．②

C．③

D．④

变量a中存储了一个字符，能够正确判断该字符为数字字符“0”-“9”的VB表达式是（   ）

A．Asc(a)>="0" Or Asc(a)<=9

B．“0”<=a<=”9”

C．a<="”0”" Or a>=”9”

D．a>="”0”" and a<=”9”