启动VB，打开工程文件“c:\MyExam\VB76.vbp”，完成如下算法设计:

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

支持一下感觉挺不错的

Private Sub Command1_Click() If Val(Text1.Text) > 3 Then     Text2.Text = Val(Text1.Text) * 4800 * 0.9 Else     Text2.Text = Val(Text1.Text) * 4800 End If End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Command1.Caption = "计算" End Sub