设某汉字由７×７的０、１点阵图案组成。依照以下规则生成压缩码：连续一组数值，从汉字点阵图案的第一行第一个符号开始计算，按书写顺序由左到右，从上到下。压缩码第一个数表示起始的数字（例如０），第二个数表示连续有几个０，第三个数表示接下来连续有几个１，第四个数表示接下来连续有几个０，第五个数表示接下来连续有几个１，以此类推……
例如，以下汉字点阵图案：
０００１０００
０００１０００
０００１１１１
０００１０００
０００１０００
０００１０００
１１１１１１１
对应的压缩码是０３１６１６４３１６１６１３７（第一个数是０，表示一开始时的数字为０）。

（１）   请将程序代码补充完整。
Private Sub Command1_Click()
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
　　ｃ＝________________　　　'
Next i
End Sub
（２）现给出如下点阵图，则压缩码为_________________________________。

有如下VB程序段：
Private Sub Text1_Change()
Dim a, i As Integer
a= Val(Text1.Text)
For i = 2 To 6 Step 2
If a<= 15 Then a = a + i
Next i
Text1.Text = Str(a)
End Sub
若在文本框 Text1 中输入2，执行该程序段，For语句的循环次数为（）

A．3

B．5

C．6

D．9

求两个整数的最大公约数分析：求最大公约数的算法思想：
（1）对于已知两数m，n，使得m>n；
（2）m除以n得余数r；
（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；
（4）m←n，n←r，再重复执行(2)。
例如: 求 m="14" ,n="6" 的最大公约数.
M n r
14 6 2
6 2 0
请根据以上思路补充下面的程序代码：
Private Sub Command1_Click()
m = InputBox("m=")
n = InputBox("n=")
If m < n  Then  t =" m:" m =" n:" n = t
r = ________________
Do While (r <> 0)
m = n
n = r
r =" m" Mod n
Loop
Print "最大公约数=", n
End Sub

（加试题）有如下程序段，若有如下数据：64, 57, 22, 96, 71，分别存储在a(1)至a(5)中，经过以下程序段处理后的数据依次为
Dim  a(1 To 6)  As Integer
s = 0
For  i = 1 To 5
If  a(i) Mod 2 = 1  Then  s = s + 1
Next  i
For  i = 1 To 4
If  a(i) Mod 2 = 0  Then
For  j = 5 To i + 1 Step -1
If  a(j) Mod 2 = 1  Then
a(6) = a(i): a(i) = a(j): a(j) = a(6): Exit For
End If
Next  j
End If
Next  i
For  i = s + 2 To 5
k = i - 1
For  j = i To 5
If  a(k) > a(j)  Then  k = j
Next  j
If k <> i - 1 Then
a(6) = a(i - 1): a(i - 1) = a(k): a(k) = a(6)
End If
Next  i

A．22, 57, 64, 71, 96	B．71, 57, 22, 96, 64
C．71, 57, 22, 64, 96	D．57, 71, 22, 64, 96

每次将一张白纸沿垂直和水平中线对半撕成四张纸片，然后取其中一张纸片照这样再撕成四张纸片，一直这样下去，计算撕了n次后纸片的总张数，现在要用VB来实现该程序。程序界面及功能如下图所示，在文本框中输入撕的次数，单击计算按钮，显示纸片数。

请完善并改正下面的程序代码：
Private Sub Command1_Click()
Dim i, n, s As Integer
n =" Val(Text1." Caption)   ‘① 获得撕纸片的次数
s=1 ‘s为纸片数，初始时为1
For i =" 1" To n
  ② ‘计算撕了n次后的纸片数量
Next i
Label2.Caption = Str(s) 显示最终的纸片数
End Sub
注释①所在行语句中有错误,应改为_____________
在横线②中填入正确的语句_______________
在用VB设计应用程序时，一般经历的阶段的正确顺序是__________（填字母顺序）
a 运行调试程序   b 问题和算法分析
c 应用程序界面设计 d 事件处理过程代码编写