Dim a(1 To 100) As Integer '存儲壓縮數據，最大處理個數為100Dim b(1 To 1000) As Integer '存儲解壓縮數據，最大處理個數為1000Dim n As Integer '存儲壓縮數據的個數Private Sub Form_Load()'壓縮數據由上述壓縮方法生成'本過程用于讀取壓縮數據并存儲在數組a，壓縮數據個數存儲在變量n中'代碼略End SubPrivate Sub Command1_Click()Dim pa As Integer '存儲壓縮數組當前處理位置Dim pb As Integer '存儲解壓縮數組當前處理位置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