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