搜题请搜索小程序“爱下问搜题”
问题 解答题

（2）试借助诱导公式证明△A2B2C2中必有一个角为钝角

答案

（1）是锐角三角形

（1）由条件知△A1B1C1的三个内角的余弦值均大于0，

即cosA1﹥0, cosB1﹥0, cosC1﹥0,从而△A1B1C1一定是锐角三角形。

(2)、由题意知：sinA2=cosA1=sin(-A1), sinB2=cosB1=sin(-B1),sinC2=cosC1=sin(-C1).

若A2、B2、C2全为锐角，A2+B2+C2=-A1+-B1+-C1=-( A1+B1+C1)=.不合题

意，应舍去。又A2、B2、C2不可能为直角，且满足A2+B2+C2=。故必有一角为钝角

问答题

在考生文件夹下有一个工程文件sjt5.vbp，其功能是：

单击“读数据”按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中；

单击“素数”按钮，则将数组a中所有素数(只能被1和自身整除的数称为素数)存入数组b中，并将数组b中的元素显示在文本框Text2中。

在给出的窗体文件中已经有了全部控件(如图5所示)，但程序不完整。

要求：完善程序使其实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须先执行“素数”操作，然后再用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。

[题目提供的源程序]

Option Base 1

Dim a(100) As Integer, num As Integer

Private Sub Command1_Click()

Dim k As Integer

Open App.Path & "\in5.dat" For Input As #1

For k=1 To 100

Input #1, a(k)

Text1=Text1+Str(a(k))+Space(2)

Next k

Close #1

End Sub

Private Sub Command2_Click()

Dim b(100) As Integer

num=0

If Len(Text1.Text)=0 Then

MsgBox "请先执行"读数据"功能!"

Else

’考生应编写的程序(功能:生成存放素数的数组b)

’注意：请务必将数组b的元素个数存入变量num中

’以下程序段将b数组的内容显示在Text2中

For i=1 To num

Text2.Text=Text2.Text+Str(b(i))+Space(2)

Next i

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open App.Path & "\out5.dat" For Output As #1

Print #1, Text2.Text

Close #1

End Sub
查看答案
名词解释

火成岩
查看答案