画线函数一段，来抄作业了
Public Sub LineLQ(IStartx As Single, IStarty As Single, L As Single, Q As Single)
Dim OutX As Single, OutY As Single
Dim iQ As Single
iQ = -Q / 180 * 3.1415926
OutX = Cos(iQ) * L + IStartx
OutY = Sin(iQ) * L + IStarty
Line (IStartx, IStarty)-(OutX, OutY)
End Sub
Public Sub LineLQ(IStartx As Single, IStarty As Single, L As Single, Q As Single)
Dim OutX As Single, OutY As Single
Dim iQ As Single
iQ = -Q / 180 * 3.1415926
OutX = Cos(iQ) * L + IStartx
OutY = Sin(iQ) * L + IStarty
Line (IStartx, IStarty)-(OutX, OutY)
End Sub
