每次将一张白纸沿垂直和水平中线对半撕成四张纸片，然后取其中一张纸片照这样再撕成四张纸片，一直这样下去，计算撕了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 事件处理过程代码编写

某算法的部分流程图如图所示，执行这部分流程后，变量 a，b 的值分别是（    ）

A．3，3

B．3，4

C．6，6

D．7，11

在Visual Basic 中,下列能作为变量名的是(  )

A．x+1

B．x_1

C．Or

D．If

在Visual Basic中，下列能作为变量名的是（ ）

A．5a

B．a5

C．if

D．dim

某排序算法的 VB 程序段如下：
K=1
For i = 1 To 2
For j = 1 To 6 - 2 ∗i
If K∗a(j) < K∗a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
K=-K
Next j
Next i
数组元素 a(1) ~a(6)的初始值依次为“10，15，8，35，26，17”，执行该程序段后，数组 a 元素的值分别为（   ）

A．8，10，15，17，26，35	B．35，26，17，15，10，8
C．26，35，10，17，8，15	D．26，15，10，17，8，35