16.【加試題】某地1900-1999年的平均降水量數據保存在數據庫中.現要求找出相鄰兩年年平均降水量變化(即本年度與上年度“年平均降水量”差值的絕對值)最大的年份區間.如果多個符合要求的年份區間,只輸入距今最近的.小吳為此編寫了VB程序,程序運行時,單擊按鈕Command1后,在文本框Text1中輸出運行結果.實現上述功能的VB代碼如下,但加框處代碼有錯,請改正. Dim w(1To 100)As Single'依次存儲1900-1999年的年平均降水量數據 Const n=100 Private Sub Form_Load( ) '本過程從數據庫中按1900-1999年依次讀取年平均降水量數據,并存儲在數組w中 '代碼略 End Sub Private Sub Command1_Click( ?。?br />Dim i As Integer,imax As Integer imax= For i=3 To n If Abs(w(i)-w(i-1))>= Then imax=i Next i Text1.Text=“年平均降水量變化最大的年份區間是“+Str(imax+1898)+“-“+Str(imax+1899) End Sub.
. (2)實現上述功能的VB程序如下.請在橫線處填入合適代碼. Dim a(1To 100)As Integer'存儲壓縮數據,最大處理個數為100 Dim b(1To 1000)As Integer'存儲解壓縮數據,最大處理個數為1000 Dim n As Integer'存儲壓縮數據的個數 Private Sub Form_Load ( ?。?br />'壓縮數據由上述壓縮方法生成 '本過程用于讀取壓縮數據并存儲在數組a,壓縮數據個數存儲在變量n中 '代碼略 End Sub Private Sub Command1_Click ( ) Dim pa As Integer'存儲壓縮數組當前處理位置 Dim pb As Integer'存儲解壓縮數組當前處理位置 Dim firstdata As Integer,count As Integer,i As Integer pa=1:pb=1 Do While pa<=n firstdata=a(pa) If firstdata<>0Then'示例1情況處理 b(pb)=firstdata pa=pa+1:pb=pb+1 Else count=a(pa+1) If count=0Then'示例2情況處理 b(pb)=0 pa= ①:pb=pb+1 Else'示例3情況處理 For i=1To count ② Next i pa=pa+3:pb=pb+count End If End If Loop Text2.Text=Str(b(1)) For i=2To ③ Text2.Text=Text2.Text+“,“+Str(b(i)) Next i End Sub.