编程实现加法运算，在两个文本框中输入加数，用标签表示结果，单击按钮进行计算，完成下列计算过程。
Private Sub Command1_Click()
Dim AAs Integer,B As Integer
A= (6)
B=Val(Text2.Text)
(7) =A+B
End Sub

某船TC₃57°，测灯塔A的TB330°.5，半小时后又测得A的TB312°，若船速为16kn，则该船与A的正横距离为（）。

A．8′

B．7′

C．5′.6

D．6′