小杨在上信息技术课时，为了计算100以内所有能被7整除的数之和，画了如下图所示流程图，则空白处应该填写的赋值语句是：（   ）

A．i ←i+7

B．i ← i*7

C．i ← 7

D．i ← S+7

下列VB程序运行时，单击命令按钮Command1后，标签框Label2中显示的内容是________
Private Sub Command1_click()
Dim s as integer,I as integer
S=0
For i="1" to 20 step 3
s=s+(-1)^i*i
Next i
Label1.caption=str(i)
Label2.caption=str(s)
End Sub

方格填数。在n个连续的方格内填写字母A或B但相邻两格内不能都填B。求所有可能的填写方案数。例如，n=3，可能的方案有AAA、AAB、ABA、BAA、BAB等5种
以下VB程序用于解决这个问题，在文本框Text1输入n的值，点击“求解”按钮 command1后，在列表框List1中输出所有方案。运行界面如下图所示：
提示：若用0代表A，用1代表B，那么每一种方案都对应一个n位的二进制数。

（1）要使command1按钮上显示的文本改为“求解”，可在其属性窗口中将_____（填属性名）属性的属性值改为“求解”。
实现上述功能的程序如下：
Private Sub Command1_Click ()

Dim n As Integer, m As Integer, k As Integer

Dim flag As **

Dim i As Integer, j As Integer

Dim a(1 To 1000) As Integer

①    

List1. Clear  '清空文本框list1

s = ""

For i =0 To ②

'每一种方案对应一个n位的二进制数,枚举i对应的方案是否符合要求
m =i
For j=1 To n
a(j)= m Mod 2
③  
Next j
flag =True
For 
If a(k-1)= a(k) And a(k)= 1 Then
flag = False
End IF
Next k
If flag Then
For k= 1 To n
If a (k) = 1 Then s = "B" + s Else s = "A" + s
Next k
List1. AddItem s
End If
s = ""

Next i

End Sub
（2）阅读代码，变量flag的数据类型应定义为_____
（3）加框处代码有错，请改正：__________
（4）请在划线处填入合适的代码：
①__________
②__________
③__________ 

对象是由一组表示对象状态的数据和一组描述处理对象属性的方法(行为)的代码构成；（   ）

从原点（0，0）出发，顺时针旋转，经过平面上所有整点恰好一次，我们称之为螺旋折线，如图所示。对于整点（x，y），我们定义它到原点的距离是从原点到（x，y）的螺旋折线段的长度。例如：x=0，y=1，则螺旋折线段的长度为3；x=-2，y=-1，则螺旋折线段的长度为9。

现要求计算从原点到整点（x，y）螺旋折线段的长度。小王根据上述描述设计如下VB程序，请回答下列问题：
（1）从原点到整点（4，0）螺旋折线段的长度为____________。
（2）请在画线处填入合适的代码。
Dim x As Integer,y As Integer    'x用于存储横坐标的值,y用于存储纵坐标的值
Private Sub Command1 _ Click()
Dim sum As Integer,m As Integer
Dim dx As Integer,dy As Integer
Dim i As Integer,t As Integer
x=Val(Text1. Text)
y =Val(Text2. Text)
dx = 0:dy=0
sum=0
m=1:t=-1
Do While not check(dx,dy)
For i=1 To m
If check(dx,dy)Then exit do    'Exit do表示退出Do循环
dx = dx+t
sum = sum+1
Next i
①_____
For i=1 To m
If check(dx,dy)Then Exit Do
②_____
sum = sum + 1
Next i
m=m+1
Loop
Label1. Caption= Str(sum)
End sub
Function check(xl As Integer,y1 As Integer)As Boolean
check = False
If x1=x And y1=yThen
③_____
End If
End function