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

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

2

2

．
Dim a（1 to 10）As Integer
Private Sub form_-Load（　?。?br />'產(chǎn)生10個(gè)隨機(jī)整數(shù)，并顯示在標(biāo)簽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
'以下程序代碼處理最后幾個(gè)數(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.