【加试题】某排序算法思想如下：每一趟将一个待排序的记录，按其关键字的大小插入到已经排好序的一组记录的适当位置上，直到所有待排序记录全部插入为止。例如(9,3,1,4)升序排序；第一步 3 插入到有序记录(9)，得到(3,9)；第二步 1 插入到有序记录(3,9)，得到(1,3,9)；第三步 4 插入到有序记录(1,3,9)，得到最终有序记录为“1,3,4,9”。

为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中

显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer        '生成 n 个随机数，存储在 a 数组，代码略

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

For i = 2 To n

t = a(i)  :   j = i - 1

Do  While  t < a(j)

 a(j + 1) = a(j) j = j – 1

If     Then Exit Do  ①

Loop

       ②

Next i

For i = 1 To n

 List2.AddItem Str(a(i))

Next i

End Sub

①____ ②____

我知道这些果实种在哪里？

 ____ A.地上    

     ____   B.泥巴里   

    ____   C.土里   

  ____    D.枝头

为了测定某铜锌合金（即铜锌混合物）中锌的质量分数，某同学利用该合金与稀硫酸反应，进行了3次实验，所得相关的实验数据记录如下表（实验中的误差忽略不计）：

	第一次	第二次	第三次
所取合金质量/g	20	20	40
所取用的稀硫酸质量/g	120	180	120
生成的氢气质量/g	0.4	0.4	0.4

英国科学家培根说过：“经由正当研究方法的过程才能得到科学的结论”．科学探究方法是人们获取科学知识，认识世界的重要途径．下面是某校生物兴趣小组同学，学习了“生物圈中的绿色植物”后，回味科学家的探究方法，学习科学家的探索精神，体验科学探索历程而进行的有关植物光合作用的实验，请你认真分析后回答下列问题．

探索一：植物靠什么长大？

17世纪，比例时科学家海尔蒙特猜测植物生长重要的营养是从土壤中获得的．为此他做了柳树苗生长实验，如图1所示：

探索二：植物能否净化空气？

18世纪，英国科学家普罗斯特勒用一株绿色植物和一只小白鼠做了一个有趣的实验，如图2所示：

为响应“学雷锋、树新风、做文明中学生”号召，某校开展了志愿者服务活动，活动项目有“戒毒宣传”“文明交通”、“关爱老人”、“义务植树”“社区服务”等五项，活动期间，随机抽取了部分学生对志者服务情况进行调查．结果发现，被调查的每名学生都参与了活动，最少的参与了1项，最多的参与了5项，根据调查结果绘制了如所示不完整的折线统计图和扇形统计图。