在平面坐标系中,给定任意个点,求出这些点中与点(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)最远的坐标点是_____________。