在VB编程中，我们使用函数与过程是为了( )

A．使程序模块化	B．使程序易于阅读
C．提高程序运行速度	D．便于系统的编译

返回指定日期“月份”的函数是（  ）

A．Date()

B．Day()

C．Year()

D．Month()

求最长升序子序列的长度。一个数的序列bi，当b1<b2<…<bS的时候，我们称这个序列是升序的。对于给定的一个序列（al，a2，…，aN），我们可以得到一些升序的子序列（ail，ai2，…，aiK），这里1<=il<i2<……<iK<=N。比如，对于序列（1，7，3，5，9，4，8），有它的一些升序子序列，如（1，7），（3，4，8）等等。这些子序列中最长的长度是4，比如子序列（1，3，5，8），小王设计VB程序用于求最长升序子序列的长度，在文本框Text1中输入n个各不相同的数据（各数据之间以逗号隔开），单击“求解”按钮Command1后在标签Labell中输出最长升序子序列的长度，运行界面如图所示。

具体算法描述如下：
①将文本框Text1中的n个数据依次读取到数组a中；
②构造一个数组b（j），j表示升序子序列的长度，b（j）的值表示所有j长度升序序列中最小的末尾元素值。例：序列（2，6，4，5），长度为2的子序列有（2，6），（2，4），（2，5），（4，5），则b（2）=4；
③从第1个元素开始，依次处理到第i（1≤i≤n）个元素为止，b数组所能达到的最大下标值maxlen，处理过程分两种情况：
a）a（i）>b（maxlen），则最长升序子序列的长度增加；
b）a（i）<b（maxlen），则在数组b中逆序查找到第一个b（j）>a（i）（maxlen-1≤j<1），更新数组b中升序子序列长度为j+1时所存储的元素值。
以图中数据为例：

④数组b的最大下标值即为最长升序子序列的长度。
实现上述过程的VB程序如下，请回答下列问题：
（1）若在文本框Text1中输入的序列为（4，7，9，8，6），则数组元素b(2)的值为_____________。
（2）请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a(1 To 100)As Integer存储原序列
Dim b(1 To 100)As Integer存储各长度序列的最小末尾元素
Dim s As String
Dim n As Integer,i As Integer,j As Integer,maxlen As Integer
S=Text1.Text
n=1:j=1
For i=1 To Len(s)

c=Mid(s,i,1)

If c=,Then

a(n)=Mid(s,j,i-j)
n=n+1
j=i+1
End If
Next i
①______
maxlen=1:b(1)=a(1)
For i=2 To n
If a(i)>b(maxlen) Then
maxlen=maxlen+1
b(maxlen) =a(i)
Else
j=maxlen-1:flag=True
Do While j>=1 And flag
If a(i)>b(i)Then
②______
flag = False
End If
j=j-1
Loop
If③______Then b(1)=a(i)
End If
Next i
Label1.Caption="最长升序子序列的长度为:"+Str(maxlen)
End Sub

Len(x)是一个要求字符串长度的函数。例如Len(“abcd”)返回的是4，Len(“ab cd”)返回的是5。据此判断，下列选项正确的是_______。

A．Len(“Shaanxibeilu500”)返回的是3

B．Len(“Shaanxibeilu500”)返回的是12

C．Len(“Shaanxibeilu500”)返回的是0

D．Len(“Shaanxibeilu500”)返回的是15

以下流程图的运行结果是_______。

A．4 9	B．5 9
C．4 5	D．9 5