一艘轮船由南向北航行，在A处测得小岛P在北偏西15°方向上，2小时后，轮船在B处测得小岛P在北偏西30°方向上，在小岛周围18海里内有暗礁，若轮船仍按15海里／时的速度向北航行，有无触礁的危险？
解：根据题意可画图，如图，则AB=15×2=30（海里），过P点作PC⊥AB，交AB的延长线于C点，
由题中分别在A点，B点测得的方位角可知：∠PAB=15°，∠PBC=30°，
所以∠ABP=180°-30°=150°，
所以∠APB=180°-∠PAB-∠ABP=15°，
所以∠PAB=∠APB，
所以PB=AB=30（海里），
在Rt△BCP中，过C作∠BCD=30°，使CD交BP于D，
因为∠PBC=30°，
所以∠DBC=∠DCB，
所以DB=DC，
又因为∠BPC=90°-30°=60°=∠PCD，
所以PD=PC=CD=DB，
所以D是BP的中点，PC=PD=DB=
PB=15（海里）。
设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“XSLNCER”，所有菜单项都可见：否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Tex 1.Text="XSLNCER"Then
Form2.input.Visible=True
Else
Form2.input.Visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub
菜单结构
|
A．把2个Form2.input.Visible中的“Form2”删去
B．把Form1中Text1文本框及相关程序放到Form2窗体中
C．把If KeyAsii=13 Then改为If KeyAscii="XSLNCER"Then
D．把Form1.Hide、Form2.Show两行移动到2个End If之间