【VB程序求解!操作要求:启动VB,打开工程文件“c:MyExamVB78.vbp”,完成如下算法设计:在2012年,苹果公司推出了新产品“NewIpad”,售价定为4800元/台.为了促销,某商场实行了如下的销售】

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