下列程序的功能是：当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.植入发生在受精后的笫6～7天

D.植入后的子宫内膜称为蜕膜

E.植入的条件之一是胚体与子宫内膜发育同步