下列能作为VB变量名的是（）

A．2_x

B．String

C．Number

D．Score(i)

下面程序段是利用For语句给数组a赋值( )
For i= 1 To 5
a(i)=3*i+i^2
Next i
该程序段运行后数组元素a(5)的值为( )

A．40

B．15

C．28

D．18

下列变量定义正确的是( )

A．dim 1a as string	B．Dim a (1 to 4,2 to 9)as integer
C．dim boolean as string	D．Dim a as string integer

（加试题）某VB程序使用了递归函数，代码如下：
Private Sub Command1_Click()
Text1.Text = f(3)
End Sub
Function f(x As Integer) As String
If x = 1 Then  f = 1  Else  f = f(x - 1) + 2
End Function
运行程序并点击按钮Command1后，文本框Text1中显示的内容是（ ）

A．1

B．3

C．5

D．7

挤牛奶问题：如有三个农民每天清晨5点起床，然后去牛棚分别给3头牛挤奶。第一个农民在300时刻（从5点开始计时，秒为单位）给他的牛挤奶，一直到1000时刻（总共挤了700个时刻），第二个农民在700时刻开始，在1200时刻结束（总共挤了500个时刻）。第三个农民在1500时刻开始2100时刻结束（总共挤了600个时刻）。期间最长挤奶的连续时间为900秒（从300时刻到1200时刻），而最长的无人挤奶的连续时间为300时刻（因第二个农民在1200时刻已结束，而第三个农民从1500时刻才开始，中间有300时刻没有人在挤牛奶）。相应时刻如下图所示：

下面提供的程序是，从N个农民（1<N<=5000）挤N头牛的工作时间列表，计算出最长有人在挤牛奶的时间段与最长的无人挤牛奶的时间段。
下图为两组不同数据程序运行后界面；

请在划线处填入相应的代码，使程序功能完善。
Dim a(1 To 100) As Integer '存放农民挤牛奶开始时刻
Dim b(1 To 100) As Integer '存放农民挤牛奶结束时刻
Dim n As Integer '存放农民人数
Private Sub Form_Load()
‘获取农民的人数与各个农民开始挤牛奶与结束挤牛奶的时间，并在list1中输出
‘相应的代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim t As Integer, ymax As Integer, nmax As Integer
Dim btime As Integer, etime As Integer， flag As Boolean
flag = True: i = 1
Do While i <= ________And flag
flag = False
For j = 1 To n - i
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
t = b(j): b(j) = b(j + 1): b(j + 1) = t
flag = True
End If
Next j
i = i + 1
Loop
btime = a(1): etime = b(1)
ymax = etime - btime: nmax = 0
For i = 2 To n
If _______________________________Then
etime = b(i)
If etime - btime > ymax Then ymax = etime - btime
ElseIf etime < a(i) Then
If a(i) - etime > nmax Then nmax = a(i) - etime
btime = a(i): etime = b(i)
End If
Next i
Label2.Caption = "最长挤牛奶时间为：" + Str(ymax) + " 时刻"
Label3.Caption = "最长无人挤牛奶时间为：" + Str(nmax) + " 时刻"
End Sub

下列可作为VB变量名的是    ( )

A．true

B．we*6

C．dew3

D．3ABC

运行如下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．④

有一组数据23、12、56、34、10分别存放在一组变量数组a(1)―a(5)中，以下程序执行后，i的值是（   ）
Dim a(1 To 5) As Integer
Dim f As Boolean
a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10
i = 1: f = True
Do While i <= 5 And f = True
If a(i) = 56 Then f = False
i = i + 1
Loop
Label1.Caption = i

A．6

B．3

C．4

D．5

有如下程序段：
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

有如下程序段：
For i = 5 To 4 step -1
For j = 1 To i-1
If a(j) > a(i) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
数组元素a(1)到a(5)的值依次为“3，1，4, 2 ,5”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为(   )

A．1,2,3,4,5

B．2,1,3,4,5

C．3,1,2,4,5

D．1,3,2,4,5