Dim a(1 To 100) As Integer '存儲(chǔ)壓縮數(shù)據(jù)，最大處理個(gè)數(shù)為100Dim b(1 To 1000) As Integer '存儲(chǔ)解壓縮數(shù)據(jù)，最大處理個(gè)數(shù)為1000Dim n As Integer '存儲(chǔ)壓縮數(shù)據(jù)的個(gè)數(shù)Private Sub Form_Load()'壓縮數(shù)據(jù)由上述壓縮方法生成'本過(guò)程用于讀取壓縮數(shù)據(jù)并存儲(chǔ)在數(shù)組a，壓縮數(shù)據(jù)個(gè)數(shù)存儲(chǔ)在變量n中'代碼略End SubPrivate Sub Command1_Click()Dim pa As Integer '存儲(chǔ)壓縮數(shù)組當(dāng)前處理位置Dim pb As Integer '存儲(chǔ)解壓縮數(shù)組當(dāng)前處理位置Dim firstdata As Integer, count As Integer, i As Integerpa = 1: pb = 1Do While pa <= nfirstdata = a(pa)If firstdata <> 0 Then '示例1情況處理b(pb) = firstdatapa = pa + 1: pb = pb + 1Elsecount = a(pa + 1)If count = 0 Then '示例2情況處理b(pb) = 0pa =____________: pb = pb + 1Else '示例3情況處理For i = 1 To count_____________Next ipa = pa + 3: pb = pb + countEnd IfEnd IfLoopText2.Text = Str(b(1))For i = 2 To _________Text2.Text = Text2.Text + "," + Str(b(i))Next i