2008年第2期《大家谈》载文，广东省最多的时候有1万多家采石场，平均每17平方公里就有一家。无序、过度的采石造成山体缺损、植被破坏、水土流失，裸露的山岩连绵不断。多年来，广东各级政府对于炸山采石、采土的规定不少，基本原则是适度开采，谁开发，谁负责善后复绿。然而，政策执行到今天，却变成矿老板赚钱之后就走人，留下一堆“疮疤山”。从价值观角度看，上题材料给我们的启示是[ ]

A、社会存在的性质决定社会意识的性质

B、不同的意识对物质的反作用不同

C、必须用集体主义原则规范市场主体的行为

D、社会主义市场经济和环境保护是根本对立的

以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
Private Sub Form_click()
Dim x，y As Single
Dim z As Integer
x=InputBox("Enter a score")
Do while 【8】
y=y+x
z=z+1
x=InputBox("Enter a score")
Loop
If z=0 Then
z=1
End If
y= 【9】
Print y
End Sub