下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，没有意义。请填空。　　Private Sub Command1_Click()　　　　Dim x As Single　　　　x=InputBox("请输入x的值!") 　　　　　【 】　　　　　　Case Is<50　　　　　y=0．8 * x　　　　Case 50 To 100　　　　　y=0．7 * x　　　　　　【 】　　　　　　Print"输入的数据出界!"　　　End Select　　　Print x，y　　End Sub

阅读下面报道，用一句话压缩新闻主体内容。不超过10个字。

　　大气中二氧化碳含量的日益增加，不仅对全球气候产生影响，而且造成海水酸化，威胁海洋生态系统。

　　美国国家科学基金会、国家大气研究中心、国家大气和海洋管理局等机构的科学家日前发表的一份报告说，天然海水偏碱性，但吸收二氧化碳后会酸化。

　　科学家警告说，海洋酸化的后果不容忽视。他们已通过实验证实，海洋生物圈的基础——珊瑚和含钙浮游生物，在酸化的环境中会因钙代谢失常而生长缓慢、种群数量减少。按照这一趋势，全球海洋酸化不仅会威胁珊瑚和浮游生物，以浮游生物为生的鱼类等也会随之受影响，海洋的生物多样性和渔业产量都将遭到破坏。

　　答案：_________________________________________________________________________