题干

提水上楼,肱二头肌和肱三头肌的状态分别是()

A:收缩/舒张

B:收缩/收缩

C:舒张/收缩

D:舒张/舒张

上一题 下一题 0.0难度 选择题 更新时间:2016-12-15 10:14:19

答案(点此获取答案解析)

B

同类题2

阅读短文,回答问题:

汽车在高速行驶过程中一旦发生碰撞,车身停止,而乘员则会继续向前与车身撞击,甚至能把挡风玻璃撞碎而飞出车外.在发生交通事故时,安全带能对人体起到缓冲的作用,防止出现二次伤害.在发生严重撞击时,方向盘等处的车载气囊会自动充气弹出,在人体接触到安全气囊时,安全气囊通过气囊表面的气孔开始排气,从而起到缓冲作用,减轻身体所受冲击力,大大减小伤害.

(1)汽车“发动机”通常都是以汽油或柴油为燃料的,汽油、柴油都属于____ (可再生/不可再生)能源;汽车“发动机”一般需要用水来作冷却剂,这是利用了水的____ 的属性.

(2)一辆汽车沿一平直公路匀速行驶30km,消耗了2kg汽油,该汽车与路面间的摩擦力为690N,则此过程中汽油完全燃烧放出的热量为____ J,该汽车“发动机”的效率为____ .(汽油的热值为4.6×107J/kg)

(3)汽油机是汽车的“心脏”,汽油机的____ 冲程将内能转化为机械能.

(4)对于短文中提到的“缓冲”,小华同学提出了自己的猜想:安全带和安全气囊增加人与碰撞物间的接触时间,从而大大减小撞击力.物理兴趣小组的同学共同设计了如下实验方案:在两个相同的玻璃槽中堆放不同厚度的面粉,用同一只鸡蛋从相同的高度先落在面粉厚度大的槽中,留下较深的坑,鸡蛋完好无损;后落在面粉厚度较小槽中,鸡蛋破裂.实验中通过比较____ 来比较撞击时间的长短,根据实验可以验证小华同学的猜想是____ (正确/错误)的.请列举上述“缓冲”的物理知识在生活中应用的一个实例:____ 

同类题3

【加试题】某校举行班班有歌声比赛,参赛班级的成绩按照班级序号保存在“bbygs.accdb”数据库文件中,为了快速计算每个班级最终的分,设计了一个VB程序,该程序能够将8个评委的打分按照从高到低的顺序排序,然后去掉一个最高分和一个最低分,最后计算平均值作为参赛班级的成绩。程序界面如图:单击“提取”按钮Command1,在列表框list1中显示班级序号和该班级8个评委的打分成绩,单击“排序”按钮Command2后,在列表框list2中按降序排序。单击计算得分按钮Command3,在文本框text1中显示最终成绩。按此要求编写程序如下:

Dim class(1 To 30) As Integer '存放班级序号的数组定义为class

Dim score(1 To 8) As single '存放班级各评委打分的数组定义为score

Private Sub Formload()      '提取某班级的评委打分

   Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

   conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\bbygs.accdb "

   conn.Open

   Set rs.ActiveConnection = conn

   rs.Open "SELECT * FROM score " 

   n = 0

Do While Not rs.EOF   '到最后一条记录后退出循环

   n = n + 1

   class (n) = rs.Fields("班级序号").Value

   score (n) = rs.Fields("评委打分").Value

   rs.MoveFirst      '①指针移动到下一条记录

Loop

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

for i=1 to n

    List1.AddItem str(score(i))

Next i

End sub

Private Sub Command1Click()  

Dim i as integer

Dim j as integer

Dim t as single

For i = 1 to 8

  For j=1 to i

    If   ②  then  

t=score(j) 

score(j)=score(j+1)

score(j+1)=t

End if

  Next j

Next i

For i=1 to 8

   List2.AddItem str(score(i))

Next i

End sub

Private Sub Command2Click()   '计算班级平均得分

Dim i As Integer

Dim sum As single

For i=2 to 7

   sum=sum+score(i)

Next i

Text1.text=  ③ 

End sub