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

Question

VB程序求解!
操作要求:
启动VB,打开工程文件“c:\MyExam\VB78.vbp”,完成如下算法设计:
在2012年,苹果公司推出了新产品“New Ipad”,售价定为4800元/台.为了促销,某商场实行了如下的销售策略：一次购买3台以上（不包含3台）的,实行9折优惠.下列程序的功能是计算顾客应付的金额.X表示该顾客购买的台数,y表示应付金额.
请将程序缺失部分“___”补充完整,并将“___”字符删除,正确运行程序后,保存文件并退出VB.

Function func()

Dim x As Single
Dim y As Single
x = 4
If x > 3 Then
y = 0.9 * x * 4800
_____________
y = x * 4800
End If
func = "顾客应付的金额y=" & y

End Function

Answer 1

填 else
好了