下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。
Private Sub Commandl_Click()
Dim x As Single
x=InputBox("请输入x的值!")
[10]
Case Is ＜50
Y=0.8*x
Case 50 To 100
Y=0.7*x
[11]
Print"输入的数据出界!"
End Select
Print x，y
End Sub

属于标准执行状况评价内容中工程应用状况评价内容的是（）。

A.是否将所评价的标准纳入到单位的质量管理体系中

B.是否开展了相关的宣贯、培训工作

C.在工程中是否有准确、有效应用

D.技术人员是否掌握了所评价标准的内容