题目内容:
下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。请填空。PrivateSubCommand1_Click()
DimxAsSingle
x=InputBox("请输入x的值!".
【10】
CaseIs<50
y=0.8*x
Case50To100
y=0.7*x
【11】
Print"输入的数据出界!"
EndSelect
Printx,y
EndSub
参考答案:【答案仅供学习,请勿对照自行用药等】
答案解析: