在一個數據序列中，如果出現連續升序的幾個數，稱為一個升序序列，該序列中數的個數稱為序列長度．用隨機函數產生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.