请大家帮我看下，谢谢...

Private Sub Command1_Click()
Dim Xa#, Ya#, Xb#, Yb#, detX#, tana#, ab#, du%, fen%, miao%, s#
Const Pi = 3.14159265358979
Xa = Val(txtXa.Text): Ya = Val(txtYa.Text)
Yb = Val(txtXb.Text):     Yb = Val(txtYb.Text)
detX = Xb - Xa: detY = Yb - Ya
If Abs(detX) < 0.00000001 Then
MsgBox "除数为零,请检查坐标输入是否正确！"
txtXa.SetFocus
Exit Sub
End If
s = Sqr(detX * detX + detY * detY)
If Abs(detX) < 0.000001 Then
If detY > 0 Then
ab = 90
Else
ab = 270
End If
Else
tana = datY / datX
ab = Atn(tana) '得到的是弧度
ab = ab * 180 / Pi
If detX < 0 Then
ab = 180 + ab
ElseIf detX > 0 And detY < 0 Then
ab = 360 + ab
End If
End If
du = Fix(ab): ab = (ab - du) * 60
fen = Fix(ab): ab = (ab - fen) * 60
miao = Fix(ab)
txtDu = Trim(Str(du)): txtFen = Trim(Str(fen)): txtMiao = Trim(Str(miao))
txtS.Text = Trim(Format(s, "0.0000"))

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text5_Change()

End Sub
--------------------编程问答-------------------- 蛋贴，还不知道LZ要干什么

补充：VB ,  基础类