設(shè)某漢字由7×7 的0、1 點(diǎn)陣圖案組成。依照以下規(guī)則生成壓縮碼：連續(xù)一組數(shù)值，從漢字點(diǎn)陣圖案的第一行第一個(gè)符號開始計(jì)算，按書寫順序由左到右，從上到下。壓縮碼第一個(gè)數(shù)表示起始的數(shù)字（例如0），第二個(gè)數(shù)表示連續(xù)有幾個(gè)0，第三個(gè)數(shù)表示接下來連續(xù)有幾個(gè)1，第四個(gè)數(shù)表示接下來連續(xù)有幾個(gè)0，第五個(gè)數(shù)表示接下來連續(xù)有幾個(gè)1，以此類推……
例如，以下漢字點(diǎn)陣圖案：
0001000
0001000
0001111
0001000
0001000
0001000
1111111
對應(yīng)的壓縮碼是031616431616137（第一個(gè)數(shù)是0，表示一開始時(shí)的數(shù)字為0）。
（1）請將程序代碼補(bǔ)充完整。
Private Sub Command1_Click （　?。?br />Dim code As String,c As Integer,res As String,k As Integer
code=Text1．Text
k=0
res=″″
c=Val（Mid（code,1，1））
For i=2 To Len（code）
For j=1 To Val（Mid（code,i,1））'
res=

①

①

②

②

If k=7 Then
List1．AddItem　 res
k=0
res=″″
End If
Next j
c=

③

③

'
Next i
End Sub
（2）現(xiàn)給出如下點(diǎn)陣圖：

則壓縮碼為

0383591123482

0383591123482

。