VB程序求解!
操作要求:
启动VB,打开工程文件“c:MyExamVB78.vbp”,完成如下算法设计:
在2012年,苹果公司推出了新产品“NewIpad”,售价定为4800元/台.为了促销,某商场实行了如下的销售策略:一次购买3台以上(不包含3台)的,实行9折优惠.下列程序的功能是计算顾客应付的金额.X表示该顾客购买的台数,y表示应付金额.
请将程序缺失部分“___”补充完整,并将“___”字符删除,正确运行程序后,保存文件并退出VB.
Functionfunc()
DimxAsSingle
DimyAsSingle
x=4
Ifx>3Then
y=0.9*x*4800
_____________
y=x*4800
EndIf
func="顾客应付的金额y="&y
EndFunction