设有程序： Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【8】 =arrl(1) For i=1 To 8 If arrl(i)＞Max Then 【9】 Next i Print "最大值是:" ; Max End Sub 以上程序的功能是，用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

下列不能体现生物正在进化的是（）

A.在黑褐色环境背景下，黑色桦尺蠖被保留，浅色桦尺蠖被淘汰

B.杂交育种通过不断地自交、筛选和淘汰使得纯合矮秆抗病小麦比例越来越高

C.杂合高茎豌豆通过连续自交导致后代纯合子频率越来越高

D.青霉菌通过辐射诱变产生了青霉素产量很高的菌株