题目

在平面坐标系中，给定任意个点，求出这些点中与点（1，1）距离最远的点。小李编写出了相应功能的程序：在文本框Text1中输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这些点到（1，1）的距离后，结果显示在列表框List1中，并且输出最大距离的点。程序运行界面如图所示。 （1） 由图可知，窗体中的对象共有类； （2） 实现上述功能的VB程序如下，请在画线处填入合适的代码。 Private Sub Command1_Click()     Dim i, k As Integer     Dim x1, y1, x2, y2 As Single     Dim v As Singie, maxd As Single     Dim s As String, pos zb As String     List1.Clear     s=Text1.Text     x1=1: y1=1     t="": k=1: j=1     List1.AddItem"坐标点" & "距离"     For i=1 To Len(s)         If Mid(s, i, 1)="," Then             v=Val(Mid(s,j,i-j))             j=             If k Mod 2=1 Then                 x2=v             Else                 y2=v                 d=Sqr((x2-x1)^2+(y2-y1)^2)                 If Then                     maxd=d                     pos="(" & Str(x2)& "," & Str(y2)& ")"                 End If                 List1.AddItem"(" & Str(x2)& "," & Str(y2)& ")" & Str(d)             End If             k=k+1         End If     Next i     Label1.Caption="距离（1, 1）最远的点为"& pos &"距离为"& Str(maxd) End Sub （3） 若文本框Text1中输入的内容为“31，41，26，51，1，56”，程序运行结束后，距离（1，1）最远的坐标点是。 答案： 【1】4 【1】i+ 1【2】d > maxd 【1】(26,51)

查看本题答案和解析