这篇博客讨论了VB.NET中关于直线斜率的一个问题，当直线垂直于X轴时，斜率不存在。作者发现将斜率设为FALSE会导致平行线判断逻辑错误，因为FALSE在VB.NET中等同于0。为解决这个问题，建议将slope变量定义为Object类型，并在斜率不存在时赋予一个非关键字的值，如'noSlope'，从而避免逻辑混淆。
' 本程序为学习而写 , 没有任何实际意义 VB.NET
Public Class Point
Private x As Single 'X Coordinate
Private y As Single 'Y Coordinate
..........................
End Class
Public Class Line
Inherits Point
Private vertexA As Point
Private vertexB As Point
Public Function SlopeOfLine() As Object
Dim slope As Single
If vertexA.propertyX = vertexB.propertyX Then
slope = False 'false stands for that this line' slope dosn't exist.
Else
slope = (vertexA.propertyY - vertexB.propertyY) / _
(vertexA.
最低0.47元/天 解锁文章
371
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
