Dim a(1 To 10) As Integer

 Dim s(1 To 10) As Integer

 Private Sub Form_Load()

  a(1) = 3: a(2) = 6: a(3) = 8: a(4) = 4: a(5) = 9

  a(6) = 5: a(7) = 3: a(8) = 3: a(9) = 10: a(10) = 5

 End Sub

 Private Sub Command1_Click()

 Dim i As Integer, t As Integer

 s(1) = a(1)

 For i = 2 To 10

  s(i) = s(i - 1) + a(i)

 Next i

 t = s(8) - s(4)

 Text1.Text = Str(t)

End Sub

程序运行后，文本框Text1显示的内容是（  ）

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim a(1 To 999) As Integer

Dim n As Integer

Dim s As String

For i=1 To 999

 a(i)=0

Next i

n=Val(Text1.Text)

s =“”

Do While n<>1     ‘分解质因子过程并统计质因子出现次数

For i = 2 To n

 Do While n Mod i = 0

  s = s&“  ”&i

  a(i)= a(i)+1

       ‘①

 Loop

Next i

Loop

Label4.Caption =“质因子分解过程:” +s

For j = 2 To 999     ‘判断是不是漂亮数

 If Then      ‘②

  Label1.Caption = “不是漂亮数”

  Exit For

 Else

  Label1.Caption =“漂亮数”

  End If

Next j

For j = 2 To 999     ‘在列表框输出质因数及对应的乘方数

 If a(j)>0 Then

  List1.Additem Str(j)+“ ”+Str(a(j))

 End If

Next j

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

具体算法描述如下：

⑴将文本框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程序如下，请回答下列问题：