下列程序的功能是：当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

应当安装防雷装置的范围：（）

A、建筑物防雷设计范围规定的一、二、三类防雷建（构）筑物

B、石油、化工生产或者储存场所

C、电力生产设施和输配电系统

D、邮电通信、交通运输、广播电视、医疗卫生、金融证券、计算机信息等社会公共服务系统的主要设施

E、按照法律、法规、规章和有关技术规定。应当安装防雷装置的其他场所和设施。