在一个数据序列中，如果出现连续升序的几个数，称为一个升序序列，该序列中数的个数称为序列长度．用随机函数产生10个数据的序列，查找其中升序序列的个数及最大序列长度．程序运行界面如图所示：

（1）实现上述功能的代码如下，加框处有错，请改正．
（2）如图所示的序列中，程序运行后，变量t的值为

2

2

．
Dim a（1 to 10）As Integer
Private Sub form_-Load（　　）
'产生10个随机整数，并显示在标签Label1中
End sub
Private  Sub  answer_-Click（　　）
    Dim i As Integer,max As Integer,t As Integer,dz As Integer
    Max=0：t=1：dz=0
    For i='①
        If a（i）＜a（i+1）Then
          '②
         Else
            If max＜t Then  max=t
            If t＞1 Then dz=dz+1：t=1
         End If
      Next i
'以下程序代码处理最后几个数正好属于升序序列的情况
      If t＞1 Then
          If max＜t Then max=t
          dz=dz+1
      End If
      Text1．Text=Str（dz）
      Text2．Text=Str（max）
End Sub.