在一個數(shù)據(jù)序列中，如果出現(xiàn)連續(xù)升序的幾個數(shù)，稱為一個升序序列，該序列中數(shù)的個數(shù)稱為序列長度．用隨機函數(shù)產(chǎn)生10個數(shù)據(jù)的序列，查找其中升序序列的個數(shù)及最大序列長度．程序運行界面如圖所示：

（1）實現(xiàn)上述功能的代碼如下，加框處有錯，請改正．
（2）如圖所示的序列中，程序運行后，變量t的值為

2

2

．
Dim a（1 to 10）As Integer
Private Sub form_-Load（　?。?br />'產(chǎn)生10個隨機整數(shù)，并顯示在標簽Label1中
End sub
Private  Sub  answer_-Click（　?。?br />    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
'以下程序代碼處理最后幾個數(shù)正好屬于升序序列的情況
      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.