题目

从原点（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=y Then              End If End function 答案： 【1】68 【1】t=-t【2】dy=dy+t【3】check=True

查看本题答案和解析