关于vb解压缩方面的问题？

Question

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

Answer 1

pa + 2
b(pb + i - 1) = a(pa + 2)
UBound(b)