在圖像編碼的算法中，需要將一個給定的方形矩陣進行Z字形掃描（Zigzag Scan），以獲得更好的壓縮比。給定一個n×n的矩陣，Z字形掃描的過程如圖所示：
??????經過掃描后得到的數據結果為：“57，45，0，0，0，0，23，0，-30，-16，0，0，1，0，0，0，0，…，0，0”，數據元素個數為64個。進一步經過壓縮后，最終得到行程編碼：“57，1，45，1，0，4，23，1，0，1，-30，1，-16，1，0，2，1，1，0，51”，數據元素個數為20個。
（1）行程編碼壓縮最壞情況下，數據壓縮后數據元素的數量將是原來的

2

2

倍。
（2）根據上述掃描算法，其 VB 代碼實現如下，請在橫線處填入合適的代碼。
Dim a（0 To 1000）As Integer'存儲原矩陣數據，按行優先存儲
Dim b（0 To 1000）As Integer'存儲Z形掃描后數據
Dim c（0 To 1000）As Integer'存儲行程編碼壓縮后數據
Dim n As Integer
‘矩陣導入代碼略，以行優先存儲在a數組中，如例子中數據存儲順序為“57，45，0，23，0，0…”
Private Sub Command2_Click （　?。?br />Dim choice As Integer'1：向右移動；2：向右上移動；3向下移動 4向左下移動
Dim row As Integer,col As Integer,i As Integer,j As Integer
Dim pre As Integer,count As Integer
choice=1：row=0：col=0：i=0
Do While （row＜＞n-1 Or col＜＞n-1）
b（i）=a（row*n+col）：i=i+1
If choice=1 Then

col=col+1

col=col+1

If row=0 Then choice=4 Else choice=2
ElseIf choice=2 Then
row=row-1：col=col+1
If

row=0 And col＜＞n-1

row=0 And col＜＞n-1

Then
choice=1
ElseIf col=n-1 Then
choice=3
End If
ElseIf choice=3 Then
row=row+1
If col=0 Then choice=2 Else choice=4
ElseIf choice=4 Then
row=row+1：col=col-1
If row=n-1 Then
choice=1
ElseIf col=0 Then
choice=3
End If
End If
Loop
b（i）=a（n*n-1）：j=0：pre=b（0）：count=0
For i=0 To n*n-1'輸出Z形序列，并進行行程壓縮
If pre=b（i）Then
count=count+1
Else
c（j）=pre：c（j+1）=count

count=1

count=1

pre=b（i）：j=j+2
End If
Next i
c（j）=pre：c（j+1）=count
Text1.Text=““
For i=0 To j+1
Text1.Text=Text1.Text+Str（c（i））+“，“
Next i
End Sub