本初子午线是（　　）

中国科技事业实现了一次次的飞跃令世界惊叹和赞许，如：2014年8月9日，我国在酒泉卫星发射中心成功将遥感卫星二十号送入太空。“天河二号”超级计算机登上世界超算之巅、“嫦娥三号”携“玉兔”成功落月……（   ）

①这表明我国科技创新能力日益增强                         ②这是广大科技工作者艰苦奋斗、自主创新的结果

③表明我国科技总体水平已达到世界先进水平            ④这是大力实施科教兴国和人才强国战略的结果

下列有关生活中化学的叙述，错误的是                                         （  ）

下列仪器经常用于物质分离的有（   ）

①漏斗  ②试管  ③蒸馏烧瓶 ④天平 ⑤分液漏斗 ⑥容量瓶  ⑦蒸发皿  ⑧坩埚．

【加试题】某校举行班班有歌声比赛，参赛班级的成绩按照班级序号保存在“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