搜题请搜索小程序“爱下问搜题”
问题 选择题

右图为屈肘示意图，其中①和②分别表示肱二头肌和肱三头肌，此图所示的肌肉状态是

A．①和②均收缩

B．①收缩②舒张

C．①和②均舒张

D．①舒张②收缩

答案

答案：B

屈肘时，肱二头肌收缩，肱三头肌舒张。

单项选择题

剪切变形的变形特点（）

A．杆件沿轴线方向伸长或缩短

B．两平行力间的截面将沿着力的方向产生相对错动，两力作用线间的小矩形变形后成为平行四边形

C．杆件的轴线保持不变，其上任意两个横截面产生围绕着轴线的相对转动

D．直杆的轴线由原来的直线变为曲线
查看答案
填空题

数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定：“平时成绩”加“考试成绩”大于等于85分，则期末总评为“优”，“平时成绩”加“考试成绩”小于60分，则期末总评为“不及格”，其他情况期末总评为“合格”。
下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pscj，kscj，qmzp As DAO.Field
Dim count As Integer
Set db=CurrentDb()
Set rs=db.OpenRecordset("学生成绩表")
Set pscj=rs.Fields("平时成绩")
Set kscj=rs.Fields("考试成绩")
Set qmzp=rs.Fields("期末总评")
count=0
Do While Not rs.EOF
(14)
If pscj+kscj＞=85 Then
qmzp="优"
ElseIf pscj+kscj＜60 Then
qmzp="不及格"
Else
qmzp="合格"
End If
rs Update
count=count+1
(15)
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
MsgBox "学生人数:" ＆ count
End Sub
查看答案