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

下列为部分VB程序语句代码：(    )
s=32
For i="1" To 10 Step
s=s/2
Next i
上述程序语句执行结束后，s的值为2，则循环语句的步长（划横线处）应填(    )

A．1

B．2

C．3

D．4

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 10
a(i) =" a(i-1)" + i
Next i
Text1.Text = Str(a(5))
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（   ）

A．5

B．10

C．15

D．21

在Visual Basic中，若a=4，b=3，c=10，则执行完下列语句后，变量c的值为(    )
If a+b>c Then
c=a+1
Else
c=b-1
End If

A．2

B．10

C．5

D．4

程序运行界面如图所示。要求在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为(    )

A．Command1_Click

B．Text1_Click

C．Form_Click

D．Label2_Click

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“类型不匹配”错误时所执行的语句是（ ）

Private Sub Command1_Click()
Dim a As String, b As String, c As Integer
a = "Good"    '①
b = "bye"     '②
c =__________1__________'③
Text1.Text =" a" + b + c '④
End Sub

A．①

B．②

C．③

D．④

下列数据在类型属于Integer整数型的是( )

A．10.00

B．9876

C．32321

D．False

在Visual Basic 中，下列优先级最高的运算符是(    )

A．*

B．\

C．<

D．Not

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是 ，文本框Text2中显示的内容是 。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0"
n=10
for i =" 2" to 10 step 3[:Zxxk.Com]
If  n  Mod  i =" 0"  Then 
c = c+i
else
c=" c" * i
end if
next i
Text1.Text = Str(i)
Text2.Text = Str(c)
End Sub

有如下Visual Basic程序段：
s=1
for i=" 1" to 11 step 3
s=s*i
next i
语句s=s*i共执行的次数为（   ）

A．11

B．10

C．5

D．4