学进去

从原点（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