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

现要求计算从原点到整点（x，y）螺旋折线段的长度。小王根据上述描述设计如下VB程序，请回答下列问题：

1. （1） 从原点到整点（4，0）螺旋折线段的长度为。
3. （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=y Then

           

       End If

   End function