有没有小哥哥小姐姐会的呀，帮帮孩子吧

这个不象地理信息系统，到是很像数控专业的基础课程。
　　⒈　一个点（x, y）是否在两点【（x1, y1），（x2, y2）】构成的直线上，就看（x, y）与（x1, y1）构成直线的斜率，和（x, y）与（x2, y2）构成直线的斜率，是否相等。如果相等就说点在直线上。

　　⒉　由（ax1, ay1）、（ax2, ay2）构成的直线，是否与（bx1, by1）、（bx2, by2）构成的直线相交，就看两直线的斜率是否相等。如果不相等就说明两直线相交，否则两直线平行。

'　点（x, y）在 (x1, y1) 和 (x2, y2) 构成的直线上吗？
Function PointOnSegment(x#, y#, x1#, y1#, x2#, y2#) As Boolean
Dim K1 As Double, K2 As Double
K1 = 0: K2 = 0: PointOnSegment = False
If Abs(x1 - x) > 0.0000000001 Then K1 = (y - y1) / (x - x1)
If Abs(x2 - x) > 0.0000000001 Then K2 = (y - y2) / (x - x2)
If Abs(K1 - K2) < 0.0000000001 Then PointOnSegment = True
End Function

'　判断由(ax1, ay1)、(ax2, ay2) 所构成的直线，
'　是否与(bx1, by1)、(bx2, by2) 所构成的直线相交？
Public Function SegmentCross( _
ax1#, ay1#, ax2#, ay2#, bx1#, by1#, bx2#, by2#) As Boolean
Dim K1 As Double, K2 As Double
K1 = 0: k2 = 0: SegmentCross = False
If Abs(ax1 - ax2) > 0.0000000001 Then K1 = (ay1 - ay2) / (ax1 - ax2)
If Abs(bx1 - bx2) > 0.0000000001 Then K2 = (by1 - by2) / (bx1 - bx2)
If Abs(k1 - k2) > 0.0000000001 Then SegmentCross = True
End Function

Private Sub Command1_Click()
Dim x#, y#, x1#, y1#, x2#, y2#,
Dim cc As String
'　利用屏幕控件对三个坐标点赋值
cc = "点（" & CStr(x) & ", " & CStr(y) & "）"
If PointOnSegment(x, y, x1, y1, x2, y2) Then '　这里就是调用逻辑型自定义函数
cc = cc & "在已知直线上。"
Else
cc = cc & "不在已知直线上。"
End If
MsgBox cc, 0 + 64, "系统提示"
End Sub

50 50 30 50 80 50
80 50 30 50 80 50
85 50 30 50 80 50
25 50 30 50 80 50
50 55 30 50 80 50
80 55 30 50 80 50
85 55 30 50 80 50
25 55 30 50 80 50
20 25 20 10 20 40
20 10 20 10 20 40
20 45 20 10 20 40
25 25 20 10 20 40
25 10 20 10 20 40
25 45 20 10 20 40
—— 这是14 行，没有 20 行

50 50 30 50 80 50
80 50 30 50 80 50
85 50 30 50 80 50
25 50 30 50 80 50
50 55 30 50 80 50
80 55 30 50 80 50
85 55 30 50 80 50
25 55 30 50 80 50
20 25 20 10 20 40
20 10 20 10 20 40
20 45 20 10 20 40
25 25 20 10 20 40
25 10 20 10 20 40
25 45 20 10 20 40
20 25 10 10 30 40
30 40 10 10 30 40
40 55 30 40 10 10
20 30 10 10 30 40
30 45 10 10 30 40
40 60 30 40 10 10
—— 将数据复制后粘贴出来都不会吗？

做一个例程给你。自己慢慢学习吧。

希望今后问问题不要用【哪个会】这样的字眼。
因为你问的问题过于简单，会的人太多了。
你有什么问题就问什么问题。
例如：
我编了一个自定义函数，放在什么位置？怎么调用？
自定义函数的名字本身会携带计算值吗？
自定义函数携带的参数，在函数内变化后，可以携带到主调程序中去吗？

　　在大学里，老师不会象中小学那样给你慢慢讲，能提到一下就不错了。关键是自己要拼命去学习，要把书看到老师讲课的前面去，再回过头来听老师是怎么讲的。
　　也就是说，老师讲的内容你基本都会了，才去听课。这就是大学的学习方法。
　　大学里面就是培养自学能力的，只要教材里面有的内容，不要去说【没有学过】这样的话。这在大学里面是无能的表现。其实书上有的内容并不难，难的是自己要根据这些内容、知识、技能来完成实际的任务。
　　上了大学，基本的学习方法都不会，以后怎么出来应付工作哟。
　　在以后的工作岗位上，你会说【这个我没有学过，所以不会做】这样的话吗？哈哈哈